Message 1 of 5
symeetry constraint
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
hello everyone
can you help me
I try to make a symmetry of some points that I have in the sketch but it generates an error
Dim oDoc As Document oDoc = ThisApplication.ActiveDocument Dim Boceto As Sketch Boceto = oDoc.ComponentDefinition.Sketches.Item("Hole_Tubes") Dim oSymmetryLine As SketchLine Dim oSymmetry As SymmetryConstraint Dim oTransGeom As TransientGeometry oTransGeom = ThisApplication.TransientGeometry Dim oSymmetryLineX As SketchLine oSymmetryLineX = Boceto.SketchLines.AddByTwoPoints(oTransGeom.CreatePoint2d(0, -10), oTransGeom.CreatePoint2d(0, 10)) Dim sketchPoints As SketchEntitiesEnumerator sketchPoints = Boceto.SketchPoints oSymmetry = Boceto.GeometricConstraints.AddSymmetry(sketchPoints, sketchPoints, oSymmetryLineX)