【K:SendToBack】块内目标对象置底

kucha007

源码来自Lee mac，仅做一些小修改

用法：

1. ;填充和区域覆盖置底
   
2. (K:SendToBack BlkNam (list "AcDbHatch" "AcDbWipeout"))
   

;填充和区域覆盖置底<br /> (K:SendToBack BlkNam (list "AcDbHatch" "AcDbWipeout"))<br />

1. (defun K:SendToBack (BlkNam TypNam / LM:SortentsTable obj objLst)
   
2.     ;重新排序的空间
   
3.     (defun LM:SortentsTable (space / dict result)
   
4.       (cond
   
5.         ((not
   
6.           (vl-catch-all-error-p
   
7.             (setq result (vl-catch-all-apply
   
8.                             'vla-item
   
9.                             (list (setq dict (vla-GetExtensionDictionary space)) "ACAD_SORTENTS")
   
10.                           )
    
11.             )
    
12.           )
    
13.         )
    
14.         result
    
15.         )
    
16.         ((vla-AddObject dict "ACAD_SORTENTS" "AcDbSortentsTable"))
    
17.       )
    
18.     )
    
19.     (vlax-for obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) BlkNam)
    
20.         (if (member (vla-get-objectname obj) TypNam)
    
21.             (setq objLst (cons obj objLst))
    
22.         )
    
23.     );收集目标对象
    
24.     (if objLst
    
25.         (vla-movetobottom
    
26.           (LM:SortentsTable (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) BlkNam))
    
27.           (vlax-make-variant
    
28.             (vlax-safearray-fill
    
29.                 (vlax-make-safearray vlax-vbobject (cons 0 (1- (length objLst))))
    
30.                 objLst
    
31.             )
    
32.           )
    
33.       )
    
34.     );置底
    
35. )
    

(defun K:SendToBack (BlkNam TypNam / LM:SortentsTable obj objLst)<br />     ;重新排序的空间<br />     (defun LM:SortentsTable (space / dict result) <br />       (cond <br />         ((not <br />           (vl-catch-all-error-p <br />             (setq result (vl-catch-all-apply <br />                             'vla-item<br />                             (list (setq dict (vla-GetExtensionDictionary space)) "ACAD_SORTENTS")<br />                           )<br />             )<br />           )<br />         )<br />         result<br />         )<br />         ((vla-AddObject dict "ACAD_SORTENTS" "AcDbSortentsTable"))<br />       )<br />     )<br />     (vlax-for obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) BlkNam) <br />         (if (member (vla-get-objectname obj) TypNam) <br />             (setq objLst (cons obj objLst))<br />         )<br />     );收集目标对象<br />     (if objLst <br />         (vla-movetobottom <br />           (LM:SortentsTable (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) BlkNam))<br />           (vlax-make-variant <br />             (vlax-safearray-fill <br />                 (vlax-make-safearray vlax-vbobject (cons 0 (1- (length objLst))))<br />                 objLst<br />             )<br />           )<br />       )<br />     );置底<br /> )<br />

czb203

感谢大嘴巴苦茶大神

kucha007

czb203 发表于 2025-8-11 15:05
感谢大嘴巴苦茶大神