求样条曲线与repeat的综合应用

zhelindaxues

例如我需要求180个点 然后用样条曲线连接起来该怎么办。

（repeat 180

********

********

(set point(***))

XXXXXXX；用样条曲线把点连接起来。

）

求教该怎么补全XXX部分。

ZZXXQQ

如果点坐标保存在文件中，可以用读文件的方法实现。
如果文件扩展名为txt，文件中每行数据格式为X,Y可以使用下面程序：
(defun c:tt ()
 (setvar "CMDECHO" 0)
 (setq nm (if nm nm ""))
 (if (setq nm (getfiled "选择文件" nm "txt" 2)) (progn
  (setq fp (open nm "r"))
  (command "spline")
  (repeat 180
   (setq pt (read-line fp))
   (command pt)
  )
  (close fp)
  (command "" "" "")
 ))
 (setvar "CMDECHO" 1)
 (princ)
)
如果想用输入设备输入点坐标，就不必编程了，可直接用SPLINE命令。