Dassault Systemes Vba 7.1 __top__ Link

Dim shapeFactory As Factory2D Set shapeFactory = part1.ShapeFactory

' 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 dassault systemes vba 7.1

' Your automation logic here ' ...

Dim sketch As Sketch Set sketch = shapeFactory.AddNewSketch(xyPlane) sketch.OpenEdition Dim shapeFactory As Factory2D Set shapeFactory = part1

Dim catiaApp As Application Set catiaApp = GetObject(, "CATIA.Application") If catiaApp Is Nothing Then MsgBox "Start CATIA first" Exit Sub End If dassault systemes vba 7.1

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