logo

한국어

칼럼

    오늘:
    93
    어제:
    96
    전체:
    69,166

도면 전체를 0,0 으로 보내기

2015.01.08 12:55

com4uinc 조회 수:284

명령어 : am

캐드 텍스트 창에서 am 이라고 치면 한점을 선택하라고 나옵니다.

그때 원하는 점을 선택하면 도면 전체가 선택되어 그 점이 0,0으로

갑니다.

그럼...

;point를 얻어서 도면 전체의 끝점을 0,0으로 옮기기 by 김도형

(defun c:am()
(setq old_osmode (getvar "osmode"))
(setq amp (getpoint "\nend point select.."))
(setvar "osmode" 0)
(command "move" "all" "" amp "0,0,0")
(command "zoom" "e")
(setvar "osmode" old_osmode)
(command "qsave")
(princ)
)