二维线的节点问题,附一段程序
各位大侠,在CAD中怎么求出一个闭合二维线节点的个数,用vertex查出来的和用coordinates这个函数算出来的对不上呀.还有就是VERTEX这个属性在VBA中有这个函数吗?我需要的是求出这个闭合的二维线每个节点的坐标,不知道各位大侠有什么更好的办法吗?<br><br>For a = 0 To aa<br>For di = 1 To 100<br>cc = (UBound(ftext.Item(aa - a).Coordinates) + 1) \ 2<br>If cc <> 0 Then<br>ftext.Item(aa - a).color = acRed<br><br>TextBox4.text = cc<br>End If<br>Next<br>Next<br><br>我是做测绘工作的,在实际的工作有许多CAD方面的小问题,楼主是吗? <DIV>我也是搞测绘的,你看看这段代码即可</DIV><DIV> </DIV>
<DIV> allert = GzwObj.Coordinates<BR> Lbnd = LBound(allert)<BR> Ubnd = UBound(allert)</DIV>
<DIV> </DIV>
<DIV> ReDim points(Lbnd To Ubnd) As Double</DIV>
<DIV> </DIV>
<DIV> For i = Lbnd To Ubnd Step 2<BR> points(i) = allert(i)<BR> points(i + 1) = allert(i + 1)<BR> msg = msg & Format(allert(i + 1), "#####0.000") & "+" & Format(allert(i), "#####0.000") & ","<BR> Next i<BR></DIV>
<DIV> </DIV>
页:
[1]