链接和这个跟图纸和模型的关系没有关系。
延迟更新是一个很好的选择, 只是暂时不更新,但是还是保持关联状态, 容易恢复。
运行以下规则,原理如下: 将工程图所连接的模型复制一份临时文件,将当前工程图连接到新的临时文件后删除临时文件,相当于工程图已经找不到模型了,这时候等于是断开了,每次打开工程图时,会提示找不到模型,跳过即可;需要恢复也简单,打开工程图时选择正确的文档进行匹配,就完成链接了;
代码如下:
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
您好!请问您的问题解决了吗?
如果以上专家的回答解决了您的问题,或者对您的问题有参考作用,请将他们的回复点击 【接受解答】 按钮。这可以帮助其他人更快地找到解决方案,谢谢您的参与!