Dassault Systemes Vba: 7.1 ~upd~

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

' Get hybrid body or main shape factory Dim bodies As Bodies Set bodies = part1.Bodies Dim mainBody As Body Set mainBody = bodies.Item("PartBody") dassault systemes vba 7.1

' Your automation logic here ' ...

' 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 Dim lengthParam As Parameter Set lengthParam = params

' 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