清理快参照遇到的问题

朝日敦夕月

请问bbs里面的高手们，我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例，我想把这个CAD里原先该名图例彻底清除（包括快名称、块）。然后我用purse命令清理块，但是无法清理。我不想通过修改块名称的方法实现，我该怎么办？
不能清理此块定义的原因有:
( _9 _( N6 d* m4 U-- 嵌套在另一个块中。
: Y1 `' J2 i5 J4 I-- 嵌套在图形中。
-- 是附着的外部参照图形。

wenwengg

先将需要的图元复制到剪贴板，进入图块编辑器把里边所有图元删除，再粘贴，保存修改后的块；结束

朝日敦夕月

图块编辑器里能够删除包括外部参照的所有图元吗？

wenwengg

块编辑器只能编辑内部块,应当尽量使用内部块
外部块的清理方法：可以用VBA编程解决，新建一个块，把外部块的引用指向这个新建块就可以把外部块变成内部块；
这时外部块是清理不掉的，保存图纸，然后关闭 重新打开就没有外部块了。
VBA代码如下：
& Y' J/ J4 C/ ^( j( YSub ReplaceBlockReference()
* k1 e" K9 \, h0 m- ~- m+ L; A% R  p    On Error Resume Next
+ i7 @! o+ f. e( H5 }   
! O4 f# h! ~5 q) ^6 z/ `    Dim blockEnt As AcadBlockReference
" @3 l( q0 m! g* t    Dim blkName As String
# p8 k$ q1 e% e! A  G    Dim getobj As Object
+ X5 O6 \" h" u+ r    Dim p As Variant
0 A' ]2 b* N! k5 o6 {& t    Dim I As Integer
' k# b' t: v: `8 l+ z1 X   
    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
    If blkName = "" Then
    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"
    blkName = getobj.Name
    Else
    End If
'加入选择集
    Dim ssetObj As AcadSelectionSet
    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
        ssetObj.Delete
+ |- I8 C7 e9 }& y9 Q$ a6 ^% @    End If
    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
# h7 U, f1 o( S% ^" ]4 h    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"
% D' p7 `! \: p: ~    ssetObj.SelectOnScreen
  Q) ?4 ]( c' i& j; G
'替换
' y$ v) A% Q5 B    For I = 0 To ssetObj.count - 1
" m1 b& |& K5 s" e# i$ T! g* x        Set blockEnt = ssetObj(I)
' _' h* {4 e6 D2 ~1 p: a) g2 o( K        blockEnt.Name = blkName
    Next
5 Z# E6 U- S. P0 M( L: K5 y        ssetObj.Delete
End Sub
  s5 T3 K8 ~4 c& `5 {
[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]

hedarkson

不太懂，帮你踩下吧。。呵呵