请看看这个程序的问题(atuolisp)

lzy9788

请看看这个LISP的问题 ;已知一组 X、Y、Z ，并且已写入一文件TXT1.TXT,要根据此文件让其自动用“PLINE”绘出。
;文件内容如下：
;
;X Y Z
;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
;
;可以用以下程序完成：
(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))
);end if
(if fle
(progn
(setq fn (open fle "r"))
(read-line fn)
(read-line fn)
(command "pline")
(while (setq pt (read-line fn))
(command (read (strcat "(" pt ")")))
);end while
(command "")
(close fn)
);end progn
(princ "\n未选择数据文件，退出")
);end if
(setvar "cmdecho" oldcmd)
(setvar "blipmode" oldblip)
(setvar "osmode" oldsnap)
(princ)
);end defun

lzy9788

txt1.txt要怎么样写才对，为什么打开文本后提示点无效呢


请帮手

alin

您的程序我运行过没有问题啊

meflying

程序没有问题啊，不过结果会少了第一个点，因为你开始多用了一次READ-LINE

f5612140

樓主txt1.dat的內容第一行多了 x         y         z,去掉即可

meflying

TXT文件本身没有问题（不过前面的分号应该去掉的），只要格式确定，都可以在程序里进行处理的