Dassault Systemes Vba 7.1 [portable] -
' Access parameters collection Dim params As Parameters Set params = part.Parameters
' Create a circle (Factory2D methods) Dim circleCenter As Point2D Set circleCenter = sketch.Factory2D.AddPoint(0, 0) Dim circle As Circle2D Set circle = sketch.Factory2D.AddCircle(0, 0, 20) ' radius 20mm dassault systemes vba 7.1
' Create sketch on XY plane Dim originElements As OriginElements Set originElements = part1.OriginElements Dim xyPlane As Reference Set xyPlane = originElements.PlaneXY ' Access parameters collection Dim params As Parameters
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 dassault systemes vba 7.1
' Pad the sketch Dim pad As Pad Set pad = shapeFactory.AddNewPadFromRef(sketch, 30) ' height 30mm part1.Update End Sub Sub ChangeParameter() Dim partDoc As PartDocument Set partDoc = CATIA.Documents.Open("C:\MyPart.CATPart") Dim part As Part Set part = partDoc.Part