' 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
' 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
' In UserForm1 with TextBox1, CommandButton1 Private Sub CommandButton1_Click() GlobalHeight = CDbl(TextBox1.Text) Unload Me End Sub ' In main module Public GlobalHeight As Double ' Pad the sketch Dim pad As Pad Set pad = shapeFactory
| Element | Syntax Example | |--------|----------------| | Variable | Dim partDoc As Document | | Loop | For i = 1 To 10 ... Next i | | Condition | If Not partDoc Is Nothing Then ... | | Function | Function GetPartName() As String | | Error handling | On Error Resume Next / On Error GoTo ErrHandler | "Select a face"
If Not lengthParam Is Nothing Then lengthParam.Value = 150.0 part.Update End If End Sub Sub SelectFace() Dim sel As Selection Set sel = CATIA.ActiveDocument.Selection sel.Clear ' Status returns "Normal" or "Cancel" Dim status As String status = sel.SelectElement("Face", "Select a face", False)