Here is a sample that adds the coincident constraint. This assumes that a
sketch is active and it contains a line and an ellipse.
Sanjay-
Public Sub AddCoincident()
Dim oSketch As Sketch
Set oSketch = ThisApplication.ActiveEditObject
Dim oPoint As SketchPoint
Set oPoint = oSketch.SketchLines(1).EndSketchPoint
Dim oEllipse As SketchEllipse
Set oEllipse = oSketch.SketchEllipses(1)
Dim oCoincidentConstr As CoincidentConstraint
Set oCoincidentConstr =
oSketch.GeometricConstraints.AddCoincident(oPoint, oEllipse)
End Sub
"kazak"
wrote in message
news:[email protected]...
> Hello.
> I have active planar sketch. This sketh have one line and one ellipse.
Question: how coinsident constrant point of line with loop of ellipse?
Please, small sample.
> Is it Beforehand thanked
