캐드 분류
캐드 리습 소수점 수정질문 있습니다
컨텐츠 정보
- 1,195 조회
- 2 댓글
- 0 추천
- 0 비추천
-
목록
본문
리습 소수점 현재 두 자리까지 반올림 표현됩니다.
한 자리로 바꾸고 싶은데 검색하고 참고해봐도
이 리습에서는 뭘 바꿔야 하는지 모르겠네요,, 도와주실분 계신지요..
;;; Annotates the area ("da" stands for 'd'im 'a'rea)
(defun c:aa()
(graphscr)
(setq f0 (getvar "dimscale"))
(setq os (getvar "osmode"))
(setq ff (getvar "dimlfac"))
(setq dec (getvar "dimdec"))
(setvar "osmode" 1)
(setq pt (getpoint "nPick Point : "))
(while (/= pt nil)
(cOMMAND "BPOLY" pt "")
(command ".area" "e" "L") (command ".erase" "L" "") (command".redraw")
(setq aa (rtos (* ff (getvar "area")) 2 dec))
(setvar "osmode" 32)
(setq pnt (getpoint "Text a Point : "))
(setvar "osmode" 1)
(setq x (+ (car pnt) (* f0 -4.6535)))
(setq y (+ (cadr pnt) (* f0 2.5)))
(setq pt1 (list x y))
(command ".text" "j" "mr" pt1 (* f0 3) 0.0 aa)
(print aa)
(setq pt (getpoint "nPick the internal point : "))
)
(setvar "osmode" os)
(princ)
)
관련자료
댓글 2
/ 1 페이지
