@john.uhden if you use this defun
;*****************************************************************
(DEFUN SS-->>ENT-LIST/ss (SS) ;_01
(Reverse(VL-REMOVE-IF-NOT '(LAMBDA (X) (= (TYPE X) 'ENAME)) (MAPCAR 'CADR (SSNAMEX SS))))
)
;;;*************************************************************;;;
It return form first to last as been drawn . Because SSGET return the selectionset from Lasta to first
No need to calc anything .
Any way I almost do not use this defun , I like to handle by VL-function by VLA-GET-ACTIVESELECTIONSET adoc
(defun get-all-circle-area-sum (/ ACAD-OBJ ADOC AREA CIRCLE-ENT-SS CIRCLE-OBJ-SS MODEL
)
(VL-LOAD-COM)
(SETQ ACAD-OBJ (VLAX-GET-ACAD-OBJECT)) ;_ el programa ACAD
(SETQ ADOC (VLA-GET-ACTIVEDOCUMENT ACAD-OBJ)) ;_ el DWG que esta abierto-
(SETQ MODEL (VLA-GET-MODELSPACE ADOC))
(setq circle-ent-ss (ssget "X" '((0 . "circle"))))
(setq circle-obj-ss (VLA-GET-ACTIVESELECTIONSET adoc))
;then
(setq area nil)
(VLAX-FOR
circle-obj
circle-obj-ss
(setq area (+ area (VLA-GET-area circle-obj)))
) ;_ VLAX-FOR circle-obj
)
No need to know sslength , no need to get a Index counter
. It is my way .