---

Hallo zusammen. Sitze schon die halbe Nacht an folgendem Problem und denke ich habe schon alle möglichen Vrianten probiert.

Hier der Code:

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, _
                ThisApplication.FileManager.GetTemplateFile(kDrawingDocumentObject))
               
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet

    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.Documents.Open("C:\Test1\Langloch.ipt", True)

    Dim oPoint As Point2d
    Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(25, 25)

    Dim oBaseView As DrawingView
    Set oBaseView = oSheet.DrawingViews.AddBaseView(oPartDoc, oPoint, 0.2, _
                  kFlatPivotRightViewOrientation, kHiddenLineRemovedDrawingViewStyle, , , False)

In der letzten Zeile steigt er aus und bringt die Fehlermeldung: Typen unverträglich.
Habe es auch schon mit anderen Konstanten versucht.

ipt und idw werden ordnungsgemäß aufgemacht.

Das Teil ist zu Blech konvertiert und definiert, die Abwicklung erstsellt.
Manuell läßt sich die Abwicklung in die Zeichnung einfügen. Das ungefaltete Modell läßt sich auch per VBA einfügen.

Benutze Inventor 2008

Wäre echt toll wenn jemand eine Idee hätte.

Vielen Dank im Voraus,

Longimanus

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

---

Habs grad selbst raus gefunden. Trotzdem vielen Dank für das rege Interesse.

Gruß,

Longimanus

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