ry888 发表于 2008-2-27 08:24:00

如何获得所选定的二维多义线的第一个顶点和最后一个顶点的坐标

<p>如何获得所选定的二维多义线的第一个顶点和最后一个顶点的坐标</p>

storyst 发表于 2008-2-27 10:01:00

本帖最后由 作者 于 2008-2-27 10:04:57 编辑 <br /><br /> <p>AcadLWPolyline只能用Coordinates属性，<br/>RETCOORD = lwline.Coordinates<br/>&nbsp;&nbsp;&nbsp;&nbsp; fstPoint(0) = RETCOORD(0)<br/>&nbsp;&nbsp;&nbsp;&nbsp; fstPoint(1) = RETCOORD(1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; fstPoint(2) = 0<br/>&nbsp; acadline才有startpoint和endpoint属性。<br/>AcadLWPolyline只有读取选择的线段的Coordinates的个数，来找到RETCOORD（？）的值，读取末坐标。</p>

ry888 发表于 2008-2-28 15:21:00

<p>谢谢，那么如何得到多义线的顶点个数？</p>

storyst 发表于 2008-2-28 15:47:00

<p>sub getcoordcount()<br/>&nbsp;&nbsp;&nbsp; dim plobj as acadentity<br/>&nbsp;&nbsp;&nbsp; dim getcoordcount as long<br/>&nbsp;&nbsp;&nbsp;&nbsp;getcoordcount&nbsp;= (Ubound(plobj.coordinates)+1)/2<br/>&nbsp;&nbsp;&nbsp; msgbox getcoordcount<br/>end sub</p>

ry888 发表于 2008-2-28 21:48:00

谢谢指点
页: [1]
查看完整版本: 如何获得所选定的二维多义线的第一个顶点和最后一个顶点的坐标