merhabalar,
ilgili lisp düzgün çalışıyor, seçim kısmında ilgili taraf tamam ama line üzerinde olanlar dahil olsun, merkezinden itibaren çoğunluk alanı o tarafta kalanları alıyor sadece. isteğim line objesine değen circlelar dahil olarak. Düzenledim fakat bir yerde bir hata var, işlemi gerçekleştirmiyor. burada kontrol ettiği noktalarda circle objesinin merkez noktasının çizginin seçtiğim tarafında kalıp kalmadığını parametre olarak alıyor. Yardımcı olabilir misiniz.
(setq circleList '())
(setq i 0)
(while (< i (sslength ss))
(setq circle (ssname ss i))
(setq center (cdr (assoc 10 (entget circle))))
(setq isLeftOfLine (isLeft startPoint endPoint center))
(if (or (and (eq side "Left") isLeftOfLine)
(and (eq side "Right") (not isLeftOfLine)))
(setq circleList (cons circle circleList))
)
(setq i (1+ i))
)
Circle nesnelerinin Line nesnesine değip değmediği kontrol edilmiyor. Circle nesnelerinin merkez noktasının koordinatı
hesap ediliyor. Bu yüzden ek bir bölüm yazdım. Ekte gönderiyorum. Kolay gelsin.
Alıntıehya :
Merhaba
Circle nesnelerinin Line nesnesine değip değmediği kontrol edilmiyor. Circle nesnelerinin merkez noktasının koordinatı
hesap ediliyor. Bu yüzden ek bir bölüm yazdım. Ekte gönderiyorum. Kolay gelsin. 3866-selectcirclesonside.lsp
çok iyi olmuş, teşekkür ederim. Dert görmeyin. (like)