명령어 사용후 osnap을 자동 실행하려면 어디를 수정해야하는지요?
(defun c:clm(/ )
(graphscr)
(defun dtr (a)
(* pi (/ a 180.0)))
(setvar “osmode” 0)
(setvar “cmdecho” 0)
(setq f1 nil)
(setq p4 nil)
(setq e 3)
(setq f2 nil)
(setq p2 nil)
(setq c 0)
(setq p1 (getpoint “Enter first point”)) (terpri)
(command “pline” p1 “w” “0” “0” “A”)
(setq p7 p1)
(while e
(if (/= p3 nil) (setq f1 p4))
(if (> c 1) (setq f1 (polar p4 a d)))
(setq p2 (getpoint “next point ” p1)) (terpri)
(if (= ‘p7 p2) (progn
(setq e nil))
)
(setq c (+ c 1))
(setq a (angle p1 p2))
(setq aa (distance p1 p2))
(setq ab (/ aa 2))
(setq d (/ aa 4))
(setq p5 (polar p1 (+ a (dtr 0)) ab))
(setq p6 (polar p5 (+ a (dtr 90)) d))
(setq p3 (polar p1 (- a (dtr 90)) d))
(setq p4 (polar p2 (- a (dtr 90)) d))
(command “s” p6 p2)
(setq p1 p2)
)
(command “cmdecho” 0)
(command “”)
)