Defpoints层如何产生的

ytcadtools

我的二次开发程序运行结束后，都自动产生一个Defpoints层,如何控制它的产生呢？

woaishuijia

定义点：用于创建标注的点。标注对象被修改时，程序参照这些点来修改无关联标注的外观和值。也称为 defpoints，存储在特殊图层 DEFPOINTS 上。

ytcadtools

那么在程序中如何删除这个“特殊图层 DEFPOINTS ”呢？

woaishuijia

在VBA中可以用
) h" h5 e8 ?# m1 QThisDrawing.Layers.Item("DEFPOINTS").Delete
5 G$ v$ U3 k+ J8 S8 k- ^) Z删除这个图层，前提是没有对象使用这个图层。

pss0902

defpoints图层一般是在创建尺寸标注时自动生成的，defpoints图层和0层一样是不可以被删除的，即使你把所有的对象全部删除，成一个空白文件，defpoints图层也不可删除。

maoyangmy

defpoints图层内的对象是打印不出来的

ytcadtools

原帖由 pss0902 于 2009-6-20 18:07 发表 http://www.3dportal.cn/discuz/images/common/back.gif
. r: A( B8 d( H7 o1 `2 @, ~defpoints图层一般是在创建尺寸标注时自动生成的，defpoints图层和0层一样是不可以被删除的，即使你把所有的对象全部删除，成一个空白文件，defpoints图层也不可删除。

* R" Z  v5 }! a2 {5 s0 }pss0902说得对，本人一直在想办法删除这个层，但一直做不到

woaishuijia

不要试图在图形界面使用清理命令(PURGE)删除defpoints图层，正确的做法是编程。
楼主不妨尝试下面的方法：
1、首先在图形界面打开一个空白文档，这时只有一个0图层
2、在模型空间随便添加一个标注，打开图层工具栏或图层特性管理器，可以看到defpoints图层已创建
3、加载并运行下面的VBA代码

1. 
   ; M, A  S; }7 |4 w/ E
2.     Dim B As AcadBlock
   : `( @2 y  b! M9 o! C% J& y3 H
3.     On Error Resume Next
   5 H3 |- [% q# L% T8 J- q
4.     With ThisDrawing
   $ y( j# b+ X" M. t7 `# k7 g' K
5.         For Each B In .Blocks
   ) \. V5 s. ~, `8 X& O& z6 t
6.             If Left(B.Name, 2) = "*D" Then B.Delete
   
7.         Next
   
8.         .Layers.Item("DEFPOINTS").Delete
   
9.     End With
   ! L" t5 O" c# I0 u( y0 M

复制代码

再次打开图层工具栏或图层特性管理器，可以看到defpoints图层已被删除

ytcadtools

woaishui版主的VBA程序很有效，本人要看看在ARX下如何操作