[Jin]

Может есть уже готовые программные решения?

[Кулик Алексей aka kpblc]

Без проверок:

Код:

[Выделить все]

(defun c:pline-areas (/ selset item adoc full_area)
  (vl-load-com)
  (setq	adoc	  (vla-get-activedocument (vlax-get-acad-object))
	full_area 0.0
	) ;_ end of setq
  (vla-startundomark adoc)
  (if (setq selset (ssget "_:L" '((0 . "PLINE") (70 . 1))))
    (while (and	selset
		(> (sslength selset) 0)
		) ;_ end of and
      (setq item (ssname selset 0))
      (ssdel item selset)
      (setq
	full_area (+ full_area (vla-get-area (vlax-ename->vla-object item)))
	) ;_ end of setq
      ) ;_ end of while
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ full_area)
  (princ)
  ) ;_ end of defun