Defpoints层如何产生的

ytcadtools · 发表于 2009-6-20 08:08:11

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

woaishuijia · 发表于 2009-6-20 08:45:26

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

ytcadtools · 发表于 2009-6-20 15:32:43

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

woaishuijia · 发表于 2009-6-20 16:57:15

在VBA中可以用
ThisDrawing.Layers.Item("DEFPOINTS").Delete
删除这个图层，前提是没有对象使用这个图层。

pss0902 · 发表于 2009-6-20 18:07:47

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

maoyangmy · 发表于 2009-6-20 21:18:20

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

ytcadtools · 发表于 2009-6-22 17:15:15

原帖由 pss0902 于 2009-6-20 18:07 发表 http://www.3dportal.cn/discuz/images/common/back.gif6 H; a' V( }5 R8 b9 N
defpoints图层一般是在创建尺寸标注时自动生成的，defpoints图层和0层一样是不可以被删除的，即使你把所有的对象全部删除，成一个空白文件，defpoints图层也不可删除。

pss0902说得对，本人一直在想办法删除这个层，但一直做不到

woaishuijia · 发表于 2009-6-23 06:15:17

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

2 K* B3 m* v* a0 e- p
Dim B As AcadBlock
/ _3 C, j# n2 X3 `" E* z( S
On Error Resume Next
0 c0 O3 U) [, M- W' L! [& C: Z
With ThisDrawing8 S* {' V3 m% g3 G. t7 L b
For Each B In .Blocks
# S' K4 F4 @, p4 `. v# [' L0 h6 t
If Left(B.Name, 2) = "*D" Then B.Delete5 C, \2 B8 G* }, R1 a. I0 S
Next
9 z" F5 u2 D- A" n X, _
.Layers.Item("DEFPOINTS").Delete
; g6 ^& \( z. R9 H) f
End With
$ c! v* ?* E9 }4 ^# x

复制代码

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

ytcadtools · 发表于 2009-6-24 10:51:33

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

		自动登录	找回密码
密码			注册

通知

[已答复] Defpoints层如何产生的

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

回复 7# ytcadtools 的帖子

浏览过的版块