Pemula Acad Lisp.2

HOME

Kita sekarang mencoba untuk "menyimpan" rutinitas AutoLISP dalam sebuah file.
File AutoLISP adalah file teks ASCII sederhana dengan ekstensi "LSP".
Buka Notepad atau editor teks sederhana lain dan ketik/copas berikut ini:

(defun testline ()
      ;define the function
      (setq a (getpoint "\nEnter First Point : "))
      ;get the first point
      (setq b (getpoint "\nEnter Second Point : "))
      ;get the second point (command "Line" a b "")
      ;draw the line
)     ;end defun

Sekarang, save file ini sebagai

     "testline.lsp",

untuk menyimpannya sebagai file teks ASCII dan memastikan bahwa telah disimpan dalam sebuah direktori jalur pencarian AutoCAD. 
Sekarang buka AutoCAD dan ketik ini:

     (load "testline")

Hal ini akan memuat fungsi ke dalam memori.

Apabila kita tidak mengetahui tempat menyimpan “direktori jalur pencarian AutoCAD” maka sebaiknya simpan dimana saja yang menurut anda lebih mudah dan aman.

Dan untuk memuat fungsi ke dalam memori/membukanya pada autoCad adalah sbb:

Pada menu Tools --> AutoLISP --> Load Application….

Perhatikan jalur pada gambar .. :


Sekarang ketik pada command prompt: . .

     (testline)

 Fungsi Anda sekarang sedang dijalankan.















Coba perhatikan program yang satu ini…
Disini kita akan mengedit coding rutin ini agar bertindak seperti perintah AutoCAD umum nya:

(defun c:testline () 
       ;define the function 
       (setq a (getpoint "\nEnter First Point : "))
       ;get the first point (setq b 
       (getpoint "\nEnter Second Point : ")) 
       ;get the second point 
       (command "Line" a b "") 
       ;draw the line 
)      ;end defun

Penambahan nama fungsi dengan c: Membuat kita tidak harus melampirkan tanda kurung ketika menjalankan program.

      (load "testline")

     testline


-------------------------------------------------------------------------------------------------------------------------------------- 

1  2  3