AnsweredAssumed Answered

PCB Browser

Question asked by ashkolnik on Jun 15, 2015
Latest reply on Jul 22, 2015 by al_layson

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 .

Outcomes