[编程交流] Can'；收集相同的re

 
(defun c:dump ( / *error* grpoint gr e )
 (vl-load-com)
 (defun *error* ( msg )
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
 (defun grpoint ( / gr ss )
   (while 
     (eq 5 (car (setq gr (grread t 15 2))))
     (setvar 'lastpoint (cadr gr))
   )
   (list (car gr)(getvar 'lastpoint))
 )
 (while
   (not
     (and
       (princ "\n*To view properties & methods select an object or right click on an object to select the nested object (press any key to cancel)*")
       (setq gr (grpoint))
       (cond
         ( (and (eq 25 (car gr))(setq e (car (nentselp (cadr gr)))))
           (setq e (vlax-ename->vla-object e))
         )
         ( (and (eq 3 (car gr))(setq e (ssget (cadr gr))))
           (setq e (vlax-ename->vla-object (ssname e 0)))
         )
         ( (or (eq 25 (car gr))(eq 3 (car gr)))
           (prompt "\nMissed! Try again!")
         )
         (t (prompt "*Cancel*")(exit))
       )
     )
   )
 )
 (vlax-dump-object e t)
 (textscr)
 (princ)
)

((-1 . <Entity name: 7ed2de40>) (0 . "AEC_VARS_DWG_SETUP") (5 . "48") (102 . "{ACAD_XDICTIONARY") (360 . <Entity name: 7ed33f18>) (102 . "}") (102 . "{ACAD_REACTORS") (330 . <Entity name: 7ed2de18>) (102 . "}") (330 . <Entity name: 7ed2de18>) (100 . "AecDbObject") (102 . "{AEC_SUBOBJECT") (300 . "AecImpDictRecord") (100 . "AecImpObj") (3 . "") (100 . "AecImpDictRecord") (3 . "") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_NULLOBJECT}") (100 . "AecDbDictRecord") (100 . "AecDbVars") (100 . "AecDbVarsDwgSetup") (70 . 0) (71 . 30) (72 . 2) (73 . 2) (74 . 0) (75 . 0) (76 . 2) (77 . 2) (78 . 4) (79 . 2) (10 0.0 0.0 0.0) (11 0.0 0.0 0.0) (50 . 0.0) (40 . 100.0) (41 . 96.0) (42 . 0.00542501) (44 . 0.0625) (45 . 96.0) (46 . 0.304 (90 . 0) (91 . 4096) (92 . 0) [color="red"](270 . 56) [/color](271 . 2) (272 . 130) (273 . 2) (2 . " sq ft") (3 . " cu ft") (4 . "ACADARCH") (6 . "L120") (7 . "'") (8 . "m") (330 . <Entity name: 0>) (9 . "") (43 . 0.0416667) (5 . "AecLayerStd.dwg") (171 . 1) (172 . 1) (173 . 1) (174 . 1) (175 . 25) (280 . 1))