清理快参照遇到的问题

朝日敦夕月

请问bbs里面的高手们，我在画图的时候想用另外一个CAD里同一个名字的图例替换这个CAD里原先的图例，我想把这个CAD里原先该名图例彻底清除（包括快名称、块）。然后我用purse命令清理块，但是无法清理。我不想通过修改块名称的方法实现，我该怎么办？
不能清理此块定义的原因有:
-- 嵌套在另一个块中。
-- 嵌套在图形中。
7 w5 d7 @" _  }, [! [! p- j-- 是附着的外部参照图形。

wenwengg

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

朝日敦夕月

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

wenwengg

块编辑器只能编辑内部块,应当尽量使用内部块
外部块的清理方法：可以用VBA编程解决，新建一个块，把外部块的引用指向这个新建块就可以把外部块变成内部块；
3 t4 _& ^3 ?. z# i! ?这时外部块是清理不掉的，保存图纸，然后关闭 重新打开就没有外部块了。
$ H) G9 C  ^( P9 h. d% `1 {" KVBA代码如下：
$ Y' M- V) d& @. ?" t% aSub ReplaceBlockReference()
    On Error Resume Next
" v  R( d" {/ B5 s- Z   
( M4 p! u8 W5 M+ J) b    Dim blockEnt As AcadBlockReference
' c3 V' Y" M8 _: K2 v% A' w    Dim blkName As String
$ K' L5 S/ a0 s    Dim getobj As Object
1 o6 w  E, l9 c# t: ?    Dim p As Variant
/ @7 }" X7 F9 n+ C: o# ?    Dim I As Integer
  I1 X. t) b" U/ w   
    blkName = ThisDrawing.Utility.GetString(0, vbCrLf & "替换为:")
2 v5 |5 z3 C$ ~- w6 I7 m' i8 I    If blkName = "" Then
& l* L% F* ?# @% H0 f  S5 Z    ThisDrawing.Utility.GetEntity getobj, p, "选择要替换后的图块 即新块"
    blkName = getobj.Name
    Else
" F9 o5 s. p( B8 N: o) H- @  u    End If
'加入选择集
    Dim ssetObj As AcadSelectionSet
    If Not IsNull(ThisDrawing.SelectionSets.item("Example")) Then
' n6 E3 b. j* g! m, }        Set ssetObj = ThisDrawing.SelectionSets.item("Example")
( O. o7 V9 s3 Z6 O7 d* ?        ssetObj.Delete
  K3 E; e& p; o& Z0 h    End If
- ]/ O) B6 W1 {0 ~- ?8 \    Set ssetObj = ThisDrawing.SelectionSets.Add("Example")
6 f# c+ w& T: L$ P    ThisDrawing.Utility.InitializeUserInput 0, "选择要替换的图块:"
    ssetObj.SelectOnScreen

3 ?: R  X) F* j4 R' }9 B'替换
9 z/ m0 N  N4 c, I/ F    For I = 0 To ssetObj.count - 1
- ?  z( E: Y# F; e7 K        Set blockEnt = ssetObj(I)
        blockEnt.Name = blkName
- b- j/ H2 V/ r% X0 m+ K5 n    Next
1 l& k! p) F4 J- \1 ^. R: r        ssetObj.Delete
End Sub

" J2 l/ s8 s: G7 j0 c[ 本帖最后由 wenwengg 于 2009-10-26 13:36 编辑 ]

hedarkson

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