lpc9999 发表于 2007-6-14 21:36:00

跪求一vb排续程序

<p>以知一txt文件内容:</p><p>10,10&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp;(第一条直线起点)</p><p>20,20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(第一条直线终点)</p><p>30,20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'(第二条直线起点)</p><p>30,30&nbsp;&nbsp;&nbsp;&nbsp; '(第二条直线终点)</p><p>20,20&nbsp;&nbsp;&nbsp;&nbsp; '(第三条直线起点)</p><p>30,20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'(第三条直线终点)</p><p>如何把他们排成连续的直线啊</p>

StartMe 发表于 2007-6-14 23:47:00

用距原点的距离判断。

jkbanana 发表于 2007-6-16 18:45:00

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

天龙八部 发表于 2007-7-23 12:01:00

<p>直接用&nbsp; dim xxx as acadline</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dim ppp as acadapplication</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dim ggg(0 to 12) as double</p><p>ggg(0)=10</p><p>ggg(1)=10&nbsp;</p><p>&nbsp;........</p><p>set&nbsp;xxx=ppp.modelspace.addline(ggg)</p><p>&nbsp;</p><p></p>
页: [1]
查看完整版本: 跪求一vb排续程序