I work in a part
I did that, but it is the code in brackets in the formula that I do not find.
I find this example for line (point,direction)on net:
Set Parm = parameters.CreateDimension("HelixHeight", "LENGTH", Height)
Set Point1 = PartDoc.part.HybridShapeFactory.AddNewPointCoord(X0, Y0, Z0)...