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