Dassault Systemes: Vba 7.1 [hot]

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

' 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 | Dim sketch As Sketch Set sketch = shapeFactory