| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| SOLIDWORKS Webinar-Serie 2020 / 21: Aufzeichnungen zum Nachhören |
Autor
|
Thema: Dateiliste auf Basis der Dateieigenschaften (1593 mal gelesen)
|
rhrumpel Mitglied Konstrukteur
Beiträge: 648 Registriert: 21.03.2004 Firma: SWX 2017 Premium SP3.0 (Primär) SWX 2021 Premium SP3.0 Lenovo P70 32 GB RAM i7-6820HQ 2,7Ghz Quadro M4000M WIN10 PRO 64bit 3d Connexion SpacePilot
|
erstellt am: 08. Dez. 2016 11:17 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, kann ich z.B. mit dem Solidworks Explorer alle SWX-Dateien nach einer bestimmten Dateieigenschaft durchsuchen lassen und das Ergebnis optimaler weise als Liste Exportieren? Beispiel: Suche alle Dateien mit der Dateieigenschaft Material und dem Wert "Gips". Liste alle Dateinamen der Trefferliste in einer txt-Datei. Ich befürchte, das wäre ein größeres Makro, oder?
------------------ Die Faulheit hat der Herr vor den Verstand gesetzt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Erzmichel Mitglied Dipl Ing Maschbau
Beiträge: 362 Registriert: 18.05.2012 Win 10 Intel i7-7700K 4,2GHz 16 GB RAM Quadro K2200
|
erstellt am: 08. Dez. 2016 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für rhrumpel
Das erste was mir dazu einfällt ist die Baugruppenvisualisierung. Die Kann genau da, nur eben nur in Baugruppen. Da kannst du nach eigenschaften suchen und nach excel exportieren. ------------------ Grüße vom Erzmichel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 08. Dez. 2016 17:16 <-- editieren / zitieren --> Unities abgeben: Nur für rhrumpel
Hallo Code: Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim fs As Object Dim a As Object Dim FileName As String Dim PropValue As String Dim Path As String Path = "C:\temp\" Set swApp = Application.SldWorks Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(Path & "File.txt", True) FileName = Dir(Path & "*.SLDPRT") swApp.DocumentVisible False, swDocPART Do While FileName <> "" Set swModel = swApp.OpenDoc(Path & FileName, swDocPART) PropValue = swModel.GetCustomInfoValue("", "Material") If PropValue = "Gips" Then a.writeline (FileName) PropValue = "" End If swApp.CloseDoc FileName FileName = Dir Loop swApp.DocumentVisible True, swDocPART MsgBox "Fertig" End Sub
Gruss Andreas ------------------ 21 ist nur die halbe Antwort. [Diese Nachricht wurde von HenryV am 08. Dez. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Spieler Mitglied Mechaniker
Beiträge: 1347 Registriert: 12.12.2002 SOLIDWORKS 2024SP1
|
erstellt am: 10. Dez. 2016 09:01 <-- editieren / zitieren --> Unities abgeben: Nur für rhrumpel
Hallo rhrumpel, dafür gibt es EXALEAD OnePart. Die Teile mit der Eigenschaft Material = Gips werden aus einer indexierten Auswahl von mehr als 110.000 Dokumenten auf Knopfdruck gefunden. Man könnte die Auswahl weiter verfeinern, z.B. nach: • Anwender • Letzte Änderung • SOLIDWORKS Version • Masse • Abmessungen • Farbe • geometrische Ähnlichkeit • usw. Anschießend umschalten auf Tabellenansicht und speichern als CSV. Video mit einer Aufzeichnung im Anhang Viele Grüße AndiS
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rhrumpel Mitglied Konstrukteur
Beiträge: 648 Registriert: 21.03.2004 Firma: SWX 2017 Premium SP3.0 (Primär) SWX 2021 Premium SP3.0 Lenovo P70 32 GB RAM i7-6820HQ 2,7Ghz Quadro M4000M WIN10 PRO 64bit 3d Connexion SpacePilot
|
erstellt am: 14. Dez. 2016 10:24 <-- editieren / zitieren --> Unities abgeben:
Sorry für die späte Antwort, Das scheint beides perfekt zu sein. Ich schaue es mir mal an. Vielen Dank 10U´s sind Euch gewiss Gruß Ralf ------------------ Die Faulheit hat der Herr vor den Verstand gesetzt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |