ciao
io sto utilizzando questo comandino (trovato in rete e poi modificato)
' Set reference to active document.
oDoc = ThisApplication.ActiveDocument
' Check the Document type is an assembly or part
If (oDoc.DocumentType <> kAssemblyDocumentObject And _
oDoc.DocumentType <> kPartDocumentObject) Then
MsgBox("Error
ocument type is not assembly/part")
Exit Sub
End If
' Get document's full file name
'sFname = ThisDoc.PathAndFileName(False) & ".sat"
sFname = ThisDoc.FileName(False) & ".stp"'without extension
' Do a 'Save Copy As' to SAT format
cartella_ordine = "C:\__MATTEO__\___EMAIL___\stp\"
oDoc.SaveAs(cartella_ordine & sFname, True)
MessageBox.Show("il file " & sFname & " .step è stato copiato in: " & cartella_ordine , "MC-CAD")