면적한번에구하는리습정정건

defun c:aaa ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj) 
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
    ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
  )
  (if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,ELLIPSE,SPLINE”))))
   (if (setq ts (getreal “n텍스트 높이 입력:”))
  (progn
   (setq index 0)
   (repeat (sslength ss)
   (setq obj (vlax-ename->vla-object (ssname ss index)))
   (vla-getboundingbox obj ‘mi ‘mx)
   (setq minpt (vlax-safearray->list mi))
   (setq maxpt (vlax-safearray->list mx))
   (setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
   (setq area (vla-get-area obj))
   (setq txtobj (vla-addtext space (rtos (/ area 100000.) 2 4) (vlax-3d-point inspt) ts))
   (vla-put-alignment txtobj 4)
   (vla-put-textalignmentpoint txtobj (vlax-3d-point inspt))
   (setq index (1+ index))
   )
    )
  )
  )
  (princ)
)
(vl-load-com)
(prompt “n[ AAA ]”)
(princ)