여기서 면적 리습 다운 받아서 사용 할려고하는데요
면적 구하면 치수가 0.00000000으로 나옵니다.
단위는 mm입니다.
어느걸 손봐야하나요??
(defun c:A (/ 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”)
(= etype “CIRCLE”)(= etype “SPLINE”))
(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 1000000))
(setq sum (rtos sum 2 2))
(princ “nAdding “)
(princ tno)
(princ ” nTexts: “)
(princ “nThe Result is: “)
(princ sum)
(princ ” “)
(princ “n도면에 면적을 기입 하시겠습니까? <y> “)
(setq z (strcase (getstring)))
(if (or (= z “”) (= z “Y”))
(progn
(setq pt (getpoint “n글자위치 지정: “))
(setq h (getvar “textsize”))
(prompt “n글자크기 지정: “)
(princ H)
(princ ” : “)
(setq z (getdist))
(if z
(setq h z)
)
(command “text”
(setq z pt)
(setq z h)
(setq z 0.0)
(setq z sum)
)
)
)
(setvar “cmdecho” 1)
(setvar “blipmode” 0)
(prin1))