08-26-2016
01:13 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-26-2016
01:13 AM
Hi,
This code shows the displayed name of the solid (vba)
Public Sub GetSolidInformation()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDef As ComponentDefinition
Set oDef = oDoc.ComponentDefinition
Dim oSurfBody As SurfaceBody
For Each oSurfBody In oDef.SurfaceBodies
MsgBox (oSurfBody.Name)
Next oSurfBody
End Sub
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"
please feel free to "kudos"