[求助]如何用LISP读取文件中点值来画样条曲线?

hzh2000

关键问题是读的点值个数是不定的,比如有时是5个,有时是8个. 所以用"COMMAND"调用样条曲线是不行的.还有其他方法没?

f5612140

请参考 (defun c:1sp ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq fil (open "1sp.pln" "r"))
(setq data (read-line fil))
(command "Spline")
(while data
(command data)
(setq data (read-line fil))
)
(command "" "" "")
(close fil)
(prin1)
) 1sp.pln内的资料为 x1,y1 x2,y2 ...