캐드 분류
객체를 지정한거리만큼 이동하는 리습문의
컨텐츠 정보
- 242 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
여기 사이트에서 찾은 리습인데요
이리습은 지정거리만큼 이동을 하는리습인거같습니다.
거리를 지정하지말고 도곽이나 박스를 선택하면
그 도곽이나 박스 크기만큼
원하는 방향으로 이동할수있게 수정좀 부탁드립니다.
(defun c:ww ( / pt ppo )
(vl-load-com) ; 여기부터 아래 파란줄은 리습하는 분이면 무조건 불러와야 되는 습관적 함수임.
; 물론 vl 을 불러올때만 사용하지만, 귀찮아서 아무생각없이 불러옵니다.
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (* 180.0 (/ a pi)))
(defun tan (a) (/ (sin a) (cos a)))
(setq pt (getpoint "nt기준점 클릭 :"))
(setq ppo (polar pt (dtr 90) 10000.0)) ; pt 점에서 위쪽으로 길이를 ppo 만큼 이동.
; 그러니까 dtr 90 이 위쪽에 해당합니다.
; dtr 180 이면 왼쪽이 되겠죠~
; polar 함수를 사용하세요
(command "move" (ssget) "" pt ppo)
(princ)
)
관련자료
댓글 3
/ 1 페이지