实现从文本文件的提取点坐标，自动绘制样条曲线，帮忙检查下

danding198 · 发表于 2006-11-26 18:07

原文件如下：

(defun c:pltxt (/ oldcmd oldblip oldsnap fle fn pt)
(setq oldcmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq oldblip (getvar "blipmode"))
(setvar "blipmode" 0)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq fle (findfile "txt1.txt"))
(if (not fle)
(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
)
(if fle
(progn
(setq fn (open fle "r"))
(read-line fn)
(read-line fn)
(command "spline")
(while (setq pt (read-line fn))
(command (read (strcat "(" pt ")")))
)
(command "")
(command "")
(command "")
(close fn)
)

(princ "\n未选择数据文件，退出")
)
(setvar "cmdecho" oldcmd)
(setvar "blipmode" oldblip)
(setvar "osmode" oldsnap)
(princ)
)

问题如下：绘制的线条第一个点不是文件中的第一组数据坐标，另外绘制的线条是平面的

而文件中是三维的坐标。

rongyifei · 发表于 2006-11-26 21:05

与你所读取的文件的数据结构有关系!

rongyifei · 发表于 2006-11-26 21:11

你应该把你的数据文件一并传上来!

danding198 · 发表于 2006-11-26 22:45

数据很简单啊

danding198 · 发表于 2006-11-26 22:46

123 456 789
222 333 444
444 555 666
777 888 999
888 999 77
999 754 44
111 755 66
333 666 55
555 777 11

复制上面的，保存为文本文件就行

ZZXXQQ · 发表于 2006-11-27 09:29

样条曲线只能是平面的。画三维的曲线要用三维多义线。

danding198 · 发表于 2006-11-27 23:12

明白了，谢谢

xzxsgy · 发表于 2006-11-28 16:38

crab3 · 发表于 2007-4-28 13:17

能装载，好像命令不执行，不懂。求求？？？！！

账号		自动登录	找回密码
密码			注册