05.06.2011 21:10    

Bu işlem için "errno" sistem değişkenini kullanmak gerekir. biraz bahsetmek gerekirse tek nesne seçimi yapılırken boş bir yere tıkladığınızda errno sistem değişkeni 7 numarayı alır. mouse'un sağ tuşuna bastığınızda ise 52 değerini alır.
bununla beraber entsel kodunun başına while kullanırken döngüye şart bağlamalısınız. örneğin şu değer nil ise döngüye gir diye.
bundan sonra da entsel komutunu çalıştırır ve nesne seçimi yapmasını istersiniz. buradaki seçimde nesne seçilir yada seçilmez.
seçim yok ise errno değerine bakar, 7 ise while başındaki döngüye tekrar nil olmasını ister, 52 ise t yani döngü yapma deyip komutun bitirilmesini sağlarsız.
ancak seçim var ise, seçilen nesnenin dxf kodlarından yada veri tabanından nesne adını öğrenir, seçilen nesne text değil ise nil deyip tekrar başa dönmesini sağlayabilirsiniz. text ise yapmak istediğiniz işlemi yaptırırsınız.

bununla ilgili olarak daha önceden yazmış olduğum bir lispi paylaşayım. işinize yarayacaktır.

ayrıca teşekkür ederim. uzun zamandır lisp istemek yerine, lisp hakkında soru soran ve hatanın nasıl giderileceği konusunda bilgi isteyen kişisiniz.
umarım bundan sonra böyle bilgi isteyen kişilerin sayısı artar..

06.06.2011 18:52    

Ben bu lisp işine girdiğimde yaşım 18di. kimseden yardım almadan kurcalayarak kodların ne anlama geldiğini öğrendim. zaman içerisinde de kendimi geliştirdim. autocad'in yardım tablosu benim en büyük yardımcım idi. oradaki kodlardan aklıma kalanları zaman içerisinde kullanarak kendimi geliştirdim.
burada bahsettiğim errno değişkenini de bu şekilde öğrendim deneme-yanılma yani. o zamanlar internette bu bilgiler yoktu. şimdi ise yabancı kaynak da olsa mutlaka bilgi bulabilirsiniz.
"errno" sistem hataları ile ilgili bilgiler için aşağıdaki linkten bulabilirsiniz.



Linkleri görebilmek için ÜYE olmalısınız.

06.06.2011 21:43    

Genel anlamda kodlamada gördüğüm birkaç noktaya değinmek istedim. gerekli bilgileri resim üzerinde göstermek daha güzel olacaktır.

08.06.2011 18:48    

Bazı problemlerinizi çözdüğünüzü, ilerleme kaydettiğinizi keyifle izledim.

bir kaç noktaya dikkatinizi çekmek isterim.

ilk yazdığınız kod içinde (while (> 10)... ifadesi var. böyle bir ifade olmaz, 10'dan büyük olması kontrol edilecek nedir? bu tür kontrol ifadeleri (operatör parametre1 parametre2 ... parametren) formatında en az iki parametreli olur. özel halleri vardır; (if eob) dersek, eob değişkeni nil ise nil, nil değilse true değerini elde ederiz. ama sizin yazdığınız gibi, (> 10) dersek hangi değerin 10'dan büyük olduğunu sınamak istediğimizi autolisp bilemez.

(if (null ent)
(progn
); and progn
);end if

bu bölümde bir kere (null ent) diye bir ifade olmaz. ent değişkeni ile null değeri arasında ne tür bir ilişkiyi kontrol ediyoruz?
bu bölüm doğru olsa bile, hiç bir şey yapmamak için, hiç bir şeyi kontrol ettirmeme gibi bir yöntem olamaz.

burada ent değeriniz ne olursa olsun, program bir sonraki adımdan devam edecektir. sizin araya koyduğunuzu (if... anlamsız ve boş bir bölümdür? yazılmasının bir anlamı ve gereği de yok...

öncelikle fonksiyon akışını ve mantığını çok net olarak kurmalısınız, ilk paylaştığınızı fonksiyonda böyle bir algoritma bütünlüğü olmadığı için autolisp komutlarının detayında boğulmuşsunuz.

ilk mesajınızda "yukarıdaki kodlarım çalışıyor ancak. bazı sorunlarım var" demişsiniz. yukarıda bahsettiğim if ve while direktiflerinin kontrol bölümleri yanlış olduğu için yazdıklarınızın çalışıyor olması mümkün değil. bir şeye dikkatinizi çekerim! yazılan fonksiyonun hata koduyla sonlanmıyor olması onun çalıştığını ve doğru olduğunu göstermez. hata ile sonuçlanmayan fonksiyon ne yapıyor? hedeflenen işlemi gerçekleştiriyor mu?

ehya hocamın verdiği örneklerle bir kademe daha olayın içine girdiğinizi düşünerek bunları şimdi yazıyorum. ilk fonksiyonunuzda ne yapmak istediğinizi tam olarak adım adım ifade ederseniz, buradan birlikte fonksiyonunuzu en sade haliyle yeniden yazıp, hem sizin hem de konuya ilgi duyan arkadaşlarımızın faydalanabilecekleri bir örnek oluşturulur diye düşünüyorum.

zaman zaman, ilgi duyan arkadaşlara örnek olabilecek kodlama örnekleri paylaşıyoruz.
sıklıkla kullandığımız extend işlemini yaparken, ya epeyce uğraşarak boundary seçiyoruz, ya da kestirmeden enter girip boundary olarak all seçiyoruz. bu seferde extend edeceğimiz objelerin çoğunu bir kaç adımda, bir kaç defa ucundan tıklayarak işlemi gerçekleştiriyoruz. bu noktada bir detaya dikkatinizi çekmek isterim. her zaman olmasa bile genelde extend edeceğimiz objeleri kendi layer'ındaki başka objelere kadar uzatıyoruz. dediğim gibi, her zaman böyle değil ama, genelde mesela duvar layer'ındaki bir çizgiyi gene duvar layer'ındaki diğer objelere kadar uzatıyoruz. Bahsettiğimiz işlemi çok basit ve sade bir şekilde açıklamalı olarak yazmaya çalışalım;


Bu fonksiyonu daha derli toplu yazarsak;
Şeklini alır. bu fonksiyon geliştirilebilir elbette. mesela boundary olarak daima ilk objenin bulunduğu layer'daki objeleri ele alarak hepsinde aynısını kullanıyor, küçük bir değişiklikle, her seçilen objenin kendi layer'ındaki başka objelere kadar uzatılması sağlanabilir.

sizin de çözmeye çalıştığınız kontrollü ve sürekli obje seçerek işleme alma konusunda bir örnek olabilir diye düşünüyorum.
kolay gelsin.