Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  im Makro Dateipfad des Templates Teil einlesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
PLM TechnologieForum Bamberg
Autor Thema:  im Makro Dateipfad des Templates Teil einlesen (1456 mal gelesen)
HiwiMichi
Mitglied
Hiwi


Sehen Sie sich das Profil von HiwiMichi an!   Senden Sie eine Private Message an HiwiMichi  Schreiben Sie einen Gästebucheintrag für HiwiMichi

Beiträge: 18
Registriert: 24.04.2014

erstellt am: 01. Aug. 2014 10:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Leute,
ich schreibe gerade ein Makro, unter anderem soll es ein neues Teil erstellen. Dafür wird der Pfad zu dem Template "Teil" gebraucht. Wie er an meinem PC lautet, weiß ich schon.Da ich aber das Programm für andere User schreibe, möchte ich wissen, mit welchem Befehl man den Pfad des Templates einlesen kann?
Im Internet konnte ich leider nichts dazu finden  
Ich bitte um Hilfe.. 

Nachtrag:
manuell kann man bei Optionen->Systemoptionen->Standardvorlagen oder im Feld darunten bei Dateiposition die Pfade ablesen.
Durch ein aufgezeichnetes Makro weiß ich jetzt wie man den Ordner der Dateiposition ändern kann, nämlich mit:
Set Part = swApp.ActiveDoc
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates, "C:\...")
'bei C:\... kompletten Pfad angeben

jedoch weiß ich nicht wie ich den voreingestellten Ordner lesen kann??

[Diese Nachricht wurde von HiwiMichi am 01. Aug. 2014 editiert.]

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

bk.sc
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



Sehen Sie sich das Profil von bk.sc an!   Senden Sie eine Private Message an bk.sc  Schreiben Sie einen Gästebucheintrag für bk.sc

Beiträge: 2776
Registriert: 18.07.2012

-Solid Works 2019 SP5
-Pro Engineer WF 3

erstellt am: 01. Aug. 2014 12:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für HiwiMichi 10 Unities + Antwort hilfreich

Hallo HiwiMichi,

einfach mal Get statt Set versuchen 

Code:
templatepfad = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates)

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

HiwiMichi
Mitglied
Hiwi


Sehen Sie sich das Profil von HiwiMichi an!   Senden Sie eine Private Message an HiwiMichi  Schreiben Sie einen Gästebucheintrag für HiwiMichi

Beiträge: 18
Registriert: 24.04.2014

erstellt am: 01. Aug. 2014 12:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Auf die Idee bin ich auch schon gekommen ^^
aber dann kommt jedes mal "Laufzeitfehler '424' Objekt erforderlich"...

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

Christian_W
Ehrenmitglied V.I.P. h.c.
Konstrukteur (Dipl-Ing)


Sehen Sie sich das Profil von Christian_W an!   Senden Sie eine Private Message an Christian_W  Schreiben Sie einen Gästebucheintrag für Christian_W

Beiträge: 3189
Registriert: 04.04.2001

CSWP 12/2015<P>SWX2021sp5 Win10/11
(SWX2016, SWX2012)
proAlpha6.2e00/calinkV9
(Tactonworks)
(Medusa7, NesCAD2010,
solidEdge19)

erstellt am: 01. Aug. 2014 13:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für HiwiMichi 10 Unities + Antwort hilfreich

Hallo,

hast du set davor geschrieben?

dim templatepfad as string
templatepfad = ....

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

HiwiMichi
Mitglied
Hiwi


Sehen Sie sich das Profil von HiwiMichi an!   Senden Sie eine Private Message an HiwiMichi  Schreiben Sie einen Gästebucheintrag für HiwiMichi

Beiträge: 18
Registriert: 24.04.2014

erstellt am: 01. Aug. 2014 14:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Chrisitian,
ich verstehe deine Frage nicht ganz, aber ich geb dir einfach mal die Programmcodes die ich habe:
Ursprungsmakro zum ändern der Dateiposition:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates, "C:\Users\Internet\Documents\Arbeit\Hiwi\ohne Events")
End Sub

Und hier das Makro, wo ich versuch habe einfach das Set.. durch Get.. zu ersetzen, wobei lblpfad ein Label in der Userform ist:

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
lblpfad.Caption = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates)
End Sub

[Diese Nachricht wurde von HiwiMichi am 01. Aug. 2014 editiert.]

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

bk.sc
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



Sehen Sie sich das Profil von bk.sc an!   Senden Sie eine Private Message an bk.sc  Schreiben Sie einen Gästebucheintrag für bk.sc

Beiträge: 2776
Registriert: 18.07.2012

-Solid Works 2019 SP5
-Pro Engineer WF 3

erstellt am: 04. Aug. 2014 07:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für HiwiMichi 10 Unities + Antwort hilfreich

Hallo Michi
Code:

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
lblpfad.Caption = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates)
End Sub


Die Durchgestrichenen Codezeilen brauchst du hier nicht.
Bei mir funktioniert es lblpfad.Caption zu setzen wenn ich es z.B. über ein Button_Click Event oder UserForm_Initialize Event dazu auffordere. Wie bzw. durch was soll den lblpfad.Caption bei dir gesetzt werden?

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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



Entwicklungsingenieur (m/w/d) Vorentwicklung

Wir sind ein inno­vatives, welt­weit agieren­des Medi­zin­tech­nik-Unter­neh­men mit mehr als 100 Jah­ren Tra­di­tion und außer­ge­wöhn­lichem Know-how in der me­di­zi­ni­schen und tech­nischen En­dos­kopie. In enger Zu­sam­men­ar­beit mit der medi­zini­schen Wis­sen­schaft ent­stehen immer neue Pro­dukt­ideen für neue Appli­ka­tionen.
Moderne Ferti­gungs­tech­no­logien und welt­weit über 1700 ...

Anzeige ansehenEntwicklung
HiwiMichi
Mitglied
Hiwi


Sehen Sie sich das Profil von HiwiMichi an!   Senden Sie eine Private Message an HiwiMichi  Schreiben Sie einen Gästebucheintrag für HiwiMichi

Beiträge: 18
Registriert: 24.04.2014

erstellt am: 04. Aug. 2014 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernd,
ich habe es über einen Button_Click Event dazu aufgefortdert.

vielen vielen Dank, jetzt funktioniert es auch bei mir! =))))
Viele Grüße
Michi

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz