[编程交流] 按属性v进行块选择

; simple find block
; by Alan H nov 2013
(setq ans (getstring "\nEnter attribute value"))
(setq oldtag1 "yourattibute") ;attribute tag name
(setq ss1 (ssget "x"  '((0 . "INSERT") (2 . "yourblockname")(410 . "Model"))) ; change block name
(setq inc (sslength ss1))
(repeat inc      
(foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (setq inc (1- inc))) )'getattributes)
(if (= oldtag1 (strcase (vla-get-tagstring att)))
(progn
(if (= ans (vla-get-textstring att ))
(progn  
(setq pt1 (vla-get-insertionpoint att))
(command "zoom" "c" pt1 100) ; zooms in on block
) ; end progn
) ; end if ans 
)); end if oldtag1
) ; foreach att
) ; end repeat
(princ)

(defun c:Test (/ ss in sn en it ad ok)
 (if (setq ad (ssadd)
           ss (ssget "_X"
                     (list '(0 . "INSERT")
                           '(2 . "DFUBLANK1")
                           '(66 . 1)
                           (cons 410 (getvar 'CTAB))
                     )
              )
     )
   (repeat (setq in (sslength ss))
     (setq sn (ssname ss (setq in (1- in)))
           it sn
           ok nil
     )
     (while
       (and
         (not ok)
         (/= (cdr (assoc 0 (setq en (entget (setq sn (entnext sn))))))
             "SEQEND"
         )
       )
        (if (and (eq (strcase (cdr (assoc 2 en))) "PART")
                 (eq (cdr (assoc 1 en)) "10")
            )
          (setq ok t
                ad
                   (ssadd it ad)
          )
        )
     )
   )
 )
 (sssetfirst nil ad)
 (princ)
)