안녕하십니까?
아래는 면적 총합을 구하는 리습입니다.
총합을 구하고 마지막에 클릭하면 면적이 text로 표시되어야 하는데 그렇게 되지 않습니다.
어디를 수정해야 할까요?

그리고 여기에 하나를 더하자면 면적이 mm2 으로 나오는데, 이것을 m2으로 나오도록 할 수도 있을까요?

(defun c:BBB ( / ss index asum e obj tmparea msp spt txtobj )
(if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,LWPOLYLINE,ELLIPSE,SPLINE”))))
(progn
(setq msp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setq index 0 asum 0)
(repeat (sslength ss)
(setq e (ssname ss index))
(setq obj (vlax-ename->vla-object e))
(setq tmparea (vla-get-area obj))
(setq asum (+ asum tmparea))
(setq index (1+ index))
)
(prompt (strcat “\n총 면적 = ” (rtos asum 2 4)))
(initget 1)
(setq spt (getpoint “\n문자시작점: “))
(setq txtobj (vla-addtext msp (rtos asum 2 4) (vlax-3d-point spt) (getvar “textsize”)))
)
)
(princ)
)
(vl-load-com)
(prompt “\n[ ASUM ]”)
(princ)