清理快参照遇到的问题

朝日敦夕月

请问bbs里面的高手们，我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例，我想把这个CAD里原先该名图例彻底清除（包括快名称、块）。然后我用purse命令清理块，但是无法清理。我不想通过修改块名称的方法实现，我该怎么办？
, y( s; n& U( S* k  G4 Y不能清理此块定义的原因有:
# w0 j8 u9 Y5 E. ^; q7 p, Q-- 嵌套在另一个块中。
-- 嵌套在图形中。
  i  h( d4 y+ w1 ?8 Z-- 是附着的外部参照图形。

wenwengg

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

朝日敦夕月

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

wenwengg

块编辑器只能编辑内部块,应当尽量使用内部块
2 I/ f8 U1 b/ M+ C外部块的清理方法：可以用VBA编程解决，新建一个块，把外部块的引用指向这个新建块就可以把外部块变成内部块；
这时外部块是清理不掉的，保存图纸，然后关闭 重新打开就没有外部块了。
VBA代码如下：
Sub ReplaceBlockReference()
    On Error Resume Next
0 x; _- Q% b" W, V# \   
2 i& K, N( c5 |6 c. c; r" j# q) z    Dim blockEnt As AcadBlockReference
/ @& ?+ U; j/ ^- e  w    Dim blkName As String
* M; U! U% {" S* b% {$ y8 p1 j0 r    Dim getobj As Object
/ h. L+ }3 e( C" q7 N9 ]: E+ ]    Dim p As Variant
2 \. k' t$ L$ v    Dim I As Integer
# C% k" H7 v6 }4 r/ ]   
& e2 B% P+ f8 X4 _+ r) B    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
    If blkName = "" Then
  x2 S; g, H7 K6 I" ?4 B    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"
9 G. H  t% y! ~2 f    blkName = getobj.Name
    Else
! W8 }4 |9 [9 u6 E& `$ ~    End If
, v/ C/ w7 T$ t4 w'加入选择集
    Dim ssetObj As AcadSelectionSet
  J6 s$ ?  y  S- A    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
        ssetObj.Delete
    End If
    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
& ]( Y. S, A2 e1 ^( ]* @    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"
% o% x9 q( O1 @3 q5 g# W    ssetObj.SelectOnScreen

'替换
& G3 c2 ~4 x( P3 ~$ z% p    For I = 0 To ssetObj.count - 1
* I( v, C% {) ]& z2 f9 s        Set blockEnt = ssetObj(I)
' h1 f+ j: z' V: B% p" L3 v5 K        blockEnt.Name = blkName
    Next
        ssetObj.Delete
End Sub

[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]

hedarkson

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