I want my macro to create geometry in the active catpart that's inside a product. I don't want to have to open the catpart in a separate window.
I was thinking the below but I'm drawing a blank here...
Dim Documents1 As Documents
Set Documents1 = CATIA.Documents
Dim PartDocument1 As PartDocument
Set PartDocument1 = Documents1.Item("")
Dim Part1 As Part
Set Part1 = PartDocument1.Part
I was thinking the below but I'm drawing a blank here...
Dim Documents1 As Documents
Set Documents1 = CATIA.Documents
Dim PartDocument1 As PartDocument
Set PartDocument1 = Documents1.Item("")
Dim Part1 As Part
Set Part1 = PartDocument1.Part