将所有图块中的实体图层设置到0层

Lisphk

1. (defun c:doit()
   
2.     (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   
3.         (if (= :vlax-false (vla-get-isxref blk))
   
4.             (vlax-for obj blk
   
5.                 (if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (vlax-write-enabled-p obj))
   
6.                     (vla-put-layer obj "0")
   
7.                 )
   
8.             )
   
9.         )
   
10.     )
    
11.     (princ)
    
12. )
    

(defun c:doit()<br />     (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))<br />         (if (= :vlax-false (vla-get-isxref blk))<br />             (vlax-for obj blk<br />                 (if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (vlax-write-enabled-p obj))<br />                     (vla-put-layer obj "0")<br />                 )<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br />

st788796

Autocad 中除了主实体还有子实体，子实体情况要复杂些，比如 dim 中可以自由设置，insert  polyline 等中有SEQEND，主实体设置了，外观可能没有变化

Lisphk

st788796 发表于 2017-4-8 18:10

确如大师所说，上面的代码只是一个普通的应用，详细设置到每个子实体，还没功力写，不如大师给写一个？

kqqt6236

啥也不说了，感谢楼主分享哇！

qqqincccken

謝謝提供學習試用一下

sicky111

啥也不说了，感谢楼主分享哇！