(defun c:dg(/ a kw os ldr asz clrd pt1 pt2 pt3 dw)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)(setvar “dimldrblk” ldr)
(setvar “dimasz” asz)(setvar “dimclrd” clrd)
(princ))
;-<*error* end
(setq os (getvar “osmode”))
(setq ldr (getvar “dimldrblk”))
(setq asz (getvar “dimasz”))
(setq clrd (getvar “dimclrd”))
(setvar “osmode” 515)
(setvar “dimclrd” 2) ;치수선 색상
(prompt ” 지시선그리기…”)
(if (= kw nil) (setq kw “1”))
(cond ((= kw “1”)
(progn (setvar “dimldrblk” “.”) (setvar “dimasz” 2.5))) ;작은점
)
(setq pt1 (getpoint “n시작->”))
(setq pt2 (getpoint pt1 “n다음->”))
(setq pt3 (getpoint pt2 “n다음->”))
(if (= dw nil) (setq dw “st”))
(if pt3
(command “leader” pt1 pt2 pt3 “f” dw “” “” “n”)
(command “leader” pt1 pt2 “f” dw “” “” “n”)
)
(setvar “osmode” os)
(setvar “dimldrblk” ldr)
(setvar “dimasz” asz)
(setvar “dimclrd” clrd)
(prin1))
해당리습은 지시선만 빠르게 뽑는 리습인데 리습을 실행하고 포인트를 찍고 다음 포인트를 찍으면 화면에 표시되겟끔
지금 올린건 끝까지 실행하고 리습실행이 마칠때 지시선이 한번에 딱 표현되서요….
한포인트찍을때마다 캐드화면에 지시선이 표시될수 있도록 수정 부탁드려요.