Dassault Systemes Vba 7.1 !!top!! ⇒

Dim lengthParam As Parameter Set lengthParam = params.Item("Length") ' assume parameter exists

' Create sketch on XY plane Dim originElements As OriginElements Set originElements = part1.OriginElements Dim xyPlane As Reference Set xyPlane = originElements.PlaneXY dassault systemes vba 7.1

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

' 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

Dim shapeFactory As Factory2D Set shapeFactory = part1.ShapeFactory

' Access parameters collection Dim params As Parameters Set params = part.Parameters