---

Creo 2.0 / Visual Studio 2008 (Visual Basic)

Ich würde gerne ein neues Teil auf Grundlage der Standardvorlage per VB API erzeugen (und dann gerne in einem Pfad meiner Wahl speichern). Hier mal mein bisheriger Code dazu, der immer zu der Fehlermeldung "pfcExceptions::XToolkitNotFound" führt beim Ausführen der letzten Codezeile. Ich bin mir auch gar nicht sicher, ob das überhaupt die richtigen Befehle sind, die ich da benutze ...

Code:

---

Dim descModelCreate As pfcls.CCpfcModelDescriptor = New pfcls.CCpfcModelDescriptor
Dim descModel As pfcls.IpfcModelDescriptor = descModelCreate.Create(pfcls.EpfcModelType.EpfcMDL_PART, "partModel.prt", Nothing)
Dim model As pfcls.IpfcModel = BaseSession.RetrieveModel(descModel)

---

Ich hoffe, Ihr könnt mir weiterhelfen.

Danke!

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

---

Hallo zusammen,

nach viel Suche habe ich zu meinem Problem erst mal eine Lösung gefunden. Da anderen die Lösung vielleicht auch weiterhilft, hier kurz mein bisheriger Code:

Code:

---

Dim Session As pfcls.IpfcSession = AsyncConnection.Session
Dim BaseSession As pfcls.IpfcBaseSession = CType(session, pfcls.IpfcBaseSession)
Dim MyDocumentsPath As String = System.IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
Dim WorkingDirectory As String = System.IO.Path.Combine(MyDocumentsPath, "CreoTest")
If System.IO.Directory.Exists(WorkingDirectory) = False Then System.IO.Directory.CreateDirectory(WorkingDirectory)
'neues Arbeitsverzeichnis in Creo Parametric setzten
BaseSession.ChangeDirectory(WorkingDirectory)
'neues Teil erzeugen
Dim Part As pfcls.IpfcPart = BaseSession.CreatePart(_Name:=NewPartName)
Dim Model As pfcls.IpfcModel = CType(Part, pfcls.IpfcModel)
'neu erzeugtes Teil im Arbeitsverzeichnis speichern
Model.Save()
'neu erzeugtes Teil in Creo Parametrics anzeigen lassen
Model.Display()

---

Wenn ich das neue Teil so erzeuge wird es in Creo angezeigt, ist aber irgendwie inaktiv. Die Ribbon Menüleiste ist abgegraut. Hat jemande eine Idee, wie sich das Teil aktiv schalten läßt, so das es von Hand bearbeitet werden kann? Evtl. muss man ja noch irgend einen Schalter setzten.

Für Euere Hilfe schon mal vielen Dank im Voraus!

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

---

Du brauchst das Fensterobjekt. Das bekommst du über das Modell. Such mal nach GetModelWindow. Darüber dann nen Activate() und ggf. noch nen Repaint().

------------------
Grüße
Nico \o/

Üs - ProE-Beziehungen

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

---

Hallo NicoFTB,

danke für den Hinweis. Nach etwas Suche habe ich es gefunden. Hier der Code dazu.

Code:

---

Dim ModelWindow As pfcls.IpfcWindow = BaseSession.GetModelWindow(Model)
ModelWindow.Activate()
ModelWindow.Repaint()

---

Jetzt ist das Part aktiv, so wie es sein soll. Nochmals vielen Dank!

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