캐드 분류
각도 리습에 도 표시 하는 방법 아시는 분 계실까요??
컨텐츠 정보
- 70 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
아래 리습이 원래 도분초 나오는 거였고 이걸 십진법으로 바꾸긴했는데 뒤에 도가 생략 되서 나와요
최대한 끼어 맞추기 식으로 식에다가 %%d 를 넣어보면서 테스트해봤는데
아무리 해봐도 안되서 질문드려요.
알려 주시면 감사드립니다!! 좋은 하루 되세요.
(DEFUN c:DQ (/ 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 0 5)))
);;if
(setq an4(strcat an3 ))
(setvar "osmode" 512)
(command "_leader" PAUSE PAUSE "" an4 "")
(setvar "osmode" 37)
);===END OF PROGRAM===
