[MACRO] Draft: Alterna Visualizza come stampato

vespa_83

Utente Standard
Professione: disegnatore
Software: Solid Edge
Regione: Romagna
#1
Per utilizzare la macro in oggetto, creare un file testuale con nome ed estensione dftDispayAsPrintedToggler.vbs

editor suggerito: Notepad++

incollare il seguente codice:
Codice:
'dftDispayAsPrintedToggler.vbs (c) 2016 Gianluca Vespignani

Dim objApp 'As SolidEdgeFramework.Application
Dim objDoc 'As SolidEdgeDraft.DraftDocument

' Create/get the application with specific settings
On Error Resume Next
	Set objApp = GetObject(, "SolidEdge.Application")
	objApp.Visible = True
If Err Then
	Err.Clear
	MsgBox ("prima apri solid edge!!!")
	'Exit Sub
Else
	Set objDoc = objApp.ActiveDocument
End If
On Error GoTo 0   'rigestisce gli errori

objApp.ActiveWindow.DisplayAsPrinted  = not objApp.ActiveWindow.DisplayAsPrinted 
objApp.StartCommand (32876) ' DetailViewRefreshWindows

' Release objects
Set objApp = Nothing
Set objDoc = Nothing
inserire la macro nella barra a nastro (si rimanda alla guida)