Evtl. auch mal die VBA-Geschichte anschauen, so einfach baut man sich ein SAVE-AS-Makro, hier das Save-as-SAT ein wenig umgeschrieben. So vergess ich nie beim Speichern, auch meine SAT für's CAM zu aktualisieren.
Public Sub ExportToSat()
' Auf aktives Ddokument docken
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument
' Typ des aktiven Dokuments prüfen, muß idw sein
If (oDoc.DocumentType <> kDrawingDocumentObject) Then
MsgBox "Error ocument type is not a Zeichnung"
Set oDoc = Nothing
Exit Sub
End If
' Filename organisieren
Dim sFname As String
sFname = oDoc.FullFileName
' das DWG dranhängen
sFname = Left$(sFname, Len(sFname) - 3) & "dwg"
' das dem Inventor begreifbar machen
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, _
sFname)
' SAve-Copy-As aufrufen
Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)
Set oDoc = Nothing
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP