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

' Access parameters collection Dim params As Parameters Set params = part.Parameters dassault systemes vba 7.1

sketch.CloseEdition

Dim catiaApp As Application Set catiaApp = GetObject(, "CATIA.Application") If catiaApp Is Nothing Then MsgBox "Start CATIA first" Exit Sub End If ' In UserForm1 with TextBox1, CommandButton1 Private Sub

' 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