Are you looking for code to connect with the parameters? If so, there is this....
With CATIA
cFileSys = .FileSystem
objDocs = .Documents
End With 'CATIA
cFolder = cFileSys.GetFolder(strToFolder)
objSeedDocs = cFolder.Files
With objSeedDocs
For intI = 1 To .Count
If .Item(intI).Name.IndexOf("Position_1.CATProduct" <> -1 Then
objDoc = CATIA.Documents.Read(strToFolder & "\" & objSeedDocs.Item(intI).Name)
productDocument1 = CType(objDoc, ProductStructureTypeLib.ProductDocument)
product1 = productDocument1.Product
parameters1 = product1.Parameters
Exit For
End If
Next
End With
This was taken from a program that has a CATProcess as it's Active document. |