(defun c:SP (/ flt ss add i e o)
;; Select AECC (Civil 3D) points
;; Alan J. Thompson, 09.08.10 / 05.03.11 (rewrite)
(if (and (/= (setq flt (strcase (getstring T "\nAecc Point Description Selection Filter: "))) "")
(setq ss (ssget "_A" '((0 . "AECC_COGO_POINT"))))
)
(progn
(setq add (ssadd))
(repeat (setq i (sslength ss))
(setq e (ssname ss (setq i (1- i)))
o (vlax-ename->vla-object e)
)
(if (vl-some '(lambda (prop / c)
(and (not (vl-catch-all-error-p
(setq c (vl-catch-all-apply 'vlax-get-property (list o prop)))
)
)
(wcmatch (strcase c) flt)
)
)
'(Description FullDescription RawDescription)
)
(ssadd e add)
)
)
(sssetfirst nil add)
(ssget "_I")
)
)
(princ)
)
(vl-load-com)
(princ)