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

lzy9788 · 发表于 2004-2-20 17:17:00

请看看这个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