수량구하는 리습중에 소숫점은 1째자리에서 반올림하되 표기는 소숫점 두째자리까지 표기하도록
하고 싶은데 어디를 고쳐야 할까요?
수량이 1.59 이면 1.60으로 표기되도록입니다. 1.54면 1.50이구요
제가 사용중인 리습은 아래와 같고 첨부도 하였습니다.
;면적을 m2단위로 산정
(DEFUN C:sa ( / a b c d e ss)
(setq ac nil ara 0 a1 nil)
(redraw)
(setvar “CMDECHO” 0)
(setvar “dimzin” 1)
(setvar “aperture” 5)
(command “osnap” “none”)
(graphscr)
(setq pt (getpoint “nStrikes Point :”))
(while (/= pt nil)
(setq ss (bpoly pt))
(if(/= ss nil)
(progn
(setq aa (entlast))
(command “area” “e” aa)
(setq ara (+ (getvar “area”) ara))
(princ “n Total Area = “)
(princ ara)
(princ “n”)
(redraw aa 3)
(setq aa1 (list aa) a1 (append a1 aa1))
)
(princ “n Point is outside of Boundary”)
)
(setq pt (getpoint “nStrikes Point :”))
)
(setq ln1 (length a1))
(if (> ln1 0)
(progn
(foreach nn a1
(progn
(entdel nn)
)
) ;endfor
)
)
(redraw)
(command “osnap” “none”)
(prompt “nSelect text to edit?: “)
(setq a (ssget))
(setq b (sslength a))
(setq c 0)
(while (<= 1 b)
(setq d (ssname a c))
(if (eq (cdr (assoc 0 (entget d))) “TEXT”)
(progn
(redraw d 3)
; (prompt “nNew text string <“)
; (princ (cdr (assoc 1 (entget d))))
; (princ “>:”)
(setq ara (/ ara 1.))
(setq e (rtos ara 2 2))
(if (= e “”)
(setq e (cdr (assoc 1 (entget d))))
)
(entmod (subst (cons 1 e) (assoc 1 (entget d)) (entget d)))
(redraw d 4)
)
)
(setq b (- b 1))
(setq c (+ c 1))
)
(command “CHANGE” “P” “” “P” “C” “4” “”) ;시안
(command “osnap” “end,int,mid,cen”)
(princ)
)