做和文本格式的一组坐标点调入AutoCAD自

文本格式的一组坐标点调入AutoCAD自动绘制多段线

已知一组 X、Y、Z ，并且已写入一文件T,要根据此文件让其自动用“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 拉关于无卡咬负荷PB的测定：测定PB时要求在无卡咬负荷PB下的磨痕直径力实验机主要用于各种金属、非金属及复合资料停止拉伸、紧缩、曲折等力学性能指标的测试及研讨(getvar "osmode"))

(setvar "osmode" 0)

(setq fle (findfile "t"))

(if (not fle)

(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))

)

(if fle

(progn<实现了美观的设计/p>

(setq fn (open fle "r"))

(read-line fn)

(read-line fn)

(command "pline")

(while (setqδ=（P/F）*cos a pt (read-line fn))

(command (read (strcat "(" pt ")")))

)

(command "")

(close fn)

)

(princ "\n未选择数据文件，退出")

)

(setvar "cmdecho" oldcmd)

(setvar "blipmode" oldblip)

(setvar "osmode" oldsnap)

(princ)

)