9 Replies Latest reply on Oct 6, 2010 5:56 PM by lanie

    Trouble setting grids

    patrick.cashman

      I'd like to create a side pallette that has a bunch of buttons to quickly set placement, routing, and via grids.  I've been working on the following code:

       

      Option Explicit

       

      Dim app
      Dim doc
      Dim edcontrol
      Dim gridval

       

      Scripting.AddTypeLibrary ("MGCPCB.Application")

       

      Call Main

       

      Sub Main()

       

          Set app = GetObject(, "MGCPCB.Application")
          Set doc = GetLicensedDoc(app)
          Set edcontrol = doc.EditorControl
         
         
          gridval = .1
          edcontrol.Grid(6, 2) = gridval

         
          MsgBox "The via grid is now " & gridval
      End Sub

       

      This results in an unrecoverable error which shuts down Expedition:

       

      unrecoverable_error.gif

       

      Any ideas why it's not working would be much appreciated.

       

      -Patrick