İlk Komut
Tanım
Basit bir program ile kullanıcı tarafından girilen iki noktayı kullanarak doğru çizmeyi amaçlıyoruz.
(terpri) ;2
(setq n1 (getpoint "doğru için başlangıç noktası giriniz")) ;3
(terpri) ;4
(setq n2 (getpoint "doğru için bitiş noktası giriniz ")) ;5
(terpri) ;6
(command "line" n1 n2 "") ;7
)
Açıklamalar
1 defun c: fonksiyonu ile cizim isimli komut tanımlanır.
2 verilecek mesaj için komut satırı temizlenir.
3 getpoint fonksiyonuyla "doğru için başlangıç noktası giriniz " mesajı ile koordinat (x,y,z) girerek veya çizim alanına tıklayarak n1 değişkenine nokta bilgisi girilmesi sağlanır.
4 verilecek mesaj için komut satırı temizlenir.
5 Kullanıcı tarafından n1 değişkeninde olduğu gibi n2 değişkenine de nokta bilgisi girmesi sağlanır.
6 verilecek mesaj için komut satırı temizlenir.
7 command fonksiyonu AutoCAD komutlarının LISP içerisinde kullanılmasını sağlar. "line" n1 n2; n1 den n2 ye doğru çizilmesini sağlar "" ise n2 den sonra başka nokta bilgisi olmadığını yani doğru çiziminin bittiğini gösterir.
Örnek Lisp Dosyasını İndirin
002-topla.lsp