Hallo,
Hierfür bräuchtest du die Lizenz SPA. Es gibt einen Workaround, der AFAIK mit einem aktuellen Release behoben wird.
Außerdem kannst du mal folgenden Code probieren.
Code:
Sub CATMain()
Dim rootDoc As ProductDocument
Set rootDoc = CATIA.ActiveDocument
Dim root As Product
Set root = rootDoc.Product
Dim oProds As products
Set oProds = root.products
Dim oSections As Sections
Set oSections = root.GetTechnologicalObject("Sections")
Dim oSection 'As Section
Set oSection = oSections.Add
End Sub
------------------
MFG
Rick Schulz
Nettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen richtig stellt. - Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP