08-19-2015
01:44 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-19-2015
01:44 PM
brendansullivan:
You can use the following code to get the sheet metal thickness. The first two lines are not needed if you it with the code above as it already has those lines.
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveEditDocument
Dim oSheetMetalCompDef As SheetMetalComponentDefinition
Set oSheetMetalCompDef = oDoc.ComponentDefinition
Dim thick As Double
'Inventor returns the thickness in metric so it needs converted
thick = oSheetMetalCompDef.Thickness.Value / 2.54
You can use the following code to get the sheet metal thickness. The first two lines are not needed if you it with the code above as it already has those lines.
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveEditDocument
Dim oSheetMetalCompDef As SheetMetalComponentDefinition
Set oSheetMetalCompDef = oDoc.ComponentDefinition
Dim thick As Double
'Inventor returns the thickness in metric so it needs converted
thick = oSheetMetalCompDef.Thickness.Value / 2.54