sketch.CloseEdition
' Your automation logic here ' ...
' Access parameters collection Dim params As Parameters Set params = part.Parameters 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 sketch
' 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 | | Function | Function GetPartName() As String
Dim shapeFactory As Factory2D Set shapeFactory = part1.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 |