Dassault Systemes - Vba 7.1 Extra Quality

' 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

' In UserForm1 with TextBox1, CommandButton1 Private Sub CommandButton1_Click() GlobalHeight = CDbl(TextBox1.Text) Unload Me End Sub ' In main module Public GlobalHeight As Double dassault systemes vba 7.1

| 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 | ' Pad the sketch Dim pad As Pad Set pad = shapeFactory