Dassault Systemes Vba — 7.1

If Not lengthParam Is Nothing Then lengthParam.Value = 150.0 part.Update End If End Sub Sub SelectFace() Dim sel As Selection Set sel = CATIA.ActiveDocument.Selection sel.Clear ' Status returns "Normal" or "Cancel" Dim status As String status = sel.SelectElement("Face", "Select a face", False)

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

Dim shapeFactory As Factory2D Set shapeFactory = part1.ShapeFactory If Not lengthParam Is Nothing Then lengthParam

Dim sketch As Sketch Set sketch = shapeFactory.AddNewSketch(xyPlane) sketch.OpenEdition "Select a face"

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