Create a dynamic line from line to circle, how?

Geometry
1

Hello,

Can i create a dynamic line (spline whatever)…?
It starts as line and at the end it is a circle?
driven by a slider…
alternativly it can be points
2022-08-01_10h15_34
2022-08-01_10h16_10
2022-08-01_10h16_39

2022-08-01_10h09_30
2022-08-01_10h09_301468×437 93 KB

2

Like this?

cirLin

rd = 6;
ct = 100;
cr = Circle.ByCenterPointRadius(Point.ByCoordinates(0,rd),rd);
ln = Line.ByStartPointDirectionLength(Point.Origin(), Vector.XAxis(), cr.Length);
p1 = cr.PointAtParameter(0..1..#ct).Rotate(cr.CenterPoint,Vector.ZAxis(),-90);
p2 = List.Flatten([p1,ln.PointAtParameter(0..1..#ct)],-1);
cv = NurbsCurve.ByPoints(List.TakeItems(List.ShiftIndices(p2,-sh),ct));
6 Likes
3

@Vikram_Subbaiah ,

Thats exactly what i am looking for… when the points just move(translate) i could host elements on it!

I have still this syntex issue

rd = 6;
ct = 100;
cr = Circle.ByCenterPointRadius(Autodesk.Point.ByCoordinates(0,rd),rd);
ln = Line.ByStartPointDirectionLength(Autodesk.Point.Origin(),Autodesk.Vector.XAxis(), cr.Length);
p1 = cr.PointAtParameter(0..1..#ct).Rotate(cr.CenterPoint,Autodesk.Vector.ZAxis(),-90);
p2 = List.Flatten([p1,ln.PointAtParameter(0..1..#ct)],-1);
cv = NurbsCurve.ByPoints(List.TakeItems(List.ShiftIndices(p2,-sh),ct));

Prefix Autodesk …

2022-08-01_12h09_00
2022-08-01_12h09_001378×620 112 KB

grafik
grafik743×640 77.5 KB

4

Prefix Point with Autodesk.DesignScript.Geometry.

3 Likes
5

Since you seem to have installed packages that create conflicts you will need to do something like this

rd = 6;
ct = 100;
cr = Autodesk.DesignScript.Geometry.Circle.ByCenterPointRadius(Autodesk.DesignScript.Geometry.Point.ByCoordinates(0,rd),rd);
ln = Autodesk.DesignScript.Geometry.Line.ByStartPointDirectionLength(Autodesk.DesignScript.Geometry.Point.Origin(), Autodesk.DesignScript.Geometry.Vector.XAxis(), cr.Length);
p1 = Autodesk.DesignScript.Geometry.Curve.PointAtParameter(cr,0..1..#ct).Rotate(cr.CenterPoint,Autodesk.DesignScript.Geometry.Vector.ZAxis(),-90);
p2 = DSCore.List.Flatten([p1,Autodesk.DesignScript.Geometry.Curve.PointAtParameter(ln,0..1..#ct)],-1);
cv = Autodesk.DesignScript.Geometry.NurbsCurve.ByPoints(List.TakeItems(DSCore.List.ShiftIndices(p2,-sh),ct));
2 Likes