---

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.

Hier geht es weiter ...

------------------
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