프로그램
캐드 분류

원을 4등분하는 리습 수정좀……

컨텐츠 정보

본문

안녕하세요.
리습 수정을 부탁하고자 글 올립니다.
첨부한 리습은 원을 4등분하여 호로 만드는 리습인데요.
첨부한 리습을 수정을 하고 싶습니다.

밑에 보시면 색깔이 다른글자를 보시면 circle만 선택이 가능하도록 되어있는데,
이 내용에다가, test레이어 추가 하고 싶니다.

그러니깐, test레이어를 가지고 있는 circle를 선택할려고 하는데,
어떻게 해야 하는지 알려 주시면 감사하겠습니다.




(defun c:CircleToArc ( / cirobj X cirent cirag1 cirag2 )


 (setvar "CMDECHO" 0)


 


 


 (setq cirobj (ssget (list (cons 0 "circle"))))


 (foreach X (vl-remove-if 'listp (mapcar 'cadr (ssnamex cirobj)))


  (setq cirent (entget X))


  (setq cirag1 0)


  (setq cirag2 (/ pi 2.0))


  (repeat 4


   (entmake (LIST (cons 0 "ARC") (cons 10 (cdr (assoc 10 cirent))) (cons 40 (cdr (assoc 40 cirent))) (cons 50 cirag1) (cons 51 cirag2)))


   (setq cirag1 (+ cirag1 (/ pi 2.0)))


   (setq cirag2 (+ cirag2 (/ pi 2.0)))


  )


  (entdel X)


 )


 


 (princ)


)

관련자료

댓글 2 / 1 페이지
전체 74 / 3 페이지
RSS
번호
제목
이름
알림 0