(DEFUN c:df (/ ENT PT1 PT2 pt3 pt4 PT5 pt6 AN an1 an2 an3 an4)
(SETQ ent(entget (car (entsel “npick a line : “))))
(setq pt1(cdr (assoc 10 ent)))
(setq pt2(cdr (assoc 11 ent)))
(setvar “osmode” 0)
; (setq pt6(polar pt4 (dtr 330) 8.26 ))
(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
(setq an2(angtos an1 0 3))
;;###############################수정시작
(if (zerop an1)
(setq an3(strcat (angtos an1 0 5)”%%d”))
(setq an3(vl-string-subst “%%d” “d” (angtos an1 1 5)))
);;if
;;###############################수정끝
(setq an4(strcat an3 ))
(setvar “osmode” 512)
(command “_leader” PAUSE PAUSE “” an4 “”)
(setvar “osmode” 37)
);===END OF PROGRAM===
여기에서 각도값이 표시되어지는데
DIMSTYLE 설정을 따라가질안네요.
현제에 사용을하게되면
각도값이 도분초 단위로 (예:55도 11′ 11″) 무조건출력이됩니다
각도값이 정수로 떨어질경우에도 도분초로 (55도 00’00”) 이런식으로
표기가 되어지는데요 각도값이 정수가 될경우에는 정수만표기(55도)
각도값이 분초이상나눠질경우에만 분초로 표시되게 할수없는 지 ..
부탁드리겠습니다.