치수입력시 소수점 후행억제가 않됩니다.

d값 이후가 “0” 이 아닐때는 제 값을 표현 해야 하니

값비교용으로

(setq anv (fix an1)) ;값비교용 변수를 만듭니다

(if (= an1 anv);fix한 값과 앵글값이 같으면 정수각

(setq an3(vl-string-subst “%%d” “d” (angtos (fix an1) 1 0)))

(setq an3(vl-string-subst “%%d” “d” (angtos an1 1 2)))

)

이런식으로

참고사항 각도값은 60분법 기준입니다 호도값이 아니라..

수야12님 항상 도움주셔서 감사합니다. 리습에는 무지한 지라 어디부분을 저렇게 고쳐야 하는지 좀더 상세히 설명해주실수는 없을까요? 여기 저기 바꿔가며 테스트 해보는데 잘되질 않네요!!! 감사합니다.

제가 설계를 잘못했네요 fix값이 제값이 안들어가네요 15.0이면 fix하면 원래는 15가 들어가야 하는데 14가 들어가네요 헐… 다시 한번 생각해봐야 할듯 합니다.

그럴리가 있겠습니까? 맞게 했습니다. 15.0이 처음부터 15가 아니고 14.XX에서 반올림 해서 15.0이겠죠.

그런가봐요 눈에 보이는 값은 15.0인데 fix 함수를 적용하면 14로 변해 버리네요 아마 각 변환과정에서 반올림 되서 표현되나봐요 ㅎㅎ;;

(DEFUN C:AQ (/ ENT PT1 PT2 pt3 pt4 PT5 pt6 AN an1 an2 an3 an4)

(setq *Osmode_Save (getvar “osmode” )) (setq oldlayer (getvar “clayer”)) (setvar “clayer” “dim”)

(SETQ ent(entget (car (entsel “npick a line : “)))) (setq pt1(cdr (assoc 10 ent))) (setq pt2(cdr (assoc 11 ent))) (setvar “osmode” 103)

; (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 anv(angtos an1 0 2)) (setq pos(vl-string-position (ascii ".")anv)) (if pos(setq n 2)(setq n 0))

(if (zerop an1) (setq an3(strcat (angtos an1 0 5)"%%d")) (setq an3(vl-string-subst "%%d" "d" (angtos an1 1 n))) );;if

(setq an4(strcat an3 )) (setvar "osmode" 512) (command "_leader" PAUSE PAUSE "" an4 "")

(setvar "osmode" *Osmode_Save) (setvar "clayer" oldlayer) (princ) );===END OF PROGRAM===

수야 12님 진짜 최고이십니다. 항상 생각하면서 잘 사용하겠습니다.