리습좀 바주세여….

(defun dtr(a) (setq x (* pi (/ a 180.0))))
;;;
(defun c:bb( / p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 dis ang )
(prompt “n ** rectangular **”)
(setvar “cmdecho” 0 )
(setvar “blipmode” 0 )
(graphscr)
(setvar “osmode” 0 )
(command “-layer” “m” “법면” “c” “7” “” “”)
(setq p1 (getpoint “n 하단을클릭하시요:” ))
(setq p2 (getpoint p1″n 상단을클릭하시요:” ))
(setq dis (distance p1 p2))
(setq ang (angle p1 p2 ))
(setq p3 (polar p1 (+ ang (dtr 0.0)) (/ dis 1.5 )))
(setq p4 (polar p1 (+ ang (dtr 0.0)) (/ dis 1.25 )))
(setq p11 (polar p1 (+ ang (dtr 0.0)) (/ dis 1.05 )))
(setq p5 (polar p11 (+ ang (dtr 90.0)) (/ dis 1.6 )))
(setq p6 (polar p11 (- ang (dtr 90.0)) (/ dis 1.6 )))
(setq p7 (polar p4 (+ ang (dtr 90.0)) (/ dis 3.0 )))
(setq p8 (polar p4 (- ang (dtr 90.0)) (/ dis 3.0 )))
(setq p9 (polar p3 (+ ang (dtr 90.0)) (/ dis 5.0 )))
(setq p10 (polar p3 (- ang (dtr 90.0)) (/ dis 5.0 )))
(command “Pline” p1 p3 p4 p11 p2 “”)
(command “Pline” p11 p5 p6 “”)
(command “Pline” p4 p7 p8 “”)
(command “Pline” p3 p9 p10 “”)
(setvar “osmode” 1 )
(command “-layer” “m” “현황” “c” “7” “” “”)
(princ)
)
실행하면요
p1 근처점…p2는 직교점으로
잡을려고 했는대요..
osnap모드를 켜서 사용하면 그림이 엉뚱하게 그려져요.
해결방법좀 갈켜 주세여