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