홈/ 질문/Q 109889
다음
진행 중
윌러러러이
Lv.0
등록일: 2018-06-02T15:45:18+09:00 카테고리:

같은 원점을 가지는 원을 모두 선택하고 싶습니다.


(defun c:test ()
(setq ssc (entget (car (entsel “nt>> 기준 원 선택 :”))))
(setq layn (cdr (assoc 8 ssc)))
(setq srad (cdr (assoc 40 ssc)))
(setq ss2 (ssget (list (cons 0 “arc,circle”) (cons 8 layn) (cons 40 srad))))
(setq rad (cdr (assoc 40 (entget (car (entsel “n>>> 원 선택”))))))
(setq n 0)
(setq newss (ssadd))
 (repeat
 (sslength ss2)
        (setq cc (cdr (assoc 10 (entget (ssname ss2 n)))))
 (setq o (ssget “X” (list (cons 0 “circle”) (cons 10 cc) (cons 40 rad))))
 (ssadd o newss)
 (setq n (1+ n))
 )
(sssetfirst nil newss)
(princ)
);defun

———————

오류: 잘못된 인수 유형: lentityp <Selection set: c3a>

———————

기준이 되는 원을 선택하고

선택되어진 원들과 같은 기준점을 가지는 원( 특정 반지름을 가지는)들을

모두 선택하고 싶습니다.

 

여기저기서 짜집기해보았지만 실행되지 않네요ㅜ

 

 

 

 

해결 방법 아신다면 좀 알려주시면 감사하겠습니다.

공유

    관련 있는 질문들

    8 답변

    1. aalan
    2. Lv.0

      뭐하남님 덕분에 해결됐습니다 감사합니다~^^

      • 0
    3. Lv.0

      수야님 관심가지고 답변주셔서 감사합니다^^

      • 0
    4. (defun c:test ( / s el i s1 s2 s3 ent l)
      (if (setq s (car (entsel “nt>> 기준 원 선택 :”)))
      (progn
      (setq el (entget s))
      (if (setq s1 (ssget “x” (list (cons 0 “circle”) (assoc 40 el))))
      (repeat (setq i (sslength s1))
      (setq l (cons (cdr (assoc 10 (entget (ssname s1 (setq i (1- i)))))) l))
      )
      )
      (setq s2 (ssget “x” (list (cons 0 “circle”))))
      (setq s3 (ssadd))
      (repeat (setq i (sslength s2))
      (setq ent (ssname s2 (setq i (1- i))))
      (if (and
      (not (ssmemb ent s1))
      (vl-some ‘(lambda (x) (equal x (cdr (assoc 10 (entget ent))) 0.001)) l)
      )
      (ssadd ent s3)
      )
      )
      (sssetfirst nil s3)
      )
      )
      (princ)
      )
      • 0
    5. Lv.21
      (defun c:test ()
      (setq ssc (entget (car (entsel “nt>> 기준 원 선택 :”))))
      (setq layn (cdr (assoc 8 ssc)))
      ;(setq srad (cdr (assoc 40 ssc)))
      (setq a10(cdr(assoc 10 ssc)))
      (setq ss2 (ssget (list (cons 0 “arc,circle”) (cons 8 layn) (cons 10 a10))))
      (sssetfirst nil ss2) 
      (princ)
      );defun
      (defun c:test1 ()
      (setq ssc (entget (car (entsel “nt>> 기준 원 선택 :”))))
      (setq layn (cdr (assoc 8 ssc)))
      ;(setq srad (cdr (assoc 40 ssc)))
      (setq a10(cdr(assoc 10 ssc)))
      (setq ss2 (ssget “x”(list (cons 0 “arc,circle”) (cons 8 layn) (cons 10 a10))))
      (sssetfirst nil ss2) 
      (princ)
      );defun
      사족이지만 그런데 그냥 드래그로 선택하시지 왜  리습으로??? 
      • 0
    6. Lv.0
       
       
      수야님 감사합니다.
       
      첨부한 그림처럼 노란색 원과 같은 원점을 가지는 희 원을 선택하고 싶습니다.
      • 0
    7. Lv.21
       잘 수정하시고 의미없는 구문을  추가하셨네요 
      (defun c:test ()
      (setq ssc (entget (car (entsel “nt>> 기준 원 선택 :”))))
      (setq layn (cdr (assoc 8 ssc)))
      (setq srad (cdr (assoc 40 ssc)))
      (setq ss2 (ssget (list (cons 0 “arc,circle”) (cons 8 layn) (cons 40 srad))))
      (sssetfirst nil ss2) 
      (princ)
      );defun
      녹화_2018_06_04_16_25_47_743.gif
      • 0
    8. Lv.0
      우기로기님 감사합니다.
       
      그런데 글에 썼듯이 제가 짜집기로 만든거라 수정할 실력이 되지 않습니다.ㅜㅜ
       
      혹시 수정해 주실 수 없으신지요??
      • 0
    9. Lv.0

      (ssadd o newss)  ;; 이구문이 잘못되었네요

      o 자리에 entity name 이 와야 합니다.

      이부분도 수량만큼 repeat 를 돌려야겠네요

      • 0