清理快参照遇到的问题

朝日敦夕月

请问bbs里面的高手们，我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例，我想把这个CAD里原先该名图例彻底清除（包括快名称、块）。然后我用purse命令清理块，但是无法清理。我不想通过修改块名称的方法实现，我该怎么办？
1 K- V) w; p4 D5 U不能清理此块定义的原因有:
8 e& D% @0 ]5 \0 Y-- 嵌套在另一个块中。
-- 嵌套在图形中。
-- 是附着的外部参照图形。

wenwengg

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

朝日敦夕月

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

wenwengg

块编辑器只能编辑内部块,应当尽量使用内部块
7 _( y' z! D& g$ ^+ l2 Y外部块的清理方法：可以用VBA编程解决，新建一个块，把外部块的引用指向这个新建块就可以把外部块变成内部块；
# T+ O0 q, S/ {$ P# l1 ?这时外部块是清理不掉的，保存图纸，然后关闭 重新打开就没有外部块了。
VBA代码如下：
6 J% K2 X6 p) @! P! g: G% m5 vSub ReplaceBlockReference()
    On Error Resume Next
   
    Dim blockEnt As AcadBlockReference
) F0 l) `: o3 r1 S$ s0 R    Dim blkName As String
    Dim getobj As Object
$ \. M5 M1 J/ |  E: W    Dim p As Variant
    Dim I As Integer
   
    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
8 p8 b+ [3 ]. b3 a4 B9 z    If blkName = "" Then
( b6 ~' w$ l" \# n. F" |    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"
    blkName = getobj.Name
    Else
    End If
- w+ M: i; [& V* A: z$ R4 b'加入选择集
    Dim ssetObj As AcadSelectionSet
) [9 \8 s+ Z, q+ V  q' T, ~    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
        ssetObj.Delete
8 J% i% v2 G" w1 h( [    End If
# p( E/ g5 g% S& c" F+ W    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
6 g8 {% u- c! ?4 f! c    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"
    ssetObj.SelectOnScreen
; {0 h9 K- V5 N
'替换
. p4 E1 G1 Z9 [/ B' a' |7 @    For I = 0 To ssetObj.count - 1
/ e; T( \* c& q$ `  @/ p" K        Set blockEnt = ssetObj(I)
. Y& B$ u2 K8 W9 g) L0 ]        blockEnt.Name = blkName
    Next
        ssetObj.Delete
End Sub
. H/ @2 H4 C. i9 w% X8 Z0 N
( Q$ ^' Y" u. r( [. J/ _[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]

hedarkson

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