객체를 일정값으로 이동하는 리습 부탁 드립니다.
컨텐츠 정보
- 300 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
무엇이든 배우고 자주 사용하지 않으면 무용지물인가 봅니다..
간단한 리습이지만 도무지 생각이 나지 않습니다 ㅜㅜ
이동하는 리습 작성 해주실 고수님 도와세요……
캐드에서 move -> 객체선택 -> 변위 -> 거리 이걸 한번에 하는 리습을 만들고 싶은데요…
(defun c:mmove()
(command "move"
이 다음 부터 막막합니다. 객체는 선택 구문은 무엇으로 해야될지…..
변위는 분명 위, 아래, 왼쪽 오른쪽이 있을터인데….
고수님들 부탁 드립니다 ㅜㅜ
관련자료
상큼메론90님의 댓글
아~ 위에 댓글을 보고, 이제 질문 이해가 되네요. 그러니까 위, 아래, 왼, 오른쪽으로 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) )
;
미스터히어로님의 댓글
아래 참고 사항을 보니 예전에 제가 질문 드렸던 것에 답변주신 내용입니다. 그때도 질문 제가 드리고
이전에도 상큼메론님이 답글 주셨어요.
상큼메론님 항상 감사합니다. ㅎㅎ
저 리습을 수정해서 사용해야겠어요…
제가 질문 드렸던 것은 변위랑 이동값을 지정해놓고 한 리습안에 예를들어
c:aa 는 선택한 객체를 왼쪽으로 10,000거리만큼 이동
c:dd 는 선택한 객체를 오른쪽으로 10,000거리만큼 이동
c:ww 는 선택한 객체를 위쪽으로 10,000거리만큼 이동
c:xx 는 선택한 객체를 아래쪽으로 10,000거리만큼 이동 하려고 하는데… 방향값을 어떻게 설정하는건지… 90, 180, 270, 360 이런식인지…………..
VLISP 책을 천천히 찾아보면서 해야되는데… 항상마음만 급해서ㅜㅜ