强制保存文档及其引用文档

Document.Save用来保存文档本身。如果需要同时保存其引用的文档，用Document.Save2。而缺省情况下，只有做了修改的文档才会被保存。Inventor会检查文档是否要保存，所以你会看到一个对话框弹出，列出了哪些文档需要保存。如果想无论有无修改，都保存，可强行设置Document.Dirty = True.  以下是一个简单的例子：

 ' 当前激活文档    Dim oDoc As Document    Set oDoc = ThisApplication.ActiveDocument        Dim oRefDoc As Document    Dim oRefDocDesc As DocumentDescriptor        ' 设置所有引用文档Dirty    For Each oRefDocDesc In oDoc.ReferencedDocumentDescriptors        Set oRefDoc = oRefDocDesc.ReferencedDocument        oRefDoc.Dirty = True    Next    ' 保存文档和引用文档.    Call oDoc.Save2(True)