社区 › VB › 如何从Coordinates中提取各坐标点数据

shyshy0916 发表于 2007-10-27 16:39:00

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

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 发表于 2007-10-27 18:19:00

也许问题在get3Dpts的数据类型
未赋值的get3Dpsts也许等于0而不是""
不知道对不对，你测试一下

shyshy0916 发表于 2007-10-28 02:30:00

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

烟雨.江南 发表于 2007-11-2 11:14:00

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

兰州人 发表于 2007-11-6 16:08:00

管板交点
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

查看完整版本: 如何从Coordinates中提取各坐标点数据