---

Hallo,

ich verzweifle gerade.
Bei manchen Modellen in Inventor funktioniert das ganz normal, bei anderen erscheint die oben genannte Fehlermeldung.

Sub OneDWF()
On Error GoTo ErrorHandler
   
    If ThisApplication.Documents.Count = 0 Then
        MsgBox "No document open!", vbCritical
        Exit Sub
    End If

    Init
   
Sub Init()
    Source ="xy"
    DwfDestination = "C:\Users\ABC\Desktop\CAD-Export\dwf\"
End Sub

    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument
       
    Dim oview As View
    Dim oCamera As Camera
    Set oview = ThisApplication.ActiveView
    Set oCamera = oview.Camera
    oCamera.ViewOrientationType = kIsoTopRightViewOrientation
    oCamera.Apply
   
    Dim ExportFile As String
    ExportFile = DwfDestination & Prefix & VBA.Strings.Left(oDoc.DisplayName, VBA.Strings.InStrRev(oDoc.DisplayName, ".")) & "dwf"
    oDoc.SaveAs ExportFile, True
       
Exit Sub
ErrorHandler:
    MsgBox Err.Description
End Sub

------------------------------------
Nach

oDoc.SaveAs ExportFile, True

floppt er zu

ErrorHandler:
    MsgBox Err.Description
End Sub

mit der Fehlermeldung...

Was kann das Problem sein?

[Diese Nachricht wurde von Starbuzz am 04. Nov. 2015 editiert.]

[Diese Nachricht wurde von Starbuzz am 04. Nov. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Für diese Frage ist das hier das falsche Forum.

Ich verschiebe den Thread daher in Forum Inventor VBA.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Autodesk Inventor Certified Professional
Mensch und Maschine Scholle GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Starbuzz,

Zitat:

---

Dim ExportFile As String
ExportFile = DwfDestination & Prefix & VBA.Strings.Left(oDoc.DisplayName, VBA.Strings.InStrRev(oDoc.DisplayName, ".")) & "dwf"
oDoc.SaveAs ExportFile, True
       
------------------------------------
Nach
oDoc.SaveAs ExportFile, True
floppt er zu

---

Da hilft nur, kontrollieren, was wirklich passiert:
1.) im Debugger einen Haltepunkt auf die Ausgabe SaveAs und den Dateinamen vorher anschauen. Oder
2.) eine MsgBox("Dateiname: " & ExportFile) vorher ausgeben.
Dann siehst du vielleicht, dass vor dem DWF der Punkt fehlt, oder der erzeugte Dateiname ungültig ist(??)

------------------
Gruß Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

daran kann es nicht liegen.

Nach einem Test:
ipt erkennt das Makro (<-Makro wird ausgeführt); iams nicht (<-oben genannte Fehlermeldung!

Wieso?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP