Menampilkan teks koordinat Point

Command ini untuk menampilkan teks koordinat dari sebuah point. Cara menggunakan perintah ini sangat sederhana yaitu dengan cara memasukkan point yang akan ditampilkan koordinatnya dan  memasukkan  titik/point untuk lokasi penempatan teks-nya. Berikut program autolispnya :

(defun c:nn (/ pnt gx gy gz pntt)
   (setvar "cmdecho" 0)
   (setq pnt (getpoint "\nInsert Point: "))
   (setq gx (car pnt))
   (setq gy (cadr pnt))
   (setq gz (caddr pnt))
   (setq pntt (getpoint "\nPick point for text: "))
   (command "dim" "leader" pnt pntt "" (strcat "X :" " "(rtos gx 2 3) ", Y :" " "(rtos gy 2 3) ", Z :" " "(rtos gz 2 3)) "exit")
   (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 nn

Silahkan dicoba.. :D

Perintah-perintah Layer (lsp)

Berikut ini merupakan beberapa perintah untuk layer. Berikut program autolispnya :

;Command untuk mematikan (off) layer pada object yang dipilih/select.
;Masukan command/perintah OL untuk menjalankan program ini.
(defun c:ol ()
   (setvar "cmdecho" 0)
   (setq se (entsel "\nSelect Layer: "))
   (setq c (cdr (assoc 8 (entget (car se)))))
   (command "-layer" "off" c "")
   (if (/= se nil)
   (while (< 0 1)
     (setq se (entsel "\nSelect Layer: "))
     (setq c (cdr (assoc 8 (entget (car se)))))
     (command "-layer" "off" c "")
   ))
)

;command untuk menampilkan/menghidupkan semua layer.
;Masukan command/perintah LP untuk menjalankan program ini.
(defun c:lp ()
   (command "-layer" "on" "*" "" "")
)

;command untuk freeze layer pada object yang dipilih/select.
;Masukan command/perintah LF untuk menjalankan program ini.
(defun c:lf ()
   (setvar "cmdecho" 0)
   (setq se (entsel "\nSelect Layer: "))
   (setq c (cdr (assoc 8 (entget (car se)))))
   (command "-layer" "freeze" c "")
   (if (/= se nil)
   (while (< 0 1)
     (setq se (entsel "\nSelect Layer: "))
     (setq c (cdr (assoc 8 (entget (car se)))))
     (command "-layer" "freeze" c "")
   ))
)

;command untuk menampilkan/thaw semua layer yang di-freeze.
;Masukan command/perintah LT untuk menjalankan program ini.
(defun c:lt ()
   (setvar "cmdecho" 0)
   (command "-layer" "thaw" "*" ""))
 
;command untuk menampilkan object pada layer yang dipilih/select dan mematikan (off) layer yang lainnya.
;Masukan command/perintah LO untuk menjalankan program ini.
(defun C:lo () (setq ent(entget (car (entsel))))
               (setq a (cdr (assoc 8 ent)))
               (command "layer" "s" a "off" "*" """")
)


;command untuk mengembalikan color layer pada object yang dipilih/select ke color aslinya (bylayer).
;Masukan command/perintah CGC untuk menjalankan program ini.
(defun C:cgc ()
   (setvar "cmdecho" 0)
   (setq a (ssget))
   (COMMAND "change" a "" "p" "c" "bylayer" "" "")
)

;command untuk mengganti color object ke color no. 8
;Masukan command/perintah C8 untuk menjalankan program ini.
(defun C:c8 ()
   (setvar "cmdecho" 0)
   (setq a (ssget))
   (command "change" a "" "p" "c" "8" "" "")
)

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 beberapa perintah yang terdapat pada program autolisp tersebut, diantaranya : OL, LP, LF, LT, LO, CGC & C8.

Silahkan dicoba.. :D

Membuat potongan dinding (2d)

Command ini untuk membuat potongan dinding. Berikut program autolispnya :

(defun c:wall (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 len ang angt)
   (setvar "cmdecho" 0)
   (command "undo" "be")
   (initget 1)
   (setq pt1 (getpoint "\nStarting Wall: "))
   (initget 1)
   (setq pt2 (getpoint pt1 "\nLengh: "))
   (setq lama (getvar "osmode"))
   (setvar "osmode" 0)
   (setq ang (angle pt1 pt2))
   (setq len (distance pt1 pt2))
   (setq angt (angtos ang 4 4))
   (if (<= (* pi 250) ang)(setq angt (angtos (- ang (/ pi 2)) 4 4)))
   (setq pt3 (polar pt2 (+ (/ pi 2) ang) 150))
   (setq pt4 (polar pt3 (+ pi ang) len))
   (setq pt5 (polar pt1 (+ (/ pi 2) ang) 25))
   (setq pt6 (polar pt5 ang len))
   (setq pt7 (polar pt6 (+ (/ pi 2) ang) 100))
   (setq pt8 (polar pt7 (+ pi ang) len))
   (command "PLINE" pt1 pt2 pt3 pt4 "C")
   (command "PLINE" pt5 pt6 pt7 pt8 "C")
   (command "-HATCH" "P" "ansi32" "250" "0" "A" "A" "Y" "" "S" "last" "" "")
   (setvar "osmode" lama)
   (command "undo" "e")
)

Contoh hasil pembuatannya :

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 wall

Silahkan dicoba.. :D

Membuat notasi tampak pintu

Bagi anda yg ingin mempermudah dalam membuat gambar notasi tampak pintu, berikut ini adalah program autolispnya :

(defun start ()
   (setq pt1 (getpoint "\nStarting Door: "))
   (initget 7)
   (setq wd (getreal "\nWidth: "))
   (initget 7)
   (setq hi (getreal "\nHigh: "))
)

(defun single ()
   (setq pt1a (polar pt1 0 50))
   (setq pt2 (polar pt1 (/ pi 2) hi))
   (setq pt3 (polar pt2 0 wd))
   (setq pt4 (polar pt1 0 wd))
   (setq pt4a (polar pt4 pi 50))
   (setq pt4b (polar pt4a (/ pi 2) (- hi 50)))
   (setq pt5 (polar pt1a (/ pi 2) (- (/ hi 2) 50)))
   (command "pline" pt1 pt2 pt3 pt4 "")
   (command "offset" 50 (entlast) pt1a "")
   (command "pline" pt4a pt5 pt4b "")
   (command "change" "L" "" "P" "lt" "hidden" "")
)

(defun double ()
   (setq pt1a (polar pt1 0 50))
   (setq pt2 (polar pt1 (/ pi 2) hi))
   (setq pt3 (polar pt2 0 wd))
   (setq pt4 (polar pt1 0 wd))
   (setq pt4a (polar pt4 pi 50))
   (setq pt5 (polar pt1a (/ pi 2) (/ (- hi 50) 2)))
   (setq pt6 (polar pt1 0 (/ wd 2)))
   (setq pt6a (polar pt6 (/ pi 2) (- hi 50)))
   (command "pline" pt1 pt2 pt3 pt4 "")
   (command "offset" 50 (entlast) pt1a "")
   (command "line" pt6 pt6a "")
   (command "pline" pt6 pt5 pt6a "")
   (command "change" "L" "" "P" "lt" "hidden" "")
   (command "mirror" "L" "" pt6 pt6a "n")
)

(defun c:ts ()
  (setvar "cmdecho" 0)
  (command ".undo" "be")
  (start) (single)
  (command ".undo" "e")
  (princ)
)

(defun c:td ()
  (setvar "cmdecho" 0)
  (command ".undo" "be")
  (start) (double)
  (command ".undo" "e")
  (princ)
)

Perintah TS untuk membuat gambar notasi tampak pintu single, sedangkan TD untuk membuat gambar notasi tampak pintu double..

Contoh hasil dari perintah tsb :

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 TS atau TD

Silahkan dicoba.. :D

Mengganti elevasi object ke nol (z point = 0)

Bila anda tidak dapat menjalankan command atau perintah fillet terhadap dua object garis, bisa jadi disebabkan oleh perbedaan Z POINT-nya. Lines are non coplanar, pesan tersebut merupakan hasil dari perintah fillet terhadap dua object garis yang berbeda elevasi atau z point-nya. Agar kita dapat menjalankan perintah fillet tersebut, maka elevasi atau z point dua object garis tersebut harus kita samakan dulu. Berikut ini adalah program autolisp untuk mengganti elevasi object yang dipilih menjadi nol ( z point = 0 ) :

(defun c:z0 ()
  (princ "Select objects: ") (setq ss (ssget) count (1- (sslength ss)) asno 9)
  (command "undo" "mark")
  (while (>= count 0)
    (setq curent (entget (ssname ss count)))
    (while (and
                (setq asno (1+ asno))
                (< asno 19)
                (if (not (assoc asno curent)) (progn ; begin if polyline
                  (setq asno 38)
                  (if (assoc asno curent) (progn
                    (entupd (cdr (assoc -1 (entmod
                      (subst
                        (cons asno 0.0)
                        (assoc asno curent)
                        curent
                      )
                    )))) nil
                  )
                  nil
                )
              )
              T
            ) ; if polyline
          )
      (if (/= 0 (cadddr (assoc asno curent)))
        (entupd (cdr (assoc -1 (setq curent (entmod
          (subst
            (cons asno (list (cadr (assoc asno curent)) (caddr (assoc asno curent)) 0))
            (assoc asno curent)
            curent
          )
        ))))) ; entupd
      ) ; if
    ) ; while and
    (setq count (1- count) asno 9)
  ) ; while count
  (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 z0

Silahkan dicoba.. :D

Menghitung luasan + text hasil luasannya

Command ini untuk menghitung luasan suatu object polyline tertutup dengan tambahan text hasil luasannya dan nama ruangnya. Berikut program autolispnya :

(defun c:ae (/ pil pt txt)
   (setvar "cmdecho" 0)
   (command "undo" "be")
   (setq pil (ssget))
   (command "area" "e" pil)
   (initget 1)
   (setq pt (getpoint "\nPick point for text: "))
   (setq txt (getstring T "\nNama ruang: "))
   (command "text" "j" "mc" pt "" txt )
   (command "text" "" (strcat (rtos (/ (getvar "area") 1000000) 2 0) "m2"))
   (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 ae

Silahkan dicoba.. :D

Multiple Scale

Command ini untuk mengubah skala object block, xref, text atau mtext dengan titik acuan pada insert point-nya. Pada saat melakukan Select objects kita bisa memilih seluruh object diatas. Berikut program autolispnya :

(defun c:msc ( / 1r ss1 2r num spnt)
  (setvar "cmdecho" 0)
  (command ".undo" "be")
  (setq ss1 (ssget '((-4 . "<OR")(-4 . "<AND")
                       (0 . "TEXT")
                     (-4 . "AND>")(-4 . "<AND")
                       (0 . "MTEXT")
                     (-4 . "AND>")(-4 . "<AND")
                       (0 . "INSERT")
                     (-4 . "AND>")(-4 . "<AND")(0 . "ATTDEF")(-4 . "AND>")(-4 . "OR>"))
            )
  )
  (setq 1r (getreal "\nSkala awal : "))
  (setq 2r (getreal "\nSkala baru : "))
  (setq num 0)
  (repeat (sslength ss1)
    (setq spnt (cdr (assoc 10 (entget (ssname ss1 num)))))
    (command "._scale" (ssname ss1 num) "" spnt "R" 1r 2r)
    (setq num (1+ num))
  )
  (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 msc

Silahkan dicoba.. :D

Freeze layer pada block atau xref

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 "")
)

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

Membuat gambar potongan plafond

Berikut ini adalah program autolisp untuk membuat gambar potongan plafond : 

(defun c:plf (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt1a pt1b pt1c pt1d pt1e pt1f pt2a pt2b pt2c pt2d pt2e pt2f jr)
   (command "undo" "be")
   (setvar "cmdecho" 0)
   (initget 1)
   (setq pt1 (getpoint "\nStart Point: "))
   (initget 1)
   (setq pt2 (getpoint pt1 "\nEnd Point: "))
   (setq jr (distance pt1 pt2))
   (setq ang (angle pt1 pt2))
   (setq pt3 (polar pt1 (+ (/ pi 2) ang) 10))
   (setq pt4 (polar pt3 ang jr))
   (setq pt5 (polar pt3 (+ (/ pi 2) ang) 40))
   (setq pt6 (polar pt5 ang jr))
   (setq pt7 (polar pt3 ang 40))
   (setq pt8 (polar pt4 (+ pi ang) 40))
   (setq pt9 (polar pt5 ang 40))
   (setq pt10 (polar pt6 (+ pi ang) 40))

   (setq pt1a (polar pt1 ang 10))
   (setq pt1b (polar pt3 ang 10))
   (setq pt1c (polar pt1 ang 1))
   (setq pt1d (polar pt1c (+ (/ pi 2) ang) 9))
   (setq pt1e (polar pt1d ang 8))
   (setq pt1f (polar pt1c ang 8))

   (setq pt2a (polar pt2 (+ pi ang) 10))
   (setq pt2b (polar pt4 (+ pi ang) 10))
   (setq pt2c (polar pt2 (+ pi ang) 1))
   (setq pt2d (polar pt2c (+ (/ pi 2) ang) 9))
   (setq pt2e (polar pt2d (+ pi ang) 8))
   (setq pt2f (polar pt2c (+ pi ang) 8))

   (setq lama (getvar "osmode"))
   (setvar "osmode" 0)
   (setvar "clayer" "ceiling")
   (command "line" pt1a pt2a "")
   (setvar "clayer" "fin")
   (command "line" pt3 pt9 pt10 pt4 "")
   (command "line" pt5 pt7 pt8 pt6 "")
   (setvar "clayer" "steel")
   (command "pline" pt3 pt7 pt9 pt5 "c")
   (command "pline" pt4 pt8 pt10 pt6 "c")
   (command "pline" pt1 pt3 pt1b pt1a pt1f pt1e pt1d pt1c "c")
   (command "pline" pt2 pt4 pt2b pt2a pt2f pt2e pt2d pt2c "c")
   (setvar "clayer" "0")
   (setvar "osmode" lama)
)

Contoh hasil pembuatannya :

 

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 plf

Silahkan dicoba.. :D

Membuat notasi denah pintu & jendela

Bagi anda yg ingin mempermudah dalam membuat gambar notasi denah pintu, berikut ini adalah program autolispnya :

(command "undo" "be")

(command "-layer" "new" "kusen" "color" "74" "kusen" "L" "continuous" "kusen" "")
(command "-layer" "new" "hid" "color" "12" "hid" "L" "hidden" "hid" "")
(command "-layer" "new" "glass" "color" "140" "glass" "L" "continuous" "glass" "")


(defun awal ()
   (initget 1)
   (setq pt1 (getpoint "\nStart: "))
   (initget 1)
   (setq pt (getpoint pt1 "\nDirection: "))
   (setq ang (angle pt1 pt))
   (setq angt (angtos ang 4 4))
)

(defun bukaan1 ()
   (initget 7)
   (setq len (getreal "\nOpening: "))
   (setq len1 (+ (/ len 2 ) 50))
   (setq len2 len)
)

(defun bukaan2 ()
   (initget 7)
   (setq len (getreal "\nOpening: "))
   (setq len (/ len 2))
   (setq len1 (+ (/ len 2 ) 50))
   (setq len2 len)
)

(defun titik1 ()
   (setq pt2 (polar pt1 (+ ang (/ pi 2)) 150))
   (setq pt3 (polar pt2 ang 40))
   (setq pt4 (polar pt3 (- ang (/ pi 2)) 40))
   (setq pt5 (polar pt4 ang 10))
   (setq pt6 (polar pt5 (- ang (/ pi 2)) 110))
   (setq pt7 (polar pt1 ang len1))
   (setq pt7a (polar pt6 ang len))
   (setq pt8 (polar pt3 ang (+ len 20)))
   (setq pt8a (polar pt3 ang (+ len 10)))
   (setq pt9 (polar pt7 (+ ang (/ pi 2)) 200))
   (setq pt9a (polar pt7a (+ ang (/ pi 2)) 200))
   (setq pt10 (polar pt3 ang 40))
   (setq pt11 (polar pt10 (+ ang (/ pi 2)) (+ len 20)))
   (setq pt11a (polar pt10 (+ ang (/ pi 2)) (+ len 10)))
   (setq pt12 (polar pt3 (+ ang (/ pi 2)) (+ len 20)))
   (setq pt12a (polar pt3 (+ ang (/ pi 2)) (+ len 10)))
)

(defun titik2 ()
   (setq pt2 (polar pt1 (- ang (/ pi 2)) 150))
   (setq pt3 (polar pt2 ang 40))
   (setq pt4 (polar pt3 (+ ang (/ pi 2)) 40))
   (setq pt5 (polar pt4 ang 10))
   (setq pt6 (polar pt5 (+ ang (/ pi 2)) 110))
   (setq pt7 (polar pt3 ang 100))
   (setq pt8 (polar pt7 (+ ang (/ pi 2)) 40))
   (setq pt9 (polar pt7 (+ ang (/ pi 2)) 20))
   (setq pt10 (polar pt3 ang (+ len 10)))
   (setq pt11 (polar pt10 (+ ang (/ pi 2)) 150))
   (setq pt12 (polar pt7 ang (- (* len 2) 180)))
   (setq pt13 (polar pt8 ang (- (* len 2) 180)))
   (setq pt14 (polar pt9 ang (- (* len 2) 180)))
   (setq pt15 (polar pt6 ang (* len 2)))
)

(defun kusen1 ()
   (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c")
   (command "mirror" "L" "" pt7 pt9 "n")
   (command "pline" pt3 pt10 pt11 pt12 "c")
   (command "arc" pt8 "c" pt3 pt12)
   (command "change" "L" "" "P" "layer" "hid" "")
   (setvar "clayer" lama)
)

(defun kusen2 ()
   (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c")
   (command "mirror" "L" "" pt7a pt9a "n")
   (command "pline" pt3 pt10 pt11a pt12a "c")
   (command "mirror" "L" "" pt7a pt9a "n")
   (command "arc" pt8a "c" pt3 pt12)
   (command "change" "L" "" "P" "layer" "hid" "")
   (command "mirror" "L" "" pt7a pt9a "n")
   (setvar "clayer" lama)
)

(defun kusen3 ()
   (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c")
   (command "mirror" "L" "" pt10 pt11 "n")
   (command "rectang" pt3 pt8)
   (command "mirror" "L" "" pt10 pt11 "n")
   (command "line" pt7 pt12 "")
   (command "line" pt8 pt13 "")
   (command "line" pt6 pt15 "")
   (command "pline" pt9 pt14 "")
   (command "pedit" "last" "w" "6" "")
   (command "change" "L" "" "P" "layer" "glass" "")
   (setvar "clayer" lama)
)

(defun C:d1 (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt7a pt8 pt8a pt9 pt9a pt10 pt11 pt11a pt12 pt12a len len1 len2 pt ang angt)
   (setvar "cmdecho" 0)
   (command "undo" "be")
   (setq lama (getvar "clayer"))
   (setvar "clayer" "kusen")
   (awal)
   (bukaan1)
   (titik1)
   (setq lama1 (getvar "osmode"))
   (setvar "osmode" 0)
   (kusen1)
   (setvar "osmode" lama1)
   (command "undo" "e")
)

(defun C:d2 (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt7a pt8 pt8a pt9 pt9a pt10 pt11 pt11a pt12 pt12a len len1 len2 pt ang angt)
   (setvar "cmdecho" 0)
   (command "undo" "be")
   (setq lama (getvar "clayer"))
   (setvar "clayer" "kusen")
   (awal)
   (bukaan2)
   (titik1)
   (setq lama1 (getvar "osmode"))
   (setvar "osmode" 0)
   (kusen2)
   (setvar "osmode" lama1)
   (command "undo" "e")
)

(defun C:j1 (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12 pt13 pt14 pt15 len len1 len2 pt ang angt)
   (setvar "cmdecho" 0)
   (command "undo" "be")
   (setq lama (getvar "clayer"))
   (setvar "clayer" "kusen")
   (awal)
   (bukaan2)
   (titik2)
   (setq lama1 (getvar "osmode"))
   (setvar "osmode" 0)
   (kusen3)
   (setvar "osmode" lama1)
   (command "undo" "e")
)

(setvar "cmdecho" 0)

(command "undo" "e")

Perintah d1 untuk membuat gambar notasi denah pintu single, sedangkan d2 untuk pintu double dan j1 untuk gambar notasi denah jendela bukaan single..

contoh hasil dari perintah tsb :

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 d1, d2 atau j1

Silahkan dicoba.. :D

Shortcut Command Autocad

Buat anda yg belum tau shortcut/singkatan dari command2 di autocad bisa dilihat dengan mengetikan perintah ALIASEDIT di command bar.. setelah itu akan muncul dialog box seperti dibawah ini.

Dsini anda akan melihat singkatan dari perintah/command Autocad.. anda juga dapat mengedit, menghapus

dan menambahkan singkatan baru untuk command yang anda inginkan. Silahkan dicoba.. :D