Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
JelteDeJong
in reply to: nick.seman

Moving the arc by manipulating the sketch points seems possible:

Dim otg = ThisApplication.TransientGeometry
Dim doc As PartDocument = ThisDoc.Document

Dim sketch As Sketch = doc.ComponentDefinition.Sketches.Add(doc.ComponentDefinition.WorkPlanes.Item(1))
sketch.Edit()
Dim arc1 = sketch.SketchArcs.AddByCenterStartEndPoint(otg.CreatePoint2d(0, 0), otg.CreatePoint2d(10, 0), otg.CreatePoint2d(0, 10), True)
Dim arc2 = sketch.SketchArcs.AddByCenterStartEndPoint(otg.CreatePoint2d(-1, -1), otg.CreatePoint2d(9, -1), otg.CreatePoint2d(-1, 9), False)

MsgBox("Now move.")
arc1.CenterSketchPoint.MoveTo(otg.CreatePoint2d(1, 1))
arc1.StartSketchPoint.MoveTo(otg.CreatePoint2d(11, 1))
arc1.EndSketchPoint.MoveTo(otg.CreatePoint2d(1, 11))

Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

EESignature


Blog: hjalte.nl - github.com