Bununla ilgili bir kod yazayım...
geliştirmek sana kalmış...
Kod:
(defun c:alist ()
(vl-load-com)
(setq sec (ssget)
say (sslength sec)
c 0
liste '())
(while (< c say)
(setq tek (ssname sec c)
data (vlax-ename->vla-object tek)
alan (vla-get-area data)
liste (cons alan liste)
c (+ c 1)))
(princ))