Command ini untuk ng-freeze layer yang menjadi bagian dari suatu block atau xref. Caranya dengan memilih object layer pada block atau xref tsb. Berikut program autolispnya :
(defun c:xf ( / ePick eList sLayer)
(setq ePick (nentsel "\nSelect nested xref or block object to list: "))
(setq eList (entget (car ePick)))
(setq sLayer (cdr (assoc 8 eList)))
(command "-layer" "freeze" sLayer "")
)
(setq ePick (nentsel "\nSelect nested xref or block object to list: "))
(setq eList (entget (car ePick)))
(setq sLayer (cdr (assoc 8 eList)))
(command "-layer" "freeze" sLayer "")
)
Cara menggunakan program ini :
1. Copy dan paste program tsb ke dalam notepad
2. lalu save file tsb dengan extension .lsp
3. dari dalam program Autocad anda ketikan command / perintah APPLOAD
4. Pilih file lsp anda yg tadi kemudian klik tombol "load"
5. Setelah itu tutup dialog box dengan meng-klik tombol "close"
6. Pada command bar anda bisa masukan perintah xf
Silahkan dicoba.. :D
Gimana cara menambahkan layer pada file Xref
BalasHapusada 2 cara yg bisa dilakukan,
Hapuscara pertama, file xref bisa diedit dengan perintah refedit, setelah itu anda bisa menambahkan atau mengganti layer pada objek yg terdapat dalam xref tersebut..
cara kedua, anda bisa membuka file source xref-nya dengan perintah xopen kemudian anda dapat menambahkan atau mengganti layer pada objek yg terdapat dalam xref tersebut.
tks