Cara membuat dinding cepat dengan bantuan AutoLISP di AutoCAD

 AUTOLISP PADA AUTOCAD

Aplikasi AutoCAD 2014

Definisi AutoLisp

LISP adalah singkatan dari List Processing Language, Lisp merupakan salah satu dari Bahasa pemograman. Lisp yang cukup dikenal di dunia adalah Common Lisp, Scheme, Emacs Lisp, Clijure dan AutoLisp. 

Autolisp adalah bahasa pemogramana yang dirancang khsusu pengguan AutoCAD..

Manfaat AutoLisp pada pengguna AutoCAD

Beberapa manfaat yang terdapat pada Bahasa Pemograman AutoLisp seperti berikut:

1. Dapat memodifikasi perintah bawaan atau perintah asli AutoCAD, sehingga dapat lebih mudah digunakan untuk keperluan seseorang drafter.
2. Dapat memodifikasi menu pada toolbar sesuai dengan kebutuhan pengguna
3. mempercepat gambar kerja (speed drawing) untuk gambar yang sering diulang-ulang atau yang biasa dikerjakan
4. Melengkapi program yang sebelumnya belum tersedia atau memebuat program baru
5. Mempercepat pekerjaan seorang Drafter atau juru gambar.

Contoh Lisp membuat dinding, agar dapat dengan cepat terselesaikan

;Membuat dinding pada autocad

(defun c:Dinding (/ 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 5) 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" "5" "0" "A" "A" "Y" "" "S" "last" "" "")

   (setvar "osmode" lama)

   (command "undo" "e")

)))

(Silahkan copy dan paste pada kolom command di AutoCAD)

Sekian dan Terima Kasih.

Tutorial AutoCAD, Drafter, Teknik Gambar Bangunan