Mengganti Ketebalan Garis dan Warna Polyline

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

Menampilkan Teks Koordinat Multiple Point

Command ini untuk menampilkan teks koordinat dari beberapa point. Cara menggunakan perintah ini sangat sederhana yaitu dengan cara memilih point-point yang akan ditampilkan koordinatnya kemudian masukan tinggi teks koordinatnya, lokasi penempatan teks berada tepat di posisi point. Berikut program autolispnya :

(defun c:mnn ( / llama gx gy gz ss1 ttxt num spnt)
  (command ".undo" "be")
  (setq llama (getvar "clayer"))
  (command "-layer" "new" "koordinat" "color" "255" "koordinat" "L" "continuous" "koordinat" "")
  (setvar "clayer" "koordinat")
  (setvar "cmdecho" 0)
  (setq ss1 (ssget '((0 . "POINT"))))
  (initget 1)
  (setq ttxt (getreal "\nTinggi Text :"))
  (setq num 0)
  (repeat (sslength ss1)
    (setq spnt (cdr (assoc 10 (entget (ssname ss1 num)))))
    (setq gx (car spnt))
    (setq gy (cadr spnt))
    (setq gz (caddr spnt))
    (command "text" "j" "l" spnt ttxt "" (strcat "X :" " "(rtos gx 2 3) ", Y :" " "(rtos gy 2 3) ", Z :" " "(rtos gz 2 3)))
    (setq num (1+ num))
  )
  (setvar "clayer" llama)
  (command ".undo" "e")
  (princ)
)

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 MNN

Silahkan dicoba.. :D