25.06.2024 13:57    

bayankapris61
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))
)

381614-selectedonside.txt

26.06.2024 06:14    

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

26.06.2024 08:09    

bayankapris61
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) 

bayankapris61 (26.06.2024 08:19 GMT)

> 1 <
Copyright © 2004-2022 SQL: 0.975 saniye - Sorgu: 53 - Ortalama: 0.01839 saniye