I think I have sort of did it using this:
(setq vl
(list
(cons 0 "SPLINE")
(cons 8 "layer")
(cons 100 "AcDbEntity")
(cons 100 "AcDbSpline")
(cons 73 (length ptlstf2))
(cons 74 (length ptlstf))
(cons 62 10)
(cons 70 8)
(cons 71 3)
)
)
I guess I had code 70 wrong and was missing code 71. I also had to remove code 43
It now creates an spline but I guess I must be missing some other calculations.
with this routine I was trying to change scales in X and Y, I guess there is some math I would need to do the calculations for the rest of the codes