Autolisp Derslerİ

[otokoc]

DEĞİŞKENLER

Değişkenler, SETQ fonksiyonu kullanılarak değerlerin. atandığı karakter veya karakterler dizisidir. İlk harfi bir karakter olmak şartıyla değişken isimleri içinde tamsayı veya reel sayı olabilir. Değişkenlere verilecek isimler istenilen uzunlukta olabilir. Büyük küçük harf ayrımı yapılmaz. Ancak değişken ismi içinde boşluk karakteri bulunamaz.

Kullanılabilecek değişken isimlerine aşağıdakileri örnek verebiliriz.
ABX YCAP nokta1 kabin5a

Geçersiz değişken isimlerine örnekler ise ;
12A 1,Z 1nokta TAM SAYI

Değişken isimlerinin seçimi kurallara uymak şartıyla kullanıcının isteğine göre değişebilir. Değişken isimleri genellikle kendisine atanan değeri tanımlayacak şekilde verilir. Bu, daha sonraki fonksiyonlarda hangi değişkenin hangi değere veya fonksiyona ait olduğunun hatırlanması bakımından kolaylık sağlar.

(setq <değişkenadı> <değer>.......)

[otokoc]

Örnekler

(defun toplama ()
(setq tamsay1 (getint "BIRINCI SAYIYI GIRINIZ :"))
(setq tamsay2 (getint "IKINCI SAYIYI GIRINIZ :"))
(setq toplam (+ tamsay1 tamsay2))
(princ "\nSONUC : ")
(princ toplam)
(princ)
)

(setq A C)
(setq ODA5 2.678)
(setq ISIM "ENDER CIKIS")

Yukandaki son örnekte görüldüğü gibi ISIM değişkenine ENDER CIKIS yazı dizisi atanmıştır. Burada dikkat edilmesi gereken değişkenlere atanacak yazı dizilerinin veya ekranda yazdırılacak iletilerin " " içinde yazılmasıdır ("BIRINCI SAYIYI GIRINIZ" gibi).

Bir tek setq fonksiyonu içinde birden fazla değişkene değer ataması da yapılabilir.

(setq A 6
ODA5 2.678
ISIM "ENDER CIKIS"
)

veya

(setq A 6 ODA5 2.678 ISIM "ENDER CIKIS")

gibi.

Örneklerde görüldüğü gibi bir tek setq fonksiyonu kullanılarak, aynı fonksiyon içinde A, ODA5 ve ISIM değişkenlerine aynı anda değer ataması yapılmıştır.

Değişkenlere nokta koordinatlarının atanması biraz daha farklıdır. Nokta koordinatları parantez içinde yazılmalıdır. İki boyutlu bir nokta için parantez içine o nokta koordinatının X ve Y değerleri, üç boyutlu bir nokta içinse o nokta koordinatının X, Y ve Z değerleri yazılır.

Örn:

(X Y) ® (5 8) (2.25 6.3)

(X Y Z) ® (5 8 3) (4 7.45 0) gibi

Bu nokta koordinatları, bir değişkene atanarak işleme sokulmak istendiğinde " LIST " fonksiyonunun kullanılması gerekir. Bu fonksiyon bir liste tanımlaması yapar.

Örn 1:

(setq POINT1 (list 3.45 8))

Bu fonksiyon POINT1 noktası için noktanın X değerinin 3.45 Y değerinin ise 8 olduğunu belirtir.

Örn 2:

(setq P1 4)

(setq P2 (list 3.45 P1))

Örnek 2 de önce P1 değişkenine 4 değeri atanıyor. İkinci satırda P2 değişkenine bir liste atanıyor. Bu listenin ilk elemanı 3.45 sayısı ikinci elemanı ise P1 değişkeninin değeridir. Yani P2 noktasının koordinatının X değeri 3.45 iken Y değeri P1'e atanmış değerdir.

Aşağıdaki örnekte ise K değişkenine nil (boş) değeri atanmaktadır. Yani K değişkenine daha önce atanmış bir değer varsa bu değer iptal edilmiş olur.

(setq K nil)

AutoLISP programlarının yazılmaları esnasında açıklamalar yazılması gerektiğinde bu açıklamalar " ; " (noktalı virgül) ile başlar. Noktalı virgül satır başında konmuş ise satırın tamamı açıklama olarak kabul edilir ve işleme konnıaz. Noktah virgül, satır başmda değil de işleme konan bir program satırmda ise noktah virgülden sonraki kısım işleme konmayarak açıklama olarak kabul edilir.

Kısaca noktalı virgül Basic dilindeki açıklama satırlarının başına konan REM komutuna benzer.
Aynca AutoLISP fonksiyonları bölümünde setq fonksiyonuna da bakınız.

[otokoc]

ÖZEL KURALLAR

$ İfadeler ve fonksiyon isimleri içinde ( ). ' ; " gibi karakterler bulunamaz.
$ Deyimler ve ifadeler sığmadıkları takdirde birden fazla satıra taşabilir.

$ İfadeler arasında birden fazla olan boşluk karakterleri tek bir boşluk olarak kabul edilir.

$ Değişkenler ve fonksiyon isimleri bir rakam ile başlayamaz. Değişken isimleri arasında boşluk karakteri kullanılamaz.

$ Reel tamsayılar bir veya daha fazla tamsayı, ardından bir nokta ve sonra da bir yada daha fazla ondalık değer içerebilir. Örneğin 0.5 veya 0.8 aynen yazılmalıdır. Eğer .5 veya .8 olarak yazılırsa program tarafindan kabul edilmezler.

$ Bir değişkene atanan değer, o değişkene yeni bir değer atanıncaya veya AutoCAD ortamından çıkılıncaya kadar korunur.

$ Ekranın komut alanında görüntülenmesi istenen bir yazı, " " içine yazılmış olmadır (prompt örneğine bakınız).

$ Bir AutoCAD iletisine bir lisp deyimi ile yanıt verilmek istendiğinde bu yanıtın ilk karakteri "!" olmalı veya ( ) içinde yazılmalıdır.

$ Tırnak işaretleri içine konacak \ işareti özel kontrol karakterlerinin kullanılmasına olanak sağlar. Bu kontrol karakterleri

\\ \ Karakteri

\e Escape

\n Satırbaşı (next line)

\r Return (Enter)

\t Tab

\nnn octal kodu nnn olan karakter

olarak tanımlanmıştır.

[otokoc]

DOSYALARIN YÜKLENMESİ

AutoCAD ortamına, ekranda Command : iletisi varken aşağıdaki satır yazıldığında "dosyaadı" olarak belirtilen AutoLISP dosyası yüklenir.

(load "dosyaadı") şeklinde olur.

Eğer dosya bir diskette veya çalışılmakta olan directory’den başka bir yerde ise dosya adı adresiyle birlikte yazılmalıdır.


Örn:

(load "<drive>:/<directory>/dosyaadı")

Bir sol parantez içinde yazılan Load ifadesinden sonra tırnak içinde yüklenecek *.LSP uzantılı dosyanın adı yazılır. Geliştirilen AutoCAD versiyonlarında LISP dosyalarının yükleme işlemi kolaylaştırılmaktadır. Örneğin AutoCAD R.12 de LISP dosyalarının işlemi Pulldown Menu’deki Files menü başlığında yeralan Applications butonu sayesinde kolaylıkla yapılabilmektedir.

Aşağıda, girilen açı değerini radyan cinsine çeviren bir fonksiyon yeralmaktadır. Fonksiyonu, ASCII forınatta dosya saklayabilen bir kelime işlemcide yazuı. Saklarken ASCII fornıatta olmasına ve uzantısıııın *.LSP olmasına dikkat ediniz. Bu öıneğimizin saklandığı LSP uzantılı ASCII dosyamıın acı.lsp olduğunu varsayalım. Fonksiyonun yazılışına ve AutoCAD ortamına çağrılarak çalıştıntmasına dikkat ediniz ;

Fonksiyonun yazılması ;

(defun cevir (a) ;fonksiyonu tanımla, fonksiyonun adı cevir
(* pi (/ a 180.00)) ;a değerini 180'e böl, pi ile çarp
)

AutoCAD ortamına çağrılması ;

(load "aci")

Çalıştrılması ;

(cevir 180)

Program bu işlemin sonucu olarak 3.1415926 yazacaktır. Bu 180 derecenin radyan cinsinden karşılığıdır. Bu arada şunu da hatırlatmakta yarar var : AutoLISP'de açılar radyan cinsinden hesaba konur. Radyan cinsinde açılar

Oo = 0
90o = 1.570796
180o = 3.141592
270o = 4.7I2389
değerlerine sahiptir.

Dikkat edilirse buraya kadar olan fonksiyon örnekleri, en son anlatılan konu ışığında

(load "dosyaadi")

şeklinde çağrılmakta. Ancak bu fonksiyonları bir AutoCAD komutu gibi çağırmak da mümkün. Aşağıdaki örneği inceleyiniz.

(defun c:cevir (/ a)
(setq a (getint "TAMSAYI ACI DEGERINI GIRINIZ : "))
(setq a (* pi (/ a 180.00)))
(princ "\nSONUC : ")
(princ a)
(princ)
)

Dikkat edilirse fonksiyonda yaptığımız en önemli değişiklik, fonksiyon adı olan cevir'den önce c: yazmak oldu. Yazdığımız bu program AutoCAD ortamına yüklendiğinde yükleme işlemi tamamlanır tamamlanmaz ekranda c: cevir iletisini görüntüler. Burada kullanılan c: işletim sisteminde kullanılan ve sürücüyü tanımlayan c: anlamında
değildir. Bu iletiden sonra ekranda Command: iletisi varken cevir yazıldığında program tamsayı olarak açı değerinin girilmesini ister. Değer girildikten sonra da bu değerin radyan cinsinden karşılığını yine ekrana yazar.

Bu şekilde yazıldıktan sonra AutoCAD ortamına yüklenmiş olan bir LISP program dosyası AutoCAD ortamından çıkılana kadar tıpkı bir AutoCAD komutu gibi çalışır. AutoCAD'in her yüklenişinde bu tür fonksiyonların komut gibi çalıştırılması istenirse bu fonksiyon adlarının acad.lsp dosyasına ilave edilmesi gerekir. Acad.lsp dosyası AutoCAD'in her çalıştırılışında otomatik olarak yüklenen (çağrılan) bir dosyadır

[ayasofya]

tebrikler ve teşekkürler

[otokoc]

Örnekler :

(- A cap1) A - cap1 ; anlamındadır.
(+ 50 H) 50 + H ; anlamındadır.
(/ YUKSEKLIK 4) YUKSEKLIK / 4 ; anlamındadır.
(* pi 2) pi * 2 ; anlamındadır.
(/ 80 4 2) 80 / 4 / 2 = 10 ; sonucunu verir.
(- 50 10 25 10.5) 50-10-25-10.5=4.5 ; sonucunu verir.
(+ 50 10 25 10.5) 50+ 10+25+ 10.5=95.5 ; sonucunu verir.
(* pi (/ a 180.00)) pi * a / 180.00 ; anlamındadır.

(/ 20 ( * (+ (- A B) n1 ) 5) )

Yukarıdaki satırda yeralan işlemlerin sırası ise ;

· A 'dan B 'yi çıkar,
· çıkan sonuçla n1 'i topla,
· çıkan sonuçla 5 ‘i çarp,
· 20 'yi çıkan sonuca böl.

[otokoc]

(ssget (<mod> [nokta1> [<nokta2>] ] )

Bu fonksiyon bir seçim grubu elde edilmesinde kullanılır. [ ] içinde yazılmış ve belirtilmeleri isteğe bağlı olan değişkenlerin hiçbirinin kullanılmaması durumunda fonksiyon obje seçimini kullanıcının yapmasını ister. Bu AutoCAD'in standart "Select object :" iletisi ile yapılacak obje seçimini gerçekleştirir.

<mod>, AutoCAD'in standart obje seçiminde kullandığı window, crossing, previous gibi seçim modlarından biridir.

Mod Anlamı
w Window yöntemi. Tanımlanan pencere içine tamamı
giren objeler seçilir.
"c" Crossing yöntemi. Tanımlanan pencere içine tamamı
giren objeleı1e birlikte pencerenin herhangi bir kenarına
en küçük noktası dahi temas eden objeler seçilir.
"L" Last yöntemi. Çizim ortamınn katılan en son obje seç1lir.
"p" Previous yöntemi. Bir önceki obje seçme işlemi.
sırasında seçilmiş olan objeler seçilir.
Belirtilmesi isteğe bağlı olan <nokta1> ve <nokta2> "w" veya "c" yöntemi kullanıldığında açılacak olan pencerenin karşılıklı iki köşe noktasının verilmesinde kullanılır.
Sadece <nokta1> verildiğinde verilen bu noktanın üzerinde olduğu obje seçilir.

Örnek:

(ssget) seçimi kullanıcının yapması beklenir.
(ssget "w" '(3 3) '(7 7)) Karşılıklı köşe noktaları 3,3 ve 7,7 koordinatlarında
olan pencerenin içine tamamı giren objeler seçilir.
(ssget "c" '(3 3) '(7 7)) Karşılıklı köşe noktaları 3,3 ve 7,7
koordinatlarında olan pencerenin içine
tamamı giren objelerle birlikte pencerenin
herhangi bir kenarına en küçük noktası
dahi temas eden objeler seçilir.
(ssget "p") Bir önceki obje seçme işlemi
sırasında seçilmiş olan objeler seçilir.
(ssget "L") Çizim ortamına katılan en son obje seçilir.
(ssget '(5 5)) 5,5 koordinatından geçen obje seçilir.

Fonksiyon sadece herhangi bir parametre olmadan (ssget) şeklinde kullanıldığında kullanıcının seçtiği objeler aydınlatılır.

Örnek :

(defun c:sil (/ p1 p2 s1)
(setq p1 (getpoint "\nPENCERENIN BIRINCI NOKTASI :"))
(setq p2 (getcorner "\nDIGER NOKTASI :"))
(setq s1 (ssget "w" p1 p2))
(command "erase" s1 "")
(princ)
)

Yukardaki örnek program, açılacak pencere içine tamamı giren objeleri seçtikten sonra AutoCAD'in ERASE komutunu kullanarak siler.

[otokoc]

(sslength <set>)

Bu fonksiyon bir seçim grubu içinde bulunan objelerin sayısını verir. Bu sayı bir tamsayıdır. Seçim grupları hiçbir zaman aynı şeklin ikinci kez seçimini bulundurmaz. <set>, seçim grubunu belirten değişkendir,

Örnek :

(defun c:objesay (/ p1 p2 obje s1 sayi)
(setq p1 (getpoint "\nPENCERENIN BIRINCI NOKTASI :"))
(setq p2 (getcorner "\nDIGER NOKTA :"))
(setq obje (ssget "w" p1 p2)) ; objeleri seç, obje'ye ata
(if (/= obje nil) ; obje değişkeni boş değilse
(progn ; bunları yap
(setq s1 (sslength obje)) ; obje sayısını öğren, s9' ata
(setq sayi (itoa s1)) ; s1 'in dizgiye çevirsayı'ya ata
(princ (strcat "\nSECIM KUMENIZDE" sayi "ADET OBJE VAR") )
)
(princ "\nSECILEN OBJE YOK") ; obje değişkeni boşsa bunu yap )
)
(princ)
)

[otokoc]

(ssname <set> <arg>)

Bu fonksiyon, <set> belirtilmiş olan seçim grubu içindeki <arg> 'ıncı objenin ismini sonuç olarak verir. Fonksiyona sağlanan <arg> değeri bir tamsayı olmalıdır. Eğer <arg> Tamsayı negatif bir sayı yada seçim grubunda yeralan obje adedinden fazla ise nil sonucu elde edilir. Seçim grubundaki ilk eleman için <arg> değeri 0 (sıfir)'dır.

Örnek :

(defun c:objeisim (/ p1 p2 ob s1 sayi)
(setq p1 (getpoint "\nPENCERENIN BIRINCI NOKTASI :"))
(setq p2 (getcorner "\nDIGER NOKTA :"))
(setq ob (ssget "w" p1 p2)) ; objeleri seç, ob 'a ata
(if (/= ob nil) ; ob değişkeni boş değilse
(progn ; bunları yap
(setq s1 (sslength ob)) ; obje sayısını öğren, s1' e ata
(setq sayi (- s1 1)) ; s1'i 1 eksilt sonucu sayı'ya ata
(ssname ob sayi) ; ob'daki sayı'ncı objenin adını ver
) ; obje değişkeni boşsa hiçbirşey
) ; yapma
)

[otokoc]

şimdilik bu kadar.... iyi çalışmalar.....
.sld
.dcl
yakında.....

[Melody]

Tüm anlatımlar için çok teşekkürler. Atık bizler de kendi lisplerimizi yazabileceğiz

[otokoc]

yardımcı olabildimse ne mutlu...yalnız buraya lisp ile ilgili
en temel fonksiyonları yazdım. daha sonra istek olursa
diğerlerinide yazabilirim. kolay gelsin..

[otokoc]

(ssadd [<isim> [<set>] ] )

Bu fonksiyon, verilmesi isteğe bağlı olan parametreler belirtilmeden kullanıldığında ssget fonksiyonu gibi çalışacak fakat oluşturulacak seçim setinin hiç elemanı bulunmayacaktır.
Fonksiyon <isim> olarak bir obje ismi verilerek çalıştırıldığında, sadece bu <isim> 'deki objeden oluşan yeni bir seçim seti meydana getirecektir.

Her iki parametre de kullanılarak, yani hem obje ismi <isim> , hemde önceden oluşmuş bir seçim setinin adı <set> verilerek çalıştırıldığında ise <isim> olarak belirtilen objeyi <set> olarak belirtilen seçim setine ilave edecektir.

SSADD fonksiyonu sonuç olarak herzaman yeni seçim setini verir. Eğer mevcut <set> bir değişkene atanmışsa değişkenlerde bu düzenlemeden etkilenecek ve yeni seti kullanacaklardır.
Bunlarla birlikte, eğer <isim> olarak belirtilmiş olan obje <set> olarak belirtilmiş seçim setinde zaten mevcut ise fonksiyon kendini otomatik olarak iptal edecek ve bununla ilgili olarak herhangi bir hata oluşmayacaktır.

[otokoc]

(ssdel <isim> <set>)

SSDEL fonksiyonu, <isim> olarak belirtilmiş ismin ait olduğu şekli <set> olarak belirtilmiş olan seçim setinden siler. Sonuç olarak da seçim setinin adını verir. Bu işlem sonucunda elde edilecek olan seçim seti ssadd fonksiyonunda olduğu gibi yeni bir seçim seti olacaktır.

Eğer belirtilen <set> içinde <isim> yoksa fonksiyon sonucu nil olacaktır.

[otokoc]

ACADVER (Read Only) : AutoCAD Versiyon numarası.

AFLAGS : Attdef Komutu için niteleyici işaretleri :
1= Görünmez
2= Sabit
3= Doğrulama

ANGBASE : 0 Açı yönü.

ANGDI R : 1= Saat yönü açıları.
0= Saatin ters yönü açıları

APERTURE : Birimkare olarak hedef kutucuğunun boyutu.

AREA (Read Only) : Area, List veya Dblist ile hesaplanmış en son alan.

ATTDIA : 1 ise, Insert işlemi sırasında niteleyicideki değerler değiştirilebilir.
0 ise değiştirilmez.
Default değeri 0 dır.

ATTMODE : Niteleyici görüntü modu ;
0 = OFF,
1= NORMAL,
2=ON.

ATTREQ : 1 ise, Insert işlemi sırasında niteleyicideki değerleri gösteren, istenirse yeni değerlerin girilmesine olanak sağlayan Attribute Tag ve Attribute Prompt iletileri görüntülenmez. 0 ise görüntülenir.