(DEFUN C:M111(/ Qj Q@ QQ)(F:INIT(quote (“orthomode””osmode””snapang”)))
(SETVAR”orthomode”1)(SETVAR”osmode”0)(F:LAYS”PIPE”)
(SETQ Q@(GETPOINT”n배관의 시작점 : “))(WHILE Q@(COMMAND”_.LINE”Q@)
(SETQ QQ(GETPOINT Q@”n다음점 또는 <리턴키> 입력 : “))
(WHILE QQ(COMMAND QQ)(SETQ Q@ QQ)
(SETQ QQ(GETPOINT Q@”n다음점 또는 <리턴키> 입력 : “)))
(COMMAND””)(PRINC”n새로운 각도 입력 : “)
(SETQ Qj NIL)(WHILE(NOT Qj)(MENUCMD”p0=campus.pipeangle”)
(MENUCMD”p0=*”)(SETQ Qj(GETSTRING))(IF(<(STRLEN Qj)2)(SETQ Qj NIL)))
(COND((= Qj”00″)(SETVAR”snapang”(F:DTR 0)))((= Qj”30″)
(SETVAR”snapang”(F:DTR 30)))((= Qj”45″)
(SETVAR”snapang”(F:DTR 45)))((= Qj”60″)(SETVAR”snapang”(F:DTR 60)))
((= Qj”UNDO”)(SETQ Q@(CDR(ASSOC 10(ENTGET(ENTLAST)))))
(COMMAND”_.ERASE”(ENTLAST)””))(T(SETQ Q@ NIL))))(F:END)))(PRINC)
위 LISP FILE을 LOAD 시키면 왜 안되죠…
참고로 AUTOCAD 2002를 사용하고 있습니다.