---

Hallo zusammen,

ich möchte per VBA den Modelnamen aus der DWG auslesen.

Im Model selbst geht das ohne Prpbleme.

Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 

  Set oDoc = oApp.ActiveDocument
 

  Dim Dateiname As String

  Dateiname = oDoc.FullFileName

Was da jemand weiter?

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

---

Hallo

Das was du da an Code gepostet hast, gibt dir aber 12345.IDW aus, nicht 12345.IPT. An das was du (vermutlich) willst, kommst du über die ReferencedDocuments deiner Inventor-DWG.

Code:

---

Dim oDrawDoc as DrawingDocument
Set oDrawDoc=ThisApplication.ActiveDocument

MsgBox oDrawDoc.ReferencedDocuments.Item(1).FullDocumentName

---

------------------
MfG
Ralf

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