释放块参照

torch

大侠，


我在关于块参照的过程中，在同一个图档中运行两次相同的程序，会发现必须开启新的CAD图档才能运行，原图档会出错。是不是与块参照没有被释放有关！


因此，我想问问如何释放块参照并保留图元，以便下次在同一个图档上运行程序时，不会出错！

雪山飞狐_lzh

释放块参照?可以给一段代码说明一下么?

torch

Sub Example_Bind()
On Error GoTo ERRORHANDLER

' Define external reference to be inserted
Dim xrefHome As AcadBlock
Dim xrefInserted1 As AcadExternalReference
Dim xrefInserted2 As AcadExternalReference

Dim insertionPnt(0 To 2) As Double
Dim PathName As String

insertionPnt(0) = 1
insertionPnt(1) = 1
insertionPnt(2) = 0
PathName = "e:/lgs/ER1.dwg"

' Add the external reference
Set xrefInserted1 = ThisDrawing.ModelSpace. _
AttachExternalReference(PathName, "XREF_IMAGE", _
insertionPnt, 1, 1, 1, 90, False)

Set xrefInserted2 = ThisDrawing.ModelSpace. _
AttachExternalReference(PathName, "XREF_IMAGE", _
insertionPnt, 1, 1, 1, 0, False)
ZoomAll
MsgBox "The external reference is attached."

' Bind the external reference definition
ThisDrawing.Blocks.Item(xrefInserted1.Name).Bind False
'ThisDrawing.Blocks.Item(xrefInserted2.Name).Bind False
MsgBox "The external reference is bound."

Exit Sub
ERRORHANDLER:
MsgBox Err.Description
End Sub 重新运行会发现存在"File Access error"的错误，请大侠帮我看看，应该怎样消除这个问题 此外，怎样获得已经插入到图形中的块的插入点，xScale，yScale，zScale等参数 谢谢！

雪山飞狐_lzh

去掉ThisDrawing.Blocks.Item(xrefInserted1.Name).Bind False

torch

如果需要ThisDrawing.Blocks.Item(xrefInserted1.Name).Bind False
将再如何解决上述问题呢？ 请大侠指点！谢谢！

torch

我发现文件不在指定的目录也会出现相同的错误，是不是CAD已经采用独占的方式占用了该目录文件，有什么办法将它独占释放掉吗？