객체를 일정값으로 이동하는 리습 부탁 드립니다.

아래 참고해 보세요~~

http://inventor.gocad.co.kr/qa_cad/2032636/page/613

//

아래 참고 사항을 보니 예전에 제가 질문 드렸던 것에 답변주신 내용입니다. 그때도 질문 제가 드리고 이전에도 상큼메론님이 답글 주셨어요. 상큼메론님 항상 감사합니다. ㅎㅎ 저 리습을 수정해서 사용해야겠어요… 제가 질문 드렸던 것은 변위랑 이동값을 지정해놓고 한 리습안에 예를들어 c:aa 는 선택한 객체를 왼쪽으로 10,000거리만큼 이동 c:dd 는 선택한 객체를 오른쪽으로 10,000거리만큼 이동 c:ww 는 선택한 객체를 위쪽으로 10,000거리만큼 이동 c:xx 는 선택한 객체를 아래쪽으로 10,000거리만큼 이동 하려고 하는데… 방향값을 어떻게 설정하는건지… 90, 180, 270, 360 이런식인지………….. VLISP 책을 천천히 찾아보면서 해야되는데… 항상마음만 급해서ㅜㅜ

아~ 위에 댓글을 보고, 이제 질문 이해가 되네요. 그러니까 위, 아래, 왼, 오른쪽으로 10,000 거리로 이동한다는 거군요

아래 간단한 리습을 만들었어요. 연구해 보세요 위쪽으로 움직이는 것만~~~

명령어는 ww 로 해 달라고 하셨으니

(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) )

;

무한 피드백 진심으로 감사합니다