12-23-2024
07:06 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-23-2024
07:06 AM
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.
Blog: hjalte.nl - github.com