|
|
发表于 2009-6-23 06:15:17
|
显示全部楼层
来自: 中国
回复 7# ytcadtools 的帖子
不要试图在图形界面使用清理命令(PURGE)删除defpoints图层,正确的做法是编程。' T" z* E/ M O" _1 Q* F
楼主不妨尝试下面的方法:
( ^6 s% j' B& e& H3 @7 R7 z4 i1、首先在图形界面打开一个空白文档,这时只有一个0图层3 a3 Z( r0 o: ]4 @3 s
2、在模型空间随便添加一个标注,打开图层工具栏或图层特性管理器,可以看到defpoints图层已创建
) |1 x1 [/ Y! B3 d3、加载并运行下面的VBA代码
4 d" W; \0 i' l! ]$ r- Dim B As AcadBlock
3 H7 _ l* _1 D4 r - On Error Resume Next, l! @8 O# u2 H& t( b
- With ThisDrawing4 N4 L. P+ ^2 x6 h, {
- For Each B In .Blocks* v" O& v, y+ W& q1 E
- If Left(B.Name, 2) = "*D" Then B.Delete! `5 X- A; a) z1 K& s( [
- Next
5 `1 f/ O+ D* M+ x - .Layers.Item("DEFPOINTS").Delete
2 U/ D! |5 Z& x - End With8 f' B9 @' X1 I' W1 U k _8 ^
复制代码 再次打开图层工具栏或图层特性管理器,可以看到defpoints图层已被删除 |
|