캐드 분류
마지막 입력한 값 기억 하도록 수정 부탁 드립니다.
컨텐츠 정보
- 234 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
화살표 그리는 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)
)