dcg

Display Control

Discussion created by dcg on Feb 29, 2012
Latest reply on Mar 1, 2012 by Head1

I am writing a simple script that turns on layers from the display control (in vbscript).

Is there a command that turns off everything in the display control?

I then I plan to turn on specific things only such as:

 

Option  Explicit
Scripting.AddTypeLibrary("MGCPCB.ExpeditionPCBApplication")
Dim  pcbAppObj
set pcbAppObj = Application
Dim pcbDocObj
Set pcbDocObj =  pcbAppObj.ActiveDocument
ValidateServer(pcbDocObj)

 

 


'Get display control
Dim DispCtrlObj
Set  DispCtrlObj = pcbDocObj.ActiveView.DisplayControl

 

DispCtrlObj.PartItems(0,epcbSideTop) =  True
DispCtrlObj.GeneralItems(15) = True   'soldermask-top
DispCtrlObj.GeneralItems(14) = False   'soldermask-bot
DispCtrlObj.GeneralItems(16) = True  'paste-top    
DispCtrlObj.GeneralItems(17) = False  'paste-bot

 

thanks

 

PS

Anybody using perl or tcl/tk?

 

Donovan

Outcomes