화살표 그리는 LISP 입니다.
Scale 을 매번 입력 하는데 한번 입력 하고 그다음은 마지막에 입력된 값으로 계속 나오도록 수정 부탁 드립니다.
(defun c:arr()
(setq scale (getdist “nscale 입력: “))
(setq a (getpoint “n시작점 선택:”))
(setq b (getpoint a “n마지막점 선택:”))
(setq an (angle a b))
(setq c (polar a an (* scale 3)))
(setq d (* scale 1))
(setq osmode (getvar “osmode”))
(setvar “osmode” 0)
(command “pline” a “w” “0” d c “w” “0” “0” b “”)
(setvar “osmode” osmode)
)
1 답변