---

Sehr geehrte Damen, sehr geehrte Herren,

leider muß ich immer wieder feststellen, daß ich Probleme mit dem Verstehen von Quelltexten habe.

Darum wieder eine Frage. Ich möchte den Pfad ermitteln aus dem Inventor die Vorlagen holt. Das ist möglich mit TemplateDir.

Lese ich in der Hilfe und blättere im Objektkatalog dann finde ich:

Property TemplateDir As String
    Element von Inventor.GeneralPreferences
    Gets/Sets the directory from which Inventor will present the templates for use in its File New command

Also sieht mein Code wie folgt aus:

Sub Vorlagenpfad()

Dim Pfad As String

Dim TDir As Inventor.GeneralPreferences
Set TDir = ThisApplication.FileLocations

Pfad = TDir.TemplateDir

End Sub

Ergebnis: Laufzeitfehler 13; Typen unverträglich

Wo denke ich denn bitte in die flasche Richtung?

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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

---

Hallo Patrick,

versuchs mal hiermit:

Sub Vorlagenpfad()
 
  MsgBox Replace(ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject), "Norm.ipt", "")

End Sub

Grüsse,

Paul

www.morecam.ch/cad.htm

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

---

und versuchs mal hier mit:

"Hallo Leute" oder "Hi" oder sonst was einfaches 

mit so einer förmlichen Ansprache fühle ich mich hier nur "weit weg". 

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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