19.07.2011 19:28    

Bu kadar uzun ve karmaşık işleme gerek yok ki;

Ne yapılmak istendiğini tam anlamamakla birlikte, ben olsam;

- Text seçimini kontrollü yapıp, seçilmeye çalışan obje Text değilse
veya Enter girilip text seçilmemişse, temiz çıkış için...
- birinci nokta seçildikten sonra elastik bant (rubber band) kullanılarak,
ikinci noktanın seçiminin boşlukta kalmaması, yeni noktanın
mouse ile doğrultu belirlenip, klavyeden nümerik olarak ta girilebilmesi için.

Şu şekilde yazardım

19.07.2011 21:52    

Herşeyden önce, lisp dilini iyi anlamak lazım. fortran 2d'den başlayarak, assembly'de dahil aklınıza gelebilecek hemen tüm programlama dillerini kullandım. halen de kullanıyorum. bu bakımdan karşılaştırma şansı olan biri olarak söyleyebilirim ki; lisp bambaşka bir dil. zaten suni zeka (artificial intelligence) çalışmaları sırasında ortaya çıkan bir dil. insanların çoğu farkında değil ama, açık kaynak kodlu (open source) programların pek çoğu da lisp dilinde yazılmıştır. daha önce de bahsetmiştim. açık kaynak kodlu, stüdyo ses kayıt programlarının zirvelerinden biri olan audacity de lisp ile yazılmıştır. cad'çiler arasında, bir tek autolisp ve visuallisp var sanılıyor. halbuki autolisp ve visual lisp genel lisp programlama dilinin yalnızca özel lehçeleridir.

lisp in bu son derece kendine has özelliklerini kavrayıp alıştıktan sonra, düşüncelerinizin akışına bırakın kendinizi, akıp giden düşünce silsilesinde yazın. çünki lisp düşünceler gibi akıcıdır.

While döngüsü olayına gelince;

(while (Test) (iÅŸlemler) )
Test işleminin sonucu True olduğu sürece işlemler tekrarlanacaktır.

sizin örneğinizde, ilk while loop ta, test işlemi = seçilen obje text mi?
ben genelde, burada olduğu gibi, obje seçimini test bölümünde yapıyorum.
başka bazı dillerdeki mantıkla yazsaydık; while loop'a girmeden bir obje seçmemiz,
test bölümünde kontrol etmemiz, while loop'un içinde ama sonunda tekrar obje seçmemiz gerekecekti.

yukarıda verdiğim 2. örnekte, text objesinin seçimini entsel ile değil de ssget ile yapıyorum.
ssget'in ":s" özelliğini kullanarak tek obje seçiyorum. gene ssget'in filters özelliğini kullanarak yapnızca "text" objesi seçiyorum. ssget ile bu işlemi yaparken bahsettiğim kolaylıklarının yanında bazı problemleri de oluyor. fonksiyon object name olarak değil selection set olarak dönüyor. bunun için de tek objelik seçim setinden, (ssname ss 0) ile object name'e dönüyorum.

burada paylaştığım pek çok fonksiyonda, dikkat edilince görülebilecek bir uygulamamdan bahsedeyim; bir obje gurubu seçeceğiz ve bu selection set içindeki her bir objeyi sırasıyla işleme alacağız. çok karşılaştığımız bir işlem şekli.

lisp'in akıcılığını yakalayamış bir yazar bunu şöyle yazıyor.
(setq ss (ssget)) ;;; obje grubumuzu seçiyoruz.
(setq l (sslength ss) ;;; gurup içinde kaç obje olduğunu buluyoruz.
(setq n 0) ;;; sayaç olarak kullanacağımız n değerini sıfırlıyoruz.
(while (< n l) ;;; döngüye girdik, n sayacı l'den küçük olduğu sürece tekrarlanacak.
(..... iÅŸlemler....)
(setq n (+ n 1) ;;; sayaç değişkenimizin değerini 1 artırıyoruz.
)

ben buna benzer iÅŸlemi;
(setq l (sslength (setq ss (ssget))) n -1) ;;; burada setq içinde setq kullanımına dikkat.
(while (< (setq n (1+ n)) l)
(....IÅŸlemler...))

şeklinde, çoğu zaman da tek satırda yapıp bitiriyorum. daha derli toplu (compact) kod algoritmayı ıskalama riskimizi azaltıyor

gene sizin örneğinize dönersek;
ilk while loop'un içindeki işlem: her seferinde bir çift nokta seçimi yapıldığı sürece nokta seçmeye devam edeceğiz.
bir while loop daha kuruyoruz, burada test bölümü, iki nokta seçiminin de true dönmesi.
bu sebeple (and (setq ay (getpoint)) (setq ab (getpoint))) ÅŸeklinde bir test kuruyoruz.
bunun bir alternatifi de; (setq ay (getpoint) ab (getpoint)) olabilirdi.
ilkinde noktalardan herhangi biri nil döndüğünde döngü sonlanırken.
ikincisinde döngünün sonlanması için mutlaka ab değerinin nil dönmesi gerekirdi.
ay=nil ab=true durumunda döngüden çıkılamazdı.
iç while döngüsünden çıkınca, işlem dış döngünün obje (text) seçimiyle devam ediyor.

kolay gelsin...