(defun c:tl()
(setvar “CMDECHO” 0)
(Setq ent (ssget))
(setq n 0)
(setq nu (sslength ent))
(setq total_aa 0 total_len 0)
(while (/= n nu)
(setq en (ssname ent n))
(command “area” “o” en)
(setq aa (rtos (getvar “area”) 2 6))
(setq tt (strcat “area: ” aa))
(redraw en 3)
(setq base (getpoint “n 클릭해주세여 “))
(command “text” base “500” “” tt)
(redraw en 4)
(setq total_aa (+ total_aa (getvar “area”)))
(setq total_len (+ total_len (getvar “PERIMETER”)))
(setq n (1+ n))
)
(setq total_aa (rtos total_aa 2 6))
(setq total_len (rtos total_len 2 6))
(setq txt (strcat “total area: ” total_aa ” total length: ” total_len ))
(alert txt)
(setq base (getpoint “n 총면적과 길이입니다. “))
(command “text” base “500” “” txt)
(princ)
)
면적 이랑 길이 랑 포함한 리습입니다.
예를 들어 5000×5000 정사각형 박스 를 면적 계산하면 면적은 25 or 25000 이렇게 떠야 하는데
면적은 25000000 이렇게 계산됩니다. ㅠㅠ