2 Replies Latest reply on Nov 26, 2010 5:02 AM by mans.joling

    Odb++ generation problem

    mans.joling

      Hi

       

      I run the odb++ twice one for the assemby and one for the fabrication

      When I run this code for the second time the odb++ dialog do not show up

      When I choose Gerber the Gerber dialog shows up

      What happens here?

      Is there a solution

       

         Public Sub write_OdbPP_Info()
              Dim gui As MGCPCB.Gui
              Dim dlg As MGCPCB.Dialog
              Dim btn As MGCPCB.button
              gui = pcbApp.Gui
              gui.SuppressTrivialDialogs = True
              If gui.ProcessCommand("Output->ODB++", True) Then 'The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))
                  dlg = gui.FindDialog("ODB++ Output")
                  If dlg.IsValid() Then
                      btn = dlg.FindButton("OK")
                      If btn.IsValid Then
                          Call btn.Click()
                          MessageBox.Show("Found Process Checked Output Files button")
                      Else
                          MessageBox.Show("The Process Checked Output Files button was not found.")
                      End If
                  Else
                      MessageBox.Show("The ODB++ Dialog box was not found.")
                  End If
              Else
                  MessageBox.Show("The OutputODB++ Command was not found. Try restarting the Application.")
              End If

        • 1. Re: Odb++ generation problem
          Satoru

          Hello mans-san,

           

          I was able to run ODB++ by VB6.

          I changed a little code.

          I'm using EE7.9.1.

           

          ======================================================================

              Dim gui As MGCPCB.gui
              Dim dlg As Dialog
              Dim btn As button

           

              Set gui = pcbApp.gui
              gui.SuppressTrivialDialogs = True

           

              If pcbApp.gui.ProcessCommand("Output->ODB++", True) Then
                  Set dlg = gui.FindDialog("ODB++ Output")
                  If dlg.IsValid() Then
                      Set btn = dlg.FindButton("OK")
                      If btn.IsValid Then
                          Call btn.Click
                          MsgBox ("Found Process Checked Output Files button")
                      Else
                          MsgBox ("The Process Checked Output Files button was not found.")
                      End If
                  Else
                      MsgBox ("The ODB++ Dialog box was not found.")
                  End If
              Else
                  MsgBox ("The OutputODB++ Command was not found. Try restarting the Application.")
              End If

          ======================================================================

           

          Regards,

          Satoru

          • 2. Re: Odb++ generation problem
            mans.joling

            Hello Satoru,

             

            I think that I found the problem the Odbsetup.ocf has somewhere a wrong format inside

             

            Regards

             

            Mans