리습 수정 요청드려요..
컨텐츠 정보
- 271 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
면적이 끝자리 반올림되는 것을 반올림없이 순수 면적으로 표시되게 수정 요청드립니다.
어떤것을 수정해야 하는지 모르겠어요..
부탁합니다!!
(princ)
(defun c:zz(/ cmd a pyng sm)
(setq cmd(getvar"cmdecho"))
(setvar"cmdecho"0)
(setq sc(getvar"ltscale"))
(setq ts(* sc 5))
(princ"Select polyline:")
(command"area""e"pause)
(setq area(getvar"area"))
(setq sm(rtos(/ area 1.0e+06) 2 4))
(setq py(rtos(* area 0.0000003025) 2 4))
(princ"n Area : ")
(princ sm)
(princ" sq m")
(princ" -> ")
(princ py)
(princ" pyong")
(setq pt(getpoint"nnnn Pick Text Point :"))(terpri)
(setq ar1(strcat ""sm" M2″))
(command"text""s""standard""mc"pt ts"0″ar1)
(setvar"cmdecho"cmd)
(prin1))
(princ)
(defun c:xx(/ cmd a pyng sm)
(setq cmd(getvar"cmdecho"))
(setvar"cmdecho"0)
(setq sc(getvar"ltscale"))
(setq ts(* sc 5))
(princ"Select polyline:")
(command"area""e"pause)
(setq area(getvar"area"))
(setq sm(rtos(/ area 1.0e+06) 2 4))
(setq py(rtos(* area 0.0000003025) 2 4))
(princ"n Area : ")
(princ sm)
(princ" sq m")
(princ" -> ")
(princ py)
(princ" pyong")
(setq pt(getpoint"nn Pick Text Point :"))(terpri)
(setq ar1(strcat ""py" PY"))
(command"text""s""standard""mc"pt ts"0″ar1)
(setvar"cmdecho"cmd)
(prin1))
(princ)
관련자료
[Deleted User]님의 댓글
(setq sm(rtos(/ area 1.0e+06) 2 4)) (setq py(rtos(* area 0.0000003025) 2 4))
상큼메론90님의 댓글
캐드 자체에서는 반올림이 되는것이 우선입니다. 0.5 면 반올림이 됩니다. 반올림이 안되게 하려면 뒤에 숫자를 버려야 됩니다.
리습 하나만 수정해 드립니다. 나머지는 참고해서 고치면 됩니다. 빨간색 글자를 확인해 보세요
(defun c:zz (/ cmd a pyng sm) (setq cmd(getvar"cmdecho")) (setvar "dimzin" 1) (setvar "cmdecho" 0) (setq sc(getvar "ltscale")) (setq ts(* sc 5)) (princ"Select polyline:") (command "area" "e" pause) (setq area(getvar "area")) ; (setq sm (rtos(/ area 1.0e+06) 2 4)) ; 원본 (setq sm (rtos (- (/ area 1.0e+06) 0.00005) 2 4)) ; 뒤에 숫자를 반올림하지 않고 버림 (setq py(rtos(* area 0.0000003025) 2 4)) (princ "n Area : ") (princ sm) (princ " sq m") (princ " -> ") (princ py) (princ " pyong") (setq pt(getpoint "nnnn Pick Text Point : "))(terpri) (setq ar1(strcat "" sm " M2″)) (command "text" "s" "standard" "mc" pt ts "0″ ar1) (setvar "cmdecho" cmd) (prin1) ) (princ)
;;;