[编程交流] 如何在块中查找文本

 
(vlax-for block
                 (vla-get-blocks
                   (vla-get-activedocument
                     (vlax-get-acad-object)
                   )
                 )
   (vlax-for obj block
     (if (and (eq "AcDbText" (vla-get-objectname obj))
              (eq (vla-get-TextString obj) "abc")
              )
               ;;;;;;;; ....................
                     ;;;;;;;;;;;;;;;;;; ............................
      ;;;;;;;;;;;;;; ..  SO ON .....

([color=BLUE]defun[/color] GetBlockText
 ( blockcollection blockname [color=BLUE]/[/color] _GetIteminCollection _GetItemsinCollectionIf blockdef )
 ([color=BLUE]defun[/color] _GetIteminCollection ( collection item [color=BLUE]/[/color] result )
   ([color=BLUE]if[/color]
     ([color=BLUE]not[/color]
       ([color=BLUE]vl-catch-all-error-p[/color]
         ([color=BLUE]setq[/color] result
           ([color=BLUE]vl-catch-all-apply[/color] '[color=BLUE]vla-item[/color] ([color=BLUE]list[/color] collection item))
         )
       )
     )
     result
   )
 )
 ([color=BLUE]defun[/color] _GetItemsinCollectionIf ( collection condition [color=BLUE]/[/color] result )
   (
     ([color=BLUE]lambda[/color] ( condition )    
       ([color=BLUE]vlax-for[/color] item collection
         ([color=BLUE]if[/color] (condition item) ([color=BLUE]setq[/color] result ([color=BLUE]cons[/color] item result)))
       )
       ([color=BLUE]reverse[/color] result)
     )
     ([color=BLUE]eval[/color] condition)
   )
 )
 ([color=BLUE]if[/color] ([color=BLUE]setq[/color] blockdef (_GetItemInCollection blockcollection blockname))
   ([color=BLUE]mapcar[/color] '[color=BLUE]vla-get-textstring[/color]
     (_GetItemsinCollectionIf blockdef
      '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]wcmatch[/color] ([color=BLUE]vla-get-objectname[/color] x) [color=MAROON]"AcDb*Text"[/color]))
     )
   )
 )
)
([color=blue]vl-load-com[/color])
([color=BLUE]defun[/color] c:test [color=BLUE]nil[/color]
 (GetBlockText
   ([color=BLUE]vla-get-blocks[/color]
     ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))
   )
   ([color=BLUE]getstring[/color] [color=MAROON]"\nSpecify Block Name: "[/color])
 )
)

(defun GetBlockText ( blockcollection blockname / _GetIteminCollection blockdef result )
 (defun _GetIteminCollection ( collection item / result )
   (if
     (not
       (vl-catch-all-error-p
         (setq result
           (vl-catch-all-apply 'vla-item (list collection item))
         )
       )
     )
     result
   )
 )
 (if (setq blockdef (_GetIteminCollection blockcollection blockname))
   (vlax-for item blockdef
     (cond
       ( (eq "AcDbBlockReference" (vla-get-objectname item))
         (setq result (append (GetBlockText blockcollection (vla-get-name item)) result))
       )
       ( (wcmatch (vla-get-objectname item) "AcDb*Text")
         (setq result (cons (vla-get-textstring item) result))
       )
     )
   )
 )
 (reverse result)
)
(vl-load-com)
(defun c:test nil
 (GetBlockText
   (vla-get-blocks
     (vla-get-activedocument (vlax-get-acad-object))
   )
   (getstring "\nSpecify Block Name: ")
 )
)