0 Replies Latest reply on Aug 3, 2017 2:56 PM by Matt Bieringer

    Set note x and y position in a multidimension array

    Matt Bieringer

      Hey guys,

      I am trying to set the x and y positions to an array. I will then sort the array based on those locations. The array will need an i as well as the x and y, so for each i, x=# and y=#.

       

          Set swView = swDraw.GetFirstView
          While Not swView Is Nothing
              Set swFirstNote = swView.GetFirstNote
              Set swNote = swView.GetFirstNote
              ReDim notes(notesTotalCounter)
              i = 0
              u = 0
              While Not swNote Is Nothing
                  If swNote.GetText Like "`*" Then
                      Set notes(i) = swNote
                      i = i + 1
                      Set swAnno = swNote.GetAnnotation
                      loc = swAnno.GetPosition
                      Dim u As Double
                      Dim v As Double
                      v = loc(1)
                      u = loc(0)
                      ReDim Preserve notes(i, u, v)
                      
                  End If
                  Set swNote = swNote.GetNext
              Wend