运行以下规则，原理如下： 将工程图所连接的模型复制一份临时文件，将当前工程图连接到新的临时文件后删除临时文件，相当于工程图已经找不到模型了，这时候等于是断开了，每次打开工程图时，会提示找不到模型，跳过即可；需要恢复也简单，打开工程图时选择正确的文档进行匹配，就完成链接了；
代码如下：
Sub Main()
Dim oDrawingDocument As DrawingDocument = ThisApplication.ActiveDocument
Dim oDrawingDocumentFileName As String = oDrawingDocument.FullDocumentName
For i = 1 To oDrawingDocument.ReferencedDocuments.Count
Dim ModelDocumentName As String = oDrawingDocument.ReferencedDocuments(i).fulldocumentname
If IO.File.Exists(ModelDocumentName) Then
'建立一个临时文件
Dim NewModelDocumentName As String =IO.Path.ChangeExtension( IO.Path.GetTempFileName,IO.Path.GetExtension(ModelDocumentName))
'复制模型到临时文件
IO.File.Copy(ModelDocumentName, NewModelDocumentName)
'替换模型
Dim oFD As FileDescriptor = oDrawingDocument.File.ReferencedFileDescriptors(i)
oFD.ReplaceReference(NewModelDocumentName)
'删除被替换的模型
IO.File.Delete(NewModelDocumentName)
'重新打开工程图文件
oDrawingDocument.Save
oDrawingDocument.Close
ThisApplication.Documents.Open(oDrawingDocumentFileName)
End If
Next
End Sub
