Dassault Systemes Vba 7.1 [patched] May 2026

Dim CATIA As Application Set CATIA = GetObject(, "CATIA.Application") ' Attach to running CATIA ' Or start a new session Set CATIA = CreateObject("CATIA.Application") CATIA.Visible = True Application ├─ Documents (Collection) │ ├─ PartDocument (Part) │ │ └─ Part (body, shapes, parameters) │ ├─ ProductDocument (Assembly) │ │ └─ Product (BOM, instances) │ └─ DrawingDocument (2D) └─ Windows, Editors, Selection 4.3 Typical Code Pattern – Get Active Document Dim activeDoc As Document Set activeDoc = CATIA.ActiveDocument If activeDoc Is Nothing Then MsgBox "No document open" Exit Sub End If 5. Practical Automation Examples 5.1 Create a New Part & Add a Pad (Extrude) Sub CreatePartWithPad() Dim partDoc As PartDocument Set partDoc = CATIA.Documents.Add("Part") Dim part1 As Part Set part1 = partDoc.Part

sketch.CloseEdition

' Get hybrid body or main shape factory Dim bodies As Bodies Set bodies = part1.Bodies Dim mainBody As Body Set mainBody = bodies.Item("PartBody") dassault systemes vba 7.1