Hi Christian,
Right.
You could do something line this if you know where you want your curve:
Dim locationCurve As DB.LocationCurve = TryCast(modelCurve.Location, DB.LocationCurve)
Dim startPoint As DB.XYZ = locationCurve.Curve.GetEndPoint(0)
Dim endPoint As DB.XYZ = locationCurve.Curve.GetEndPoint(1)
Dim newCurve As DB.Line = DB.Line.CreateBound( _
New DB.XYZ(startPoint.X, startPoint.Y, startPoint.Z + 1.0), _
New DB.XYZ(endPoint.X, endPoint.Y, endPoint.Z + 1.0))
locationCurve.Curve = newCurve
Or you could use:
modelCurve.SetGeometryCurve(newCurve, True)
or (I haven't used this one):
Dim sketchplane As DB.SketchPlane = Nothing 'define your sketch plane here
modelCurve.SetSketchPlaneAndCurve(sketchPlane, newCurve)
or (I haven't used this one):
Dim sketchplane As DB.SketchPlane = Nothing 'define your sketch plane here
modelCurve.SketchPlane = sketchplane
-Matt
Cheers,
-Matt
_______________________________________________________________________________
Marking a post as a 'solution' helps the community. Giving a post 'Kudos' is as good as saying thanks. Why not do both?