2 Replies Latest reply on Jul 22, 2015 11:11 AM by al_layson

    PCB Browser

    ashkolnik

      Hi all ,

      Please read VBS text below :

       

      Option Explicit

      Scripting.AddTypeLibrary("MGCPCB.ViewerPCBApplication")

      Scripting.AddTypeLibrary("MGCPCB.Application")

      Scripting.AddTypeLibrary("MGCSDD.KeyBindings")

      Dim pcbAppObj : Set pcbAppObj = GetObject(, "MGCPCB.Application")

      Dim pcbDocObj : Set pcbDocObj = pcbAppObj.ActiveDocument

      If ValidateServer(pcbDocObj) = 0 Then

        MsgBox "Server validation failed.",16,"Net name Script"

      End If

      '--------------------------------------------------------------------------

        pcbAppObj.Gui.ProcessKeyin("ons")

        Dim dispCtrlObj

        Set dispCtrlObj = pcbDocObj.ActiveView.DisplayControl

        Dim GlobDispCtrlObj

        Set GlobDispCtrlObj=dispCtrlObj.Global

        GlobDispCtrlObj.MiscItems(epcbDCSelHilShadowMode)=True

       

      If anyone know why all red lines just do not do anything ?

      Thank you all .