[原创]：学习VBA的第一个程序,同时求助

下里巴人

苯办法，可以画剖面,奇怪的是我的高城线从71--89逐级递增，总是先得到74，然后73，72，71 ，随后是75-89

为什么会出现前面的反常?

如果剖面线端点位于0,0, 好像问题就不会出现,这是咋回事?

Sub test()

  Dim pObj As AcadEntity
  Dim ss As AcadSelectionSet
  Dim vps As Variant
  Dim vps1 As Variant
  Dim stri As String
  Dim XX(0 To 9999) As Double
   Dim YY(0 To 9999) As Double
    Dim ZZ(0 To 9999) As Double
     Dim distance(0 To 9999) As Double
       Dim distance1(0 To 9999) As Double
‘按剖面线端点进行选择集创建
Set ss = ThisDrawing.ActiveSelectionSet
  ss.Clear
  ThisDrawing.Utility.GetEntity pObj, pnt
  pObj.GetBoundingBox p1, p2
ss.Select acSelectionSetCrossing, p1, p2
     Dim intPoints As Variant
     Dim III As Integer, j As Integer, k As Integer
     Dim strI1 As String
     ‘对选择集内的每个多段线进行求交点
      For Each I In ss
         If I.ObjectName = "AcDbPolyline" Then
    ‘把多段线的ELEVATON属性置为0，求交后恢复，得到K-1 个交点，坐标分别为XX\YY\ZZ
          vps1 = I.Elevation
          I.Elevation = 0
       intPoints = pObj.IntersectWith(I, acExtendNone)
     I.Elevation = VPS1   
      End If
       If VarType(intPoints) <> vbEmpty Then
        For III = LBound(intPoints) To UBound(intPoints)
         intPoints(j + 2) = vps1
         XX(k) = intPoints(j)
         YY(k) = intPoints(j + 1)
         ZZ(k) = intPoints(j + 2)
            strI1 = "Intersection Point[" & k & "] is: " & XX(k) & "," & YY(k) & "," & ZZ(k)
            MsgBox strI1, , "IntersectWith Example"
            strI1 = ""

           III = III + 2
            j = j + 3
            k = k + 1
        Next
    End If
       j = 0
     Next I



  '求出每个交点的距离，把距离和高程对应，得到剖面线坐标DISTANCE

      distance(0) = 0
     For I = 1 To k - 1
     distance(I) = Sqr(((XX(I) - XX(I - 1)) ^ 2) + ((YY(I) - YY(I - 1)) ^ 2)) + distance(I - 1)
     Next

     For I = 0 To k - 1
     distance1(2 * I) = distance(I)
     distance1(2 * I + 1) = ZZ(I)
     Next

      Set pline = ThisDrawing.ModelSpace. _
     AddLightWeightPolyline(distance1)
     ss.Delete
End Sub

雪山飞狐(lzh)

贴个图说明一下？

下里巴人

不会做FLASH啊 ,问题就是在选择集中搜索实体时,顺序是什么?
您能不能在机子上找个三维地形图,划条线, 运行一下,谢谢阿!

雪山飞狐(lzh)

按AutoCad数据库的顺序，如果要达到你的效果，要排序

下里巴人

怎么排？你说安高程马？不行的阿，高程点有可能有拐点，有时会增，到达某点时又降！
只能按剖面线的方向走，逐点求交，这个怎么排序！

mkhsj927

求出每个交点到剖面线起点的距离，再排序。
地形图上两条等高线相邻，他们ID号不一定相邻，因为在成图时并不是按等高线顺序画的
在选择集里实体的排列顺序是按各实体的ID号从大到小排序的，也即最后画的实体在选择集中排在最前面。

liufx2000

可以建立个存放对象的数组，在这个数组里面根据高程进行排序，然后求交点

a01120219

第一个程序就这么牛,哈哈,我的第一个程序画了个圆!^-^