如何从Coordinates中提取各坐标点数据

shyshy0916

get3Dpts = ent.Coordinates
  While get3Dpts(i) <> ""
   x(0) = get3Dpts(i): x(1) = get3Dpts(i + 1): x(2) = get3Dpts(i + 2)
    i = i + 3
  Set point = ThisDrawing.ModelSpace.AddPoint(x)
   Wend
这里面get3Dpts(i) <> ""好像不能检验结束，不知如何是好!
跪求各位老兄赐教!!小弟不胜感激!!!!!

muzi2005888

也许问题在get3Dpts的数据类型

未赋值的get3Dpsts也许等于0而不是""

不知道对不对，你测试一下

shyshy0916

上面的老兄说得对，我也觉得问题应该就在get3Dpts上
但把它改成 While get3Dpts(i) <> 0 后，依然不对
提示下标越界，即get3Dpts中的数据提完后，get3Dpts(i)就变得下标越界了。
实在不知如何提出上面的 Coordinates 中的坐标。
或是哪位老兄知道更简单的办法自动提取3D线上的坐标来
跪求各位老兄赐教!!小弟不胜感激!!!!!

烟雨.江南

用Ubound(get3Dpts)可以得到get3Dpts数组的个数，然后用For循环就简单多了。

兰州人

管板交点

Sub Example_IntersectWith()
    ' This example creates a line and circle and finds the points at
    ' which they intersect.
    Dim Object As AcadEntity, Object1 As AcadEntity
    Dim ii As Integer
    Dim ppt As Variant
    For ii = 0 To ThisDrawing.ModelSpace.Count - 1
      On Error Resume Next
      Set Object = ThisDrawing.ModelSpace.Item(ii)
      If ii = ThisDrawing.ModelSpace.Count - 1 Then
        Set Object1 = ThisDrawing.ModelSpace.Item(0)
      Else
        Set Object1 = ThisDrawing.ModelSpace.Item(ii + 1)
      End If
      'Debug.Print Object.Handle, Object1.Handle
      ppt = Object1.IntersectWith(Object, acExtendBoth)
      Debug.Print ii, ppt(0), ppt(1), ppt(2)
   
   
    Next ii
End Sub