캐드 분류
연속으로 할수있게 수정좀 부탁드립니다.
컨텐츠 정보
- 119 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
상큼메론90 님이 올려주신 지정거리만큼 이동하는 리습입니다.
사용법은 객체선택하고 방향지정후 거리입력후 엔터입력하면
실행돼는리습입니다.
한번실행후 명령이 끝나버리는데
연속으로 이동돼게 수정좀 부탁드립니다.
리습초보이다 보니 어디를 어떻게 수정해야할지 모르겠네요..
(defun m:CP (/ _ORTHO _OSM P1 P2 P3 SS LST)
(setvar "cmdecho" 0)
(setq _ORTHO (getvar "orthomode")
_OSM (getvar "osmode")
)
(setvar "orthomode" 1)
(setvar "osmode" 0)
(if (= CC_A nil)(setq CC_A 0))
(if (= CC_DS nil)(setq CC_DS 0))
(setq SS (ssget))
(setq P1 (getpoint (strcat
"n>> 기준점클릭하거나 또는 기준값입력<"(rtos CC_A)">:")))
(if (/= P1 nil)
(setq P2 (getpoint P1 "n>> 두번째포인트 방향으로 클릭 :"))
)
(setvar "osmode" _OSM)
(menucmd "s=number")
(setq CC_DSS (getdist (strcat "n>> 이동거리는?<"(rtos CC_DS)">: ")))
(if (numberp CC_DSS)(setq CC_DS CC_DSS))
(if (/= P2 nil)
(setq ANG (angle P1 P2)
CC_A (rtd ANG)
)
)
(setq LST (strcat "@" (rtos CC_DS) "<" (rtos CC_A)))
(command "copy" SS "" "0,0″ LST)
(menucmd "s=s")
(setvar "orthomode" _ORTHO)
(princ)
)
(defun C:CP () (m:CP))
(princ "nt enhanced copy loaded. Command: CP")
(princ)
관련자료
댓글 2
/ 1 페이지
.gif)
