清理快参照遇到的问题

朝日敦夕月

请问bbs里面的高手们，我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例，我想把这个CAD里原先该名图例彻底清除（包括快名称、块）。然后我用purse命令清理块，但是无法清理。我不想通过修改块名称的方法实现，我该怎么办？
不能清理此块定义的原因有:
-- 嵌套在另一个块中。
& J! S5 Y; ~9 `0 F$ t4 s8 _0 _-- 嵌套在图形中。
9 D! b. J3 ^" m, f' I-- 是附着的外部参照图形。

wenwengg

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

朝日敦夕月

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

wenwengg

块编辑器只能编辑内部块,应当尽量使用内部块
/ k$ X- X6 j2 ?! l& u& i( q8 e外部块的清理方法：可以用VBA编程解决，新建一个块，把外部块的引用指向这个新建块就可以把外部块变成内部块；
这时外部块是清理不掉的，保存图纸，然后关闭 重新打开就没有外部块了。
' d, C" Z7 @/ C) d4 k# NVBA代码如下：
Sub ReplaceBlockReference()
7 d. a/ y8 @4 t8 }% n    On Error Resume Next
( Z( ~: J$ C# ~   
    Dim blockEnt As AcadBlockReference
    Dim blkName As String
    Dim getobj As Object
    Dim p As Variant
* s8 i! ^4 N4 E+ F) ^    Dim I As Integer
9 c2 a( {5 v- F8 _; }   
    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
2 K3 x1 R8 x6 A/ h    If blkName = "" Then
- @7 f0 x6 E9 n! J' _    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"
    blkName = getobj.Name
    Else
    End If
'加入选择集
    Dim ssetObj As AcadSelectionSet
/ W, L3 ?; I; U' ]5 s    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
' |. l) |# j0 z% Z9 c# }3 j0 W        ssetObj.Delete
0 {# P3 ~1 t/ I8 m    End If
    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
( O* D5 m* F1 Y8 y1 x1 L: S/ d) S  C    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"
    ssetObj.SelectOnScreen

'替换
! \; T+ V3 _( f0 W1 W7 \    For I = 0 To ssetObj.count - 1
        Set blockEnt = ssetObj(I)
" V7 e# h0 [( X- W' E: D3 b1 d0 G2 C+ c        blockEnt.Name = blkName
7 S) s& K- T$ m9 O    Next
        ssetObj.Delete
End Sub
: S6 s/ s) _  b; P5 b, [) z
! d5 E! ?7 v+ Y. B* H[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]

hedarkson

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