二维线的节点问题,附一段程序

leefy

各位大侠,在CAD中怎么求出一个闭合二维线节点的个数,用vertex查出来的和用coordinates这个函数算出来的对不上呀.还有就是VERTEX这个属性在VBA中有这个函数吗?我需要的是求出这个闭合的二维线每个节点的坐标,不知道各位大侠有什么更好的办法吗?

For a = 0 To aa
For di = 1 To 100
cc = (UBound(ftext.Item(aa - a).Coordinates) + 1) \ 2
If cc <> 0 Then
ftext.Item(aa - a).color = acRed

TextBox4.text = cc
End If
Next
Next

我是做测绘工作的,在实际的工作有许多CAD方面的小问题,楼主是吗?

zhuxuhong

我也是搞测绘的,你看看这段代码即可

 

      allert = GzwObj.Coordinates
      Lbnd = LBound(allert)
      Ubnd = UBound(allert)

 

      ReDim points(Lbnd To Ubnd) As Double

 

      For i = Lbnd To Ubnd Step 2
         points(i) = allert(i)
         points(i + 1) = allert(i + 1)
         msg = msg & Format(allert(i + 1), "#####0.000") & "+" & Format(allert(i), "#####0.000") & ","
      Next i