2 Replies Latest reply on Jul 5, 2011 10:16 AM by Head1

    Automation for Pcb browser

    Head1

      Hello Everybody,

        In last months I have written some Vb6 programs for Pcb Expedion, and they works fine.

       

        To connect Expedition I have   used the lines:

                 Dim My_app     As MGCPCB.Application

                 Dim My_Board As MGCPCB.Document

               

         To check the license I used the following:

                      Set My_app = GetObject(, "MGCPCB.Application")

                      If (My_app Is Nothing) Then .....

       

                     Set My_Board = GetLicensedDoc(My_app)

                   

      And function  GetLicensedDoc inself:

      '

           Public Function GetLicensedDoc(appObj)

                 Dim  licenseServer,My_Board, L_Token,

                 Set My_app = GetObject(, "MGCPCB.Application")

                  ...

            

          So, everything works fine for Pcb Expedition.

        

          Now, I have to write a small Vb6 program for PcbBrowser, and could not

          find any docomentation how to write the RED lines. ( for pcb browser.)

        

          I understand they must change because I refer to a different application.

          Can anybody write please the syntax of the RED lines for PCB Browser ?

        

              Thanks,

                   Head1.