포인트캠-AD > 묻고답하기 > 요것..명령어로 가능할까요?

	게시물 1,203건

[CAD] 요것..명령어로 가능할까요?

글쓴이 : 에스텍 날짜 : 2013-10-25 (금) 19:31 조회 : 3018

arc 명령어로 아크를 수동으로 작도할때요..

임의의 세점을 포인트로 딱딱딱 찍어주면 arc가 완성이 되는데..

자동으로 arc 끝 선분들이 지정해놓은 길이만큼 자동 연장이 되도록 할수 있을까요?.

에스텍 님의 묻고답하기 최신글 [더보기]

관리자

2013-10-26 (토) 04:55

[ 방법 1 ]

(defun c:AA () (c:PCAM-ArcDrawExtend)) ;;단축명령:AA
(defun c:PCAM-ArcDrawExtend ( / xlen elst sp ep)
   (setq xlen 5.0) ;;연장할 길이
   (command "_.arc" pause pause pause)
   (setq elst (entget (entlast)))
   (setq sp (polar (cdr (assoc 10 elst)) (cdr (assoc 50 elst)) (cdr (assoc 40 elst))))
   (setq ep (polar (cdr (assoc 10 elst)) (cdr (assoc 51 elst)) (cdr (assoc 40 elst))))
   (command "_.lengthen" "_de" xlen "_non" (trans sp 0 1) "_non" (trans ep 0 1) "")
   (princ)
)

[ 방법 2 ]
;;만약에 캐드명령만으로 한다면
(defun c:AA ()
   (command "ARC" pause pause pause)
   (command "LENGTHEN" "DE" "5.0" pause pause "")
)

에스텍

2013-10-26 (토) 13:37

감사합니다~