( 리습 문의 )

안녕하세요

직장을 옮겼는데

각도 치수를 꼭

“다중지서선” 을 사용하여 기재 해야 하는 상황입니다.

기존에는 자동 각도 기입 (지시선) 리습을 사용 했는데

참 난감한 상황입니다.

line 선택시 다중지시선으로 각도가 자동으로 나오게 만들어 노력중인데 너무 어렵습니다..
라인 선택시 자동으로 다중지시선으로 각도가 나오게 할 수 없을까요 ?
도움 주시면 감사하겠습니다.

( 꾸벅 … )

** 기존 자동 각도 지시선 리습 올립니다.

(defun c:df(/ ent pt1pt2 pt3 pt4 pt5 pt6 an an1 an2 an3 an4
os ot dzin dtvp ss1 k k1 k2 t1 t2 t3)
(defun *error* (msg)
(princ “nError :”)
(princ msg)
(setvar “osmode” os)
(setvar “orthomode” ot)
(setvar “dimzin” dzin)
(setvar “dimtvp” dtvp)

(princ)
)
(setq os (getvar “osmode”))
(setq ot (getvar “orthomode”))
(setq dzin (getvar “dimzin”)) ;8
(setq dtvp (getvar “dimtvp”))
(setvar “osmode”0)
(setvar “orthomode”0)
(setvar “dimzin” 8)
(setvar “dimtvp” 0.8)
(setvar “dimtad” 1)
(princ “nDim: ANGLE”)(terpri)
(setq ss1 (nentsel “nSelect inclined line: “))
(setq ent (entget (car ss1)))
(setq pt1 (cdr (assoc 10 ent)))
(setq pt2 (cdr (assoc 11 ent)))
(setq p1 (cadr ss1))
(setq p2 (getpoint p1 “nEnter leader length for text: “))
(setq an (angle pt1 pt2))
(if (<= an (/ pi 4)) ;0~45
(setq an1 an)
(if (<= an (/ pi 2)) ;45~90
(setq an1 (- (/ pi 2) an))
(if (<= an (/ (* pi 3) 4)) ;90~135
(setq an1 (- an (/ pi 2)))
(if (<= an pi) ;135~180
(setq an1 (- pi an))
(if (<= an (/ (* 5 pi) 4)) ;180~225
(setq an1 (- an pi))
(if (<= an (/ (* 3 pi) 2)) ;225~270
(setq an1 (- (/ (* 3 pi) 2) an))
(if (<= an (/ (* 7 pi) 4)) ;270~315
(setq an1 (- an (/ (* pi 3) 2)))
(setq an1 (- (* pi 2) an)) ;315~360
) )))) )) ;if end

(setq an4 (vl-string-subst “%%d” “d” (angtos an1 1 5)))
(setq k (strlen an4))
(setq k1 (vl-string-position (ascii “d”) an4))
(setq k2 (vl-string-position (ascii “‘”) an4))
(setq t1 (substr an4 (+ k1 2) (- k2 k1 1)))
(setq t2 (substr an4 (+ k2 2) (- k k2 2)))
(if (zerop (atof t2))
(progn
(setq t3 (substr an4 1 (+ k2 1)))
(if (zerop (atof t1))(setq t3 (substr an4 1 (+ k1 1))))
(setq an4 t3)
)
)
(if (zerop an1) (setq an4 “0%%d”))
(command “leader” “nea” p1 p2 “” an4 “”)
(setvar “osmode” os)
(setvar “orthomode” ot)
(setvar “dimzin” dzin)
(setvar “dimtvp” dtvp)
(prin1))