清理快参照遇到的问题

朝日敦夕月

请问bbs里面的高手们，我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例，我想把这个CAD里原先该名图例彻底清除（包括快名称、块）。然后我用purse命令清理块，但是无法清理。我不想通过修改块名称的方法实现，我该怎么办？
不能清理此块定义的原因有:
2 s1 D! k( t$ L( z  E-- 嵌套在另一个块中。
-- 嵌套在图形中。
. W' S' k3 _3 h6 _& Q. W- x5 p-- 是附着的外部参照图形。

wenwengg

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

朝日敦夕月

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

wenwengg

块编辑器只能编辑内部块,应当尽量使用内部块
. a; ?5 `. y" ]/ y1 ^( `' o0 ~+ ^外部块的清理方法：可以用VBA编程解决，新建一个块，把外部块的引用指向这个新建块就可以把外部块变成内部块；
这时外部块是清理不掉的，保存图纸，然后关闭 重新打开就没有外部块了。
: E( D9 B# R- T; m! TVBA代码如下：
Sub ReplaceBlockReference()
    On Error Resume Next
$ `8 c; K1 A7 v! J   
6 x2 j, V8 P5 n+ |* Z6 J    Dim blockEnt As AcadBlockReference
( v( {% F+ P6 T    Dim blkName As String
    Dim getobj As Object
( E# [- Y9 F" }3 G    Dim p As Variant
/ v% i) [1 ?- }0 _8 Z    Dim I As Integer
; _  X" V* K3 a/ c9 D   
) m1 P5 w' @: d1 o    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
    If blkName = "" Then
    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"
    blkName = getobj.Name
# w" `% k& F% V9 c9 R& H& T! B- B    Else
    End If
'加入选择集
    Dim ssetObj As AcadSelectionSet
2 ^. A7 Q) r" f+ t4 C$ f2 B* f    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
& \8 c- Y! t1 m! ?+ p        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
& [# F3 Y) h9 ?) \6 z        ssetObj.Delete
    End If
    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"
/ o  b7 U2 z- ^) d. _    ssetObj.SelectOnScreen

'替换
    For I = 0 To ssetObj.count - 1
& ?/ s0 B. _8 s# a# c1 Q9 n' }        Set blockEnt = ssetObj(I)
        blockEnt.Name = blkName
    Next
        ssetObj.Delete
7 [3 G* l0 E# K3 P# ^2 C' ?4 L; ~End Sub
! I2 X# Q/ S9 D( K0 M; B8 \/ g9 t
[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]

hedarkson

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