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

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

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中提取各坐标点数据

发表回复

精选推荐