zwcad 2017 사용자 입니다
폴리라인을 끝점과 중심점을 개체 스냅으로 그리는 리습입니다
키이 a를 입력하면 선색을 +해서 변경하고 z을 입력하면 -해서 변경 x를 입력하면
기존색상 그대로 라인을 그리는 리습인데요
a나 z 키입력이 없으면 바로 다음 점을 입력 받을수 있도록 하는 함수나 방법이 있으면 도움 부탁 드립니다
(defun c:LLL ()
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” osm)(setvar “cecolor” col)(princ)
)
(setq col (getvar “cecolor”))
(setq osm (getvar “osmode”))
(setvar “osmode” 5 )
(setq fff 1)
(setq pt1 (getpoint “n 시작점 :”))
(while
(/= nil (setq pt2 (getpoint pt1 “n 다음점 :”)))
(setvar “cecolor” (itoa fff))
(command “pline” pt1 pt2 “”)
(setq pt1 pt2)
(initget 1 “A Z X”)
(setq ans (GETKWORD “더하기/빼기/그대로 “))
(cond
( (= ans “A”) (setq fff (+ fff 1)))
((= ans “Z”)
(setq fff (- fff 1)))
((= ans “X”)
(setq fff fff))
)
) ;while
(setvar “cecolor” col)
(setvar “osmode” osm)
(princ)
)
(princ “nt 칼라 라인 그리기. Command: LLL”)
(princ)