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