Hello everyone,
I've been spending days trying to figure out how to create a Product then place in a 3DShape inside this product created, I tried this code below:
as you can see in the code above, I have problem adding a 3DShape to the product ,
for more details , in V5 I can do that using the code below :
Any hint is really appreciated!
Regards
I've been spending days trying to figure out how to create a Product then place in a 3DShape inside this product created, I tried this code below:
Code:
Sub CATMain ()
'-----create a product
dim oNewService As PLMNewService2
set oNewService = CATIA.GetSessionService("PLMNewService2")
Dim oEditor As Editor
oNewService.PLMCreate "VPMReference",oEditor
'------for the next line i want to add a 3DShape to this product I've created
oNewService.PLMCreate "3DShape",oEditor 'the 3dshape is created alone in a new window
End Sub
as you can see in the code above, I have problem adding a 3DShape to the product ,
for more details , in V5 I can do that using the code below :
Code:
Sub CATMain ()
dim documents1 As Documents
set documents1=CATIA.Documents
dim productdocument1 As ProductDocument
set productdocument1=documents1.Add("Product")
dim products1 As Products
set products1=productdocument1.Products
dim product2 as product
set product2=products1.AddNewComponent("Part","")
End Sub
Any hint is really appreciated!
Regards