면적구하는 리습을 여기서 구했습니다.
그런데..소수점이 세자리까지 나오던데요..
소수점 두자리까지 만들려면 어떻게 해야하나요..ㅜㅜ
리습은 전혀 모르는터라..
이것저것 건드려봤더니..말을 안듣네요…
도움좀 주세요
——————————————————————–
(defun c:AS ()
;/ z ss sno no tno sum x entity etype num h pt ent_sum )
(setvar “cmdecho” 0)
(setq sno 0)
(setq ss (ssget))
(setq sno (sslength ss))
(setq no 0)
(setq sum 0.0)
(setq tno 0)
(command “area” “0,0” “”)
(setq ent_sum 0)
(repeat sno
(setq x (ssname ss no))
(setq etype (cdr (assoc 0 (entget x))))
(if (or (= etype “POLYLINE”)(= etype “LWPOLYLINE”))
(progn
(command “area” “e” x)
(setq ent_sum (getvar “area”))
)
(progn
(setq tno (1- tno))
(setq ent_sum 0)
)
)
(setq sum (+ sum ent_sum))
(setq tno (1+ tno))
(setq no (1+ no))
)
(setq tno (itoa tno))
(setq sum (/ sum 1))
(setq sum (rtos sum 2 3)) ☜☜☜☜☜☜☜☜
(princ “nAdding “)
(princ tno)
(princ ” nTexts: “)
(princ “nThe Result is: “)
(princ sum)
(princ ” “)
(princ “nDo You Want Write it into the DWG?
(setq z (strcase (getstring)))
(if (or (= z “”) (= z “Y”))
(progn
(setq pt (getpoint “nText Point: “))
(setq h (getvar “textsize”))
(prompt “nText Height: “)
(princ H)
(princ ” : “)
(setq z (getdist))
(if z
(setq h z)
)
(command “text”
(setq z pt)
(setq z h)
(setq z 0.00)
(setq z sum)
)
)
)
(setvar “cmdecho” 1)
(setvar “blipmode” 1)
(prin1))