캐드 면적 구하는 리습

부탁드립니다~~ 혼자서 해볼려니 도저히 안되네요  올려드린  평수까지 나오게끔 수정좀 부탁 드릴께요~



(defun c:py(/ #ad #as #a #index #b #c #d)
  (vl-load-com)
  (setq #ad(vla-get-activedocument(vlax-get-acad-object)))
  (setq #as
     (if (>(vla-get-activespace #ad)0)
        (vla-get-modelspace #ad)
        (vla-get-paperspace #ad)
     );;if
  );;setq
  (setq #a(ssget ‘((0 . “arc,circle,ellipse,hatch,lwpolyline,polyline,region,spline”))))
  (repeat (setq #index(sslength #a))
    (setq #b(cons(vlax-ename->vla-object(ssname #a (1- #index)))#b))
    (setq #index(1- #index))
  );;repeat
  (alert(setq #c(strcat(rtos(/(apply ‘+(mapcar ‘(lambda (#x)(vla-get-area #x))#b))1000000.0)2 2)”㎡”)))
  (grread t)
  (prompt “≫≫≫Pick position:”)
  (if(eq 3(car(setq #d(grread))))(vla-addtext #as #c (vlax-3d-point (cadr #d))(getvar “textsize”)))
  (princ)
);;defun