Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Makro; Datei speichern unter

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
  
Technologietag mit Live-Bearbeitung in Seebach
Autor Thema:  Makro; Datei speichern unter (2542 mal gelesen)
Polytyper
Mitglied
CNC Programmierer


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

Beiträge: 35
Registriert: 17.10.2007

SW2010 SP4.0

erstellt am: 11. Sep. 2010 13:43    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 erstmal...

Ich versuche ein Makro in SolidWorks mit folgender Funktion zu schreiben:

Die Aktuelle Baugruppe soll als Parasold mit gleichem Namen neu gespeichert werden; je nach Dateinamen in einem anderen Ordner.


Erklärung anhand Beispiel:
Aktuelle Datei = H20000.sldasm
Diese Datei soll nun in C:\Projekte\Hermle\4_PARA als H20000.x_t gespeichert werden.

variabler Speicherort:
Beginnt der aktuelle Dateinamne mit H2, dann Speicherort C:\Projekte\Hermle\4_PARA
Beginnt der aktuelle Dateinamne mit D6, dann Speicherort
C:\Projekte\DMU60\4_PARA
...


Ich habe mir das mal als Makro aufzeichnen lassen, wenn ich das manuell mache:


Dim swApp As Object

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

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
longstatus = Part.SaveAs3("C:\Projekte\Hermle\4_PARA\H20000.X_T", 0, 0)
End Sub


Wie kann ich jetzt den aktuellen Namen (die ersten beiden Zeichen) der Baugruppe abfragen und so per Variabel den Speicherort festlegen?


Kann so etwas in der Art funktionieren:

Dim FileNameBeginn as String  'Variabel für Anfangsbuchstaben Dateinamne
Dim FileSavePath as String        'Variabel für Speicherort

FileNameBeginn = ActiveFileName  'aktueller Dateinamen auf Variabel FileNameBeginn schreiben
If Left(FileNameBeginn, 2) = "H2" Then
  FileSavePath = "C:\Projekte\Hermle\4_PARA"
If Left(FileNameBeginn, 2) = "D6" Then
  FileSavePath = "C:\Projekte\DMU60\4_PARA"
End If

Besten Dank für jeden Tipp im Voraus
mfg Polytyper

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

Andi Beck
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2572
Registriert: 02.10.2006

Firma: SW 2023-4.0 + PDM Prof.
Windows 10 Pro 64bit, i9-11900
32 GbRAM, Quadro P2200
Home:
SW 2022-5.0
Passungstabelle von Heinz
Windows 11 Pro 64bit,
i7-12700K, 32 GbRAM,
GeForce GTX 1050Ti
Samsung C34H892, 3440x1440 Pixel

erstellt am: 11. Sep. 2010 16: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 Polytyper 10 Unities + Antwort hilfreich

Hallo,
vielleicht hilft dir das Makro Nr. 16 oder 36 weiter.

http://solidworks.cad.de/mm_boerse02.htm

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

Grosser Buba
Mitglied
CAD/PLM-Admin (Dipl. Ing. Maschinenbau)


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

Beiträge: 68
Registriert: 17.06.2010

Windows XP 32-bit
4GB-RAM
SolidWorks 2010 SP3.0
Dell-Rechner
Nvida Quadro FX's
TopsWorks
3D Connexion
CAD-Desktop
SAP

erstellt am: 13. Sep. 2010 15:16    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 Polytyper 10 Unities + Antwort hilfreich

Hallo Polytyper,
Du könntest so vorgehen:

Dateiname = swModel.GetTitel
Dateityp = swModel.GetType
Benennung = Dateiname - Dateityp

Mit dem "left" Befehl kannst Du dann die Benennung zurecht schneiden. Ich finde hierbei immer schön, dass man sich später immer alles ganz einfach zusammensetzen kann.
Gruß Timo

[Diese Nachricht wurde von Grosser Buba am 13. Sep. 2010 editiert.]

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