请教，如何画带线形的多段线？

cxg121

请参考文件：
我的文本文件格式如下：
1，X坐标1，Y坐标1，高程1，线形1
2，X坐标2，Y坐标2，高程2，线形1
3，X坐标3，Y坐标3，高程3，线形1
4，X坐标4，Y坐标4，高程4，线形2
5，X坐标5，Y坐标5，高程5，线形2
6，X坐标6，Y坐标6，高程6，线形2 …… 已有程序把线画出来，可是没有线形的，我想画线时一起设线形，线形是文本文件每行的最后一个字段。

无痕

多义线画一条只能一种线形，你只能用ｌｉｎｅ画了，而且线形只能指定到线，你的文件是指定到点．．．．晕哦．３点和４点不同线形，到底３～４画出的线条是按线形１还是２呢．．．．

cxg121

这里有多条线，1到3点为1条，4到6点为一条，等等。3、4点之间是没有关联的。

cxg121

已有程序把线画出来，可是没有线形的，请看下列程序 ;定义函数名
(defun c:zhan()

;选择要打开的件
(setq tn (getfiled "原始数据文件(txt;dat;*)" "" "txt;dat;*" 2))
(setq fle (findfile tn))
(if (not fle)
(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
)
(if fle
(progn
(setq F_ID (open fle "r"))
(setvar "osmode" 0)
))

;展点连线程序
(while
(setq text0 (READ-LINE F_ID))
;是否到最后一行
(if (/= text0 "")
(progn
(setq n (vl-string-position (ascii ",") text0))
(setq n0 (vl-string-position (ascii ",") text0 (1+ n)))
(setq n1 (vl-string-position (ascii ",") text0 (1+ n0)))
(setq n2 (vl-string-position (ascii ",") text0 (1+ n1))) (setq dianhao (substr text0 1 n)
y (atof (substr text0 (+ n 2) (- n0 (1+ n))))
x (atof (substr text0 (+ n0 2) (- n1 (1+ n0))))
gaoc (substr text0 (+ n1 2) (- n2 (1+ n1)))
xianxing (substr text0 (+ n2 2))
p0 (list x y)
)


(if (/= xianxing xx) ;_if_1
(progn ;_progn_1
(if (/= xx nil);_if_2
(command "")
);_endif_2
(command "pline" p0)
) ;_end_progn_1
(command p0)
) ;_end_if_1 (setq xx xianxing)
)
))

(command "")
(command "zoom")
(command "e") (CLOSE F_ID)
) ;_主程序结束