<job id="main">
    <script language="JScript">
         // WScript.Echo("JScript");
    </script>

    <script language="VBScript">
        ' WScript.Echo "VBScript"

        'Name MACRO:        Save+PDF
        'version:           v 0.3 - Aggiunto "percorso", ristrutturato e commentati gli esempi.
        '                   v 0.2 - First Realise
        'license:           FREEWARE
        '                   Provided "as is". Any warranties. At your risks and Damages
        '                   contact me if you don't agree with this license or any customs.
        'Description MACRO:
        'Requirements:      Draft
        'realized by:       Gianluca Vespignani
        '                    - Ragazzini srl -
        '                       Italy © 2011
        'e-mail:            gianluca@ragazzini.it

        'MsgBox("Ciao, mondo!")

        'In script di tipo wsf (windows script file) non si può indicare il tipo di variabile,
        ' cioè omettere gli 'As'
        Dim objApp
        Dim objDoc
        Dim fullName 'As String
        Dim revision 'As String
        Dim curPath 'As String
        Dim nome 'As String
        Dim percorso 'As String

        ' Create/get the application with specific settings
        ' On Error Resume Next
        Set objApp = GetObject(, "SolidEdge.Application")
        ' On Error Resume Next
        Set objDoc = objApp.ActiveDocument

        Call objDoc.Save    ' normale, messo prima del nome per i file nuovi viene correttamente chiesto di dare il nome

        fullName = objDoc.FullName
        revision = objDoc.Properties.Item(5).Item(2).Value

        ' Ricava il percorso corrente
        curPath = Left(fullName,InStrRev(fullName,"\")-1)

        ' Ricava solo il nome
        nome =  Mid(fullName, Len(curPath)+2, Len(fullName)-Len(curPath)-5) ' mid(string, start, length)

        ' percorso di default, se vuoto salva nella stessa cartella del draft
        percorso = ""   'esempio: "C:\Mia Cartella"
        If percorso="" Then
            percorso = curPath
        End If

        ' Togliere o Aggiungere l'apostrofo a inizio della riga per disabilitare/abilitare l'istruzione
        ' le righe che iniziano con apostrofo sono righe di commento
        Call objDoc.SaveAs(percorso + "\" + nome + " rev " + revision + "." + "pdf")    ' salva con nome

        ' Esempio di come si imposta un altro percorso, prima di salvare in un altro formato:
        'percorso = "C:\Mia Cartella"
        'Call objDoc.SaveAs(percorso + "\" + nome + "." + "dxf")    ' salva con nome

        ' Esempio di un percorso relativo:   con \..\ si passa a una cartella superiore
        'percorso = curPath + "\..\DWG"
        'Call objDoc.SaveAs(percorso + "\" + nome + "." + "dwg")    ' salva con nome
        ' debug
        'MsgBox("Hai salvato con questo percoso:" & vbCrLf & percorso + "\" + nome + "." + "dwg")

        ' Release objects
        Set objApp = Nothing
        Set objDoc = Nothing

        'MsgBox("Finito")

    </script>
</job>