간단한 삼각기호를 그리는 Lisp인데요.
갑자기 에러메세지가 뜨면서 안되네요.
에러메세지는 다음과 같고요.
Command: 22
start point:
second point:error: null function
(DTR 120)
(POLAR P1 (DTR 120) 6)
(SETQ P2 (POLAR P1 (DTR 120) 6))
(C:22)
*Cancel*
lisp은 다음과 같습니다.
defun c:22 (/ p1 dis p2 p3 p4 p5 p6)
(setvar “osmode” 512)
(setq p1 (getpoint “n start point:”))
(setq p6 (getpoint “n second point:”))
(setvar “osmode” 0)
(setq p2 (polar p1 (dtr 120) 6))
(setq p3 (polar p2 (dtr 0) 6))
(setq p4 (polar p3 (dtr 0) 6))
(setq p5 (polar p4 (dtr 240) 6))
(command “pline” p1 p2 p3 p4 p5 p3 p1 “”)
(command “change” “l” “” “p” “la” “uy” “”)
(command “rotate” “l” “” p1 p6)
(COMMAND “MIRROR” “L” “” P1 P6 “”)
);22 END
무엇이 문제인지 좀 도움을 주시면 고맙겠습니다.
그럼.
p.s autocad r14를 사용하고 있습니다.