跪求一vb排续程序

lpc9999

以知一txt文件内容:

10,10     ' (第一条直线起点)

20,20      '(第一条直线终点)

30,20     '(第二条直线起点)

30,30     '(第二条直线终点)

20,20     '(第三条直线起点)

30,20     '(第三条直线终点)

如何把他们排成连续的直线啊

StartMe

用距原点的距离判断。

jkbanana

首先你得确定你想怎么排列，按什么规律排列。比如你所给定的那几个点，就可以排成好几种连续直线

天龙八部

直接用  dim xxx as acadline

         dim ppp as acadapplication

       dim ggg(0 to 12) as double

ggg(0)=10

ggg(1)=10 

 ........

set xxx=ppp.modelspace.addline(ggg)