Drawing rectangles and markers with vba

Question

Hi All,
I hat little contact to VBA in ArcGis during my study, that`s why I am wrinting here right now.

At the moment I try to plan some flightlines for a project of mine. Therefore, I use the "draw rectangle" tool to generate the flightlines (stipes for a sensor). Then I use the properties for exact locating them.

Because I have to do this for a lot of flightlines, I thought of using little VBA to automate parts of this process. But beginning seems to be very hard. I even dont really know where to start. So my question - what is the object i have to use for drawing rectangles and markers? Is there an example code available using these objects?

I hope, you understand my question, as my english is very poor...

Yours
Geo

FlorianSchulze · Answer

Hi All,
I could already finish a lot of my code. At the moment it does exactly what I want. Just need to find out, how to edit fill-color and frame-color of my new rectangles.  
// getting Width, Height and Number of rectangles from form

Dim pMXDoc As IMxDocument
  Dim pEnv As IEnvelope
  Dim pGraCont As IGraphicsContainer
  Dim pRubberEnv As IRubberBand
  Dim pElem As IElement

' DIM Coordinates
    Dim EnvXMin As Double
    Dim EnvYMin As Double

EnvXMin = 425419
    EnvYMin = 6011500

' QI for the MXDocument interface
  Set pMXDoc = ThisDocument
  
  ' QI for the IGraphicsContainerSelect interface on the document's activeview
  Set pGraCont = pMXDoc.ActiveView
  'create new Envelope
  Set pEnv = New Envelope
  pEnv.YMin = EnvYMin
  pEnv.XMin = EnvXMin
  pEnv.Height = EnvHeight
  pEnv.Width = EnvWidth
  
    For i = 1 To Numbers
        
        ' Create a new EnvelopeElement and set its Geometry
        Set pElem = New RectangleElement
        pElem.geometry = pEnv
    
        'Add the new element at Z order zero
        pGraCont.AddElement pElem, 0
     
        ' Generate Offset for next rectangle
        pEnv.Offset (EnvWidth / 2), 0

Next i
    
  ' Refresh the activeview
  pMXDoc.ActiveView.Refresh

FlorianSchulze · Answer

Hi Agray1,
thank you for your answer. At the moment it is enough, when I am able to draw the rectangles to the grafic layer, because I have to rotate and adjust them in a following step - and I know how to do this.
Therefore the missing information for me is, how to make fixed values for width, length and position of my rectangle. I dont want to use my mouse.

As you already mentioned, I can also draw at the active view, but I have to avow, that I don`t know, how to rotate and move such rectangles in a following step. I would be very thankful if you or someone else could help me to solve my problem.

Yours Geo

AlexanderGray · Answer

It is difficult to provide any direction because it is not clear what you mean by drawing rectangles.  The code sample provided shows how to add rectangle elements to the graphics layer of a map or page layout.  This only persist in the mxd.  Usually people want to store the data in a database or something.  You can also draw directly to the activeview, it all depends on what you want the end result to be.  Perhaps if you described how you go about doing in through the interface, it would provide more information.