분기관LISP만들어봤습니다..

분기관 삽입을 편하게 하려구 간단하게 LISP을 만들어 봤습니다.

LISP사용때마다 POLAR 로 지정된 점들이 엉망으로 찍히네요ㅡㅡ;

해결방법이 없을까요?????

(DEFUN C:hh ( / p1 p2 p3); Sukhwan

(SETQ Pnt1 (GETPOINT "\n 필지 꼭지점"))

(SETQ Pnt2 (GETPOINT Pnt1 "\n 본관 직교점"))

(SETQ Pnt3 (GETPOINT Pnt2 "\n 분기관 방향"))

(SETQ PM (ANGLE Pnt2 Pnt1))

(SETQ Pnt4 (POLAR Pnt1 PM 1.0))

(SETQ T (ANGLE Pnt2 pnt3))

(SETQ Pnt5 (POLAR Pnt4 T 3))

(SETQ Pnt6 (POLAR Pnt2 T 3))

(SETQ B2 (POLAR Pnt5 T -0.5))

(SETQ B1 (POLAR B2 PM -0.5))

(SETQ B3 (POLAR Pnt5 T 0.5))

(SETQ B4 (POLAR B3 PM -0.5))

(COMMAND "LAYER" "M" "check branch" "C" "8" "" "" )

(COMMAND "LINE" pnt2 pnt4 pnt5 Pnt6 "")

(COMMAND "LAYER" "M" "Branch" "C" "4" "" "" )

(COMMAND "PLINE" pnt5 Pnt6 "")

(COMMAND "PLINE" B1 B2 B3 B4 "")

)