一组坐标点调入AutoCAD自动绘制多段线lisp

;;;;文本格式的一组坐标点调入AutoCAD自动绘制多段线
;;;已知一组 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))
)
(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 ")")))
)
(command "")
(close fn)
)

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