Küçük bir lisp hazırlıyorum. IF kullanmayıp, bu seferde cond kullanayım dedim ama, bir türlü birleştiremedim.
nerede hata yapıyorum ? yardımcı olabilirmisiniz.
Teşekkürler. Yazılar için oldu. Ancak daireleri seçmiyor. sadece yarı çap değerini veriyor... 2 girdiğimde. komut yarı çap değerini verip sonlanıyor. Daireleride aynı yazıda olduğu gibi ( burda referans yarı çaptır.) seçmesi gerekiyordu.
Kod yazarken notepad++ veya visual lisp editörünü kullanırsanız parantez karşılıklarını kolayca takip edebilirsiniz böylelikle hata yapmazsınız. Bence kodu şu şekilde düzenlersek daha yakışıklı olucaktır.
Ssget ile seçim setine iki opsiyon text ve circle ı koyarsak soru cevaplama zahmetinde bulunmayız.
Kod:
(defun c:stc (/ ss)
(if (setq ss (ssget ":s" (list (cons 0 "*TEXT,CIRCLE"))))
(sssetfirst nil (ssget "X" (list (assoc 0 (entget (ssname ss 0)))
(assoc 40 (entget (ssname ss 0))))))
) (princ)
)