在外部参照中搜索属性

ksperopoulos · 发表于 2022-7-6 11:30:40

我这里有一个lisp例程，如果属性在图形中，它非常适合搜索属性的特定值。有没有办法搜索主图形文件和主图形中覆盖的外部参照？

 
(defun c:fatt (/ ov ss i en ed an ad ah)
 (while (not ov)
        (setq ov (getstring t "\nATTRIB Value To Search For:   ")))
 (and (setq ss (ssget "X" (list (cons 0 "INSERT")
                                (cons 66 1)
                                (if (getvar "CTAB")
                                    (cons 410 (getvar "CTAB"))
                                    (cons 67 (- 1 (getvar "TILEMODE")))))))
      (setq i (sslength ss))
      (while (not (minusp (setq i (1- i))))
             (setq en (ssname ss i)
                   ed (entget en)
                   an (entnext en))
             (while (/= "SEQEND" (cdr (assoc 0 (entget an))))
                    (setq ad (entget an)
                          ah (cdr (assoc 40 ad))
                          an (entnext an))
                    (if (= (strcase ov)
                           (strcase (cdr (assoc 1 ad))))
                        (progn
                           (command "_.ZOOM" "_C" (cdr (assoc 10 ed)) (* ah 66))
                           ;(redraw en 3)
                           (getstring "\nPress Enter To Continue Searching..."))))))
 ;(redraw)
 (prin1))

ksperopoulos · 发表于 2022-7-6 11:42:44

没人想试试这个？有人知道这是否可能吗？

MarcoW · 发表于 2022-7-6 11:53:25

你好

（ssget“X”（列表（cons 0“插入”）。。。
是在当前图形中搜索所有块的代码段。

如果块位于外部参照中，“ssget”功能不起作用。带有属性的块是嵌套的，因此必须使用“nentsel”函数。这只适用于选定的1个实体。

如何解决这个问题对我来说是个谜，因为我自己经常试图找到解决方法。

如果其他人有一个解决方案，或者如果我在这里完全错了，请发表评论。

Lee Mac · 发表于 2022-7-6 12:01:46

我开始搜索块定义，不确定它是否有用。

copy


(defun c:Find_Att (/ itemp getname getnestattribblocks BLKS BLOCK ENT I LST NLST SS TMP)
 ;; Lee Mac  ~  23.03.10
 (setq *str (strcase
              (cond ((/= "" (setq tmp (getstring t "\nATTRIB Value to Search For: "))) tmp)
                    (*str))))
 
 (defun itemp (collection item / result)
   (if (not (vl-catch-all-error-p
              (setq result
                     (vl-catch-all-apply (function vla-item)
                       (list collection item)))))
     result))
 (defun GetName (object)
   (if (vlax-property-available-p object 'EffectiveName)
     (vla-get-EffectiveName object)
     (vla-get-name Object)))
 
 
 (defun GetNestAttribBlocks (object / result sub)
   
   (setq blks (cond (blks) ((vla-get-Blocks
                              (vla-get-ActiveDocument
                                (vlax-get-acad-object))))))
   
   (vlax-for sub object
     (if (and (eq "AcDbBlockReference" (vla-get-ObjectName sub))
              (eq :vlax-true (vla-get-hasAttributes sub)))
       (setq result (cons sub (GetNestAttribBlocks (itemp blks (GetName sub)))))))
   
   result)
 (if (setq i -1 ss (ssget "_X" (list (cons 0 "INSERT")
                                     (cons 66 1)
                                     (cons 410 (getvar 'CTAB)))))
   
   (while (setq ent (ssname ss (setq i (1+ i))))
     (setq bName (cdr (assoc 2 (entget ent))))                 
     
     (while (/= "SEQEND" (cdr (assoc 0 (entget (setq ent (entnext ent))))))
       
       (if (eq *str (strcase (cdr (assoc 1 (entget ent)))))
         
         (setq Lst (cons (cons bName ent) Lst))))))
 
 (vlax-for block (vla-get-Blocks
                   (vla-get-ActiveDocument (vlax-get-acad-object)))
    
   (setq nLst
     (cons
       (apply (function append)
              (mapcar
                (function
                  (lambda (block)
                    (vl-remove 'nil
                      (mapcar
                        (function
                          (lambda (attrib)
                            (if (eq (strcase (vla-get-TextString attrib)) *str)
                              (cons (GetName block) (vlax-vla-object->ename attrib)))))
                        
                        (vlax-invoke block 'GetAttributes)))))
                
                (GetNestAttribBlocks block)))
         
     nLst)))
 (print (vl-remove 'nil (apply (function append) nLst)))
 (princ))