03-06-2023
03:34 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-06-2023
03:34 AM
Dim ModelDef As Inventor.ComponentDefinition = Nothing
Dim oDoc As DrawingDocument = oApp.ActiveDocument
Dim ModelDoc As Document = Nothing
Try
ModelDoc = oDoc.ReferencedDocuments.Item(1)
Catch
End Try
If ModelDoc IsNot Nothing Then
If ModelDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
ModelDef = CType(ModelDoc, Inventor.AssemblyDocument).ComponentDefinition
ElseIf ModelDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
ModelDef = CType(ModelDoc, Inventor.PartDocument).ComponentDefinition
End If
End If
If ModelDoc IsNot Nothing Then
ModelDoc.Update()
Dim strMass As Double = ModelDef.MassProperties.Mass
oDoc.Update()
End If