Command ini untuk mengubah ketebalan garis polyline dan mengganti warnanya dengan memilih warna pada tabel warna.
Berikut program autolispnya :
(defun C:BTC ()
(command ".undo" "be")
(setvar "cmdecho" 0)
(setq a (ssget))
(initget 1)
(setq tgrs (getreal "\nTebal Garis :"))
(princ "\n \n..... Pilih Warna .....\n ")
(setq num 0)
(setq nlay (acad_colordlg num))
(repeat (sslength a)
(setq grs (cdr (assoc 0 (entget (ssname a num)))))
(if (= grs "LWPOLYLINE")
(progn
(command "pedit" (ssname a num) "w" tgrs "" "")
(command "change" (ssname a num) "" "p" "c" nlay "" "")
)
)
(setq num (1+ num))
)
(command ".undo" "e")
)
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 nn
Silahkan dicoba.. :D
Tidak ada komentar:
Posting Komentar