(setq ss (ssget))
(setq n1 (sslength ss))
(setq n n1 k 0)
(setq tot 0 dis 0 dis1 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq stype (cdr (assoc 0 (entget en))))
(if (= stype “LWPOLYLINE”)(progn
(command “area” “e” en)
(setq dis1 (getvar “area”))
(setq dis (/ dis1 3))
))
(setq tot (+ tot dis))
(setq n (- n 1))
(setq k (+ k 1))
)(terpri)(prompt “총”)(prin1 n1)(prompt “개의 폴리곤…”)
(prompt “전체면적 : “)(prin1 tot)(prompt “m2”)
(prin1)
);;;;;lp
제가 인터넷에서 구했는데
소수점이 뭔지를 모르겠네요 이대로 하면 소수점 1자리까지 나오는데 뭘 고쳐야하는지 좀 알려주세요~
이 부분 (setq tot (+ tot dis))을 요렇게 (setq tot (rtos (+ tot dis) 2 6)) 바꿔 보시와요!
해결 했습니다~