---

Hallo Leute

Inventor 9

Möchte eine neue Zeichnung erstellen und einen gewissen Zusammenbau automatisch einfügen.

Soweit so gut.

So sieht es aus ...

ThisApplication.Documents.Add kDrawingDocumentObject, CopyTestCAD.PfadZusammenbau & "pamatech_test.idw", True

Dim oDrawingDoc As DrawingDocument
Set oDrawingDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, CopyTestCAD.PfadZusammenbau & "pamatech_test.idw", True)

Dim oPoint1 As Point2d
Set oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(5#, 7#)

Debug.Print oPoint1.X
Debug.Print oPoint1.Y

Dim oView1 As DrawingView
Set oView1 = oSheet.DrawingViews.AddBaseView(oAssDoc, oPoint1, _
    1, kBottomViewOrientation, kHiddenLineDrawingViewStyle)

Beim Befehl des AddBaseView kommt folgender Fehler:

"Laufzeitfehler '424'
Objekt erforderlich.

Wenn ich mit dem Cursor über die einzelnen Argumente fahre, ist der oPoint1 nicht definiert,
obwohl ich diesen beim Debug.Print zeigen kann.

Woran kann das liegen? 

Roland

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

---

Hallo Roland,

versuch mal:

dim otg as TransientGeometry
Set otg = ThisApplication.TransientGeometry

opointx = osheet.Width / 2
opointy = osheet.height / 2

Set opoint = otg.CreatePoint2d(opointx, opointy)

Bei mir geht es so.

Gruß
Reinhard

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

---

Hallo Reinhard

Ich habe auch den restlichen Code aus Deinem Beispiel versucht. Eigentlich war Dein Beitrag die Idee, es so zu machen.

Aber trotz verschiedenen Versuchen und Varianten geht es nicht.
Funktiniert der Code nur in Inv.10 oder auch in Inv 9?
Ich frage mich echt, ob das nicht ein Inventor-Bug ist.

Meine Version: Inventor 9 mit SP 4.

Roland

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

---

Hallo Roland,

hast du osheet definiert?

Gruß
Reinhard

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