XD::Doc:GetBlockReferences

marting

1. ;;; 函数名称: XD::Doc:GetBlockReferences
   
2. ;;; 功能: 查找给定块名 (name) 的所有引用，并返回其实体名称。
   
3. ;;;        如果 ms 为 0，则返回模型空间中所有匹配的引用；如果 ms 为 1，则返回纸空间中的引用。
   
4. ;;; 参数:
   
5. ;;;   - name (字符串): 要查找的块名。
   
6. ;;;   - ms (整数): 指定查找的空间。0 表示模型空间，1 表示纸空间。
   
7. ;;; 返回值:
   
8. ;;;   - lst (列表): 包含匹配块引用的实体名称列表。
   
9. (defun XD::Doc:GetBlockReferences (name ms / lst it tmp)
   
10.   ;; 遍历所有块对象
    
11.   (vlax-for x
    
12.     (vla-item
    
13.       (vla-get-blocks
    
14.         (vla-get-activedocument (vlax-get-acad-object))
    
15.       )
    
16.       name
    
17.     )
    
18.     (if (= ms 0)
    
19.       (progn
    
20.         ;; 如果 ms 为 0，将块引用添加到列表中
    
21.         (setq lst (cons (vlax-vla-object->ename x) lst))
    
22.       )
    
23.       (progn
    
24.         ;; 如果 ms 为 1，获取块的实体名称并递归查找引用
    
25.         (setq it (vlax-vla-object->ename x))
    
26.         (if (= (y-get-dxf 0 it) "INSERT")
    
27.           (progn
    
28.             ;; 如果是插入类型，递归查找子块
    
29.             (setq tmp (cons it (XD::Doc:GetBlockReferences (y-get-dxf 2 it) 1)))
    
30.           )
    
31.           (progn
    
32.             ;; 如果不是插入类型，仅返回当前块
    
33.             (setq tmp (list it))
    
34.           )
    
35.         )
    
36.         ;; 将当前块及其引用添加到列表中
    
37.         (setq lst (append tmp lst))
    
38.       )
    
39.     )
    
40.   )
    
41.   ;; 返回所有找到的块引用列表
    
42.   lst
    
43. )
    

;;; 函数名称: XD::Doc:GetBlockReferences<br /> ;;; 功能: 查找给定块名 (name) 的所有引用，并返回其实体名称。<br /> ;;;        如果 ms 为 0，则返回模型空间中所有匹配的引用；如果 ms 为 1，则返回纸空间中的引用。<br /> ;;; 参数:<br /> ;;;   - name (字符串): 要查找的块名。<br /> ;;;   - ms (整数): 指定查找的空间。0 表示模型空间，1 表示纸空间。<br /> ;;; 返回值:<br /> ;;;   - lst (列表): 包含匹配块引用的实体名称列表。<br /> (defun XD::Doc:GetBlockReferences (name ms / lst it tmp) <br />   ;; 遍历所有块对象<br />   (vlax-for x <br />     (vla-item <br />       (vla-get-blocks <br />         (vla-get-activedocument (vlax-get-acad-object))<br />       )<br />       name<br />     )<br />     (if (= ms 0) <br />       (progn <br />         ;; 如果 ms 为 0，将块引用添加到列表中<br />         (setq lst (cons (vlax-vla-object->ename x) lst))<br />       )<br />       (progn <br />         ;; 如果 ms 为 1，获取块的实体名称并递归查找引用<br />         (setq it (vlax-vla-object->ename x))<br />         (if (= (y-get-dxf 0 it) "INSERT") <br />           (progn <br />             ;; 如果是插入类型，递归查找子块<br />             (setq tmp (cons it (XD::Doc:GetBlockReferences (y-get-dxf 2 it) 1)))<br />           )<br />           (progn <br />             ;; 如果不是插入类型，仅返回当前块<br />             (setq tmp (list it))<br />           )<br />         )<br />         ;; 将当前块及其引用添加到列表中<br />         (setq lst (append tmp lst))<br />       )<br />     )<br />   )<br />   ;; 返回所有找到的块引用列表<br />   lst<br /> )<br />

[/copde