AnsweredAssumed Answered

Automation for Pcb browser

Question asked by Head1 on Jul 4, 2011
Latest reply on Jul 5, 2011 by 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.               

         

         

         

         

 

Outcomes