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 .