CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1274|回复: 4

[求助] 清理快参照遇到的问题

[复制链接]
发表于 2009-10-24 10:33 | 显示全部楼层 |阅读模式
请问bbs里面的高手们,我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例,我想把这个CAD里原先该名图例彻底清除(包括快名称、块)。然后我用purse命令清理块,但是无法清理。我不想通过修改块名称的方法实现,我该怎么办?
- b6 `& R2 q9 k不能清理此块定义的原因有:. D- z/ e$ m) T; Z
-- 嵌套在另一个块中。' ^; @/ l3 M3 W7 ^7 h
-- 嵌套在图形中。& \- B) s3 c, D, d
-- 是附着的外部参照图形。
发表于 2009-10-24 14:08 | 显示全部楼层
先将需要的图元复制到剪贴板,进入图块编辑器把里边所有图元删除,再粘贴,保存修改后的块;结束
 楼主| 发表于 2009-10-24 18:25 | 显示全部楼层

回复 #2 wenwengg 的帖子

图块编辑器里能够删除包括外部参照的所有图元吗?
发表于 2009-10-26 13:12 | 显示全部楼层
块编辑器只能编辑内部块,应当尽量使用内部块
) Z5 q' P1 C0 X% K外部块的清理方法:可以用VBA编程解决,新建一个块,把外部块的引用指向这个新建块就可以把外部块变成内部块;
8 ^9 P: H2 Y) C5 c这时外部块是清理不掉的,保存图纸,然后关闭 重新打开就没有外部块了。- y6 v8 D4 h' }9 w/ S
VBA代码如下:8 U, ~- `' d) L# D$ h% Z( T: j4 S5 p
Sub ReplaceBlockReference(). N3 i' j7 @# w8 e9 C: O
    On Error Resume Next
. {) I; g8 Q( a$ _    * g: g  p" t- |; Q
    Dim blockEnt As AcadBlockReference
4 q) {9 u. @! ?# [1 A: ?    Dim blkName As String$ V; B& h/ V' f  c: @; P
    Dim getobj As Object
4 x' P: `/ g7 O- F    Dim p As Variant
) r3 H& H+ o7 r2 N    Dim I As Integer
* B2 u! e1 N$ ^$ n% q* r. d   
* Q7 H) c: Y) f+ m* f" S' f- e    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
! y) [. F& n# X0 ?% i    If blkName = "" Then
) X: M6 \6 z! h) x+ M' V    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"' x  h: [, k9 ^; |( z4 r5 K
    blkName = getobj.Name
+ o; C1 @! j% f    Else
) K- J5 `: ^9 k6 A& G    End If$ G$ h: l- @9 D. k+ @6 q
'加入选择集3 a( ^! r1 K5 f) g$ @9 b* z- B/ @
    Dim ssetObj As AcadSelectionSet) I% U; k6 j) T: D8 }7 x
    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
. S, \# d( f7 w: u5 K        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
; J2 c6 W1 H- j. E! @! a        ssetObj.Delete
. T( u0 e+ ]/ J* t+ i" ~0 _1 V' X    End If8 b) i' b4 }/ L- U& w
    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
/ H0 K7 Q. j3 U( i    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"5 W/ K2 V1 j; P+ ~
    ssetObj.SelectOnScreen2 j! W8 @/ ]: `7 b( o* q
5 j* {: g9 c/ o7 F
'替换
9 d. i9 g$ m. d7 e* |# P    For I = 0 To ssetObj.count - 15 ]1 {1 W$ m$ q% C# O2 d
        Set blockEnt = ssetObj(I)0 a" Z1 E  G" Z1 C. m, z5 B
        blockEnt.Name = blkName" u; `  o& @0 V. s
    Next
4 r+ {1 C9 f4 }# Z0 I        ssetObj.Delete
+ z& r5 j& k0 l( v0 R; FEnd Sub
; D; r' G. E( M, }' r+ }/ v0 o2 I
[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]
发表于 2009-10-27 11:13 | 显示全部楼层
不太懂,帮你踩下吧。。呵呵
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 05:57

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表