| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | 3DEXPERIENCE Conference 2024 | München |
Autor
|
Thema: Makro Dateieigenschaften auslesen & an anderer Stelle eintragen (2204 mal gelesen)
|
Rubino Mitglied Werkzeugmacher, staatl. gepr. Techniker, Bachelor of Engineering
Beiträge: 178 Registriert: 16.11.2006 Systeme: CatiaV5, Tebis, SW, NX, ProE, WorkNC System: 4x4,6Ghz(3770K), 32GB (2400Hz) Corsair, 660GTX GS 2GB, WIN7x64
|
erstellt am: 30. Nov. 2015 13:43 <-- editieren / zitieren --> Unities abgeben:
Hi, ich stehe vor einem kleinen Problem. Ich habe nur rudimentäre Kenntnisse vom VBA & Makro Programmieren will aber folgendes machen: In den KONFIGURATIONSSPEZIFISCHEN Dateigenschaften von SW steht z.B.: "PART.NO" = Platte Ich müsste jetzt den Wert "Platte" auslesen und bei "BENENNUNG" unter den normalen BENUTZERDEFINIERTEN Eigenschaften eintragen lassen. Ich müsste ansonsten hunderte von Datenbankeinträgen händisch ändern. Optimalerweise kennt jemand ein Makro in dem man die Namen eintragen kann und es wird alles automatisch in die vorgegebenen Felder transportiert. PS: Alle sonstigen Änderungen habe ich schon mit Hilfe von Stefan Berlitz seinen Makros bewerkstelligen können. U´s sind unterwegs..... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marde0815 Mitglied
Beiträge: 88 Registriert: 29.04.2010 Win7x64 SWX premium 2015 SP5
|
erstellt am: 30. Nov. 2015 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für Rubino
|
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: 30. Nov. 2015 16:33 <-- editieren / zitieren --> Unities abgeben: Nur für Rubino
Hallo Angelehnt an das Makro von Deepak Gupta Code: Option ExplicitDim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swConfigMgr As SldWorks.ConfigurationManager Dim swConfig As SldWorks.Configuration Dim swCustPropMgr As SldWorks.CustomPropertyManager Dim itemval As String Dim resolveditemval As String Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swConfigMgr = swModel.ConfigurationManager Set swConfig = swConfigMgr.ActiveConfiguration Debug.Print "Name of this configuration: " & swConfig.Name Set swCustPropMgr = swConfig.CustomPropertyManager 'Copy the value for specified Configuration property. swCustPropMgr.Get2 "PART.NO", itemval, resolveditemval 'Delets the specified Configuration property. 'swCustPropMgr.Delete "Description" 'Add specified Custom property. swModel.DeleteCustomInfo2 "", "BENENNUNG" swModel.AddCustomInfo3 "", "BENENNUNG", swCustomInfoText, itemval swModel.ForceRebuild3 False swModel.Save2 True End Sub
Gruss Andreas ------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Rubino Mitglied Werkzeugmacher, staatl. gepr. Techniker, Bachelor of Engineering
Beiträge: 178 Registriert: 16.11.2006 Systeme: CatiaV5, Tebis, SW, NX, ProE, WorkNC System: 4x4,6Ghz(3770K), 32GB (2400Hz) Corsair, 660GTX GS 2GB, WIN7x64
|
erstellt am: 01. Dez. 2015 08:58 <-- editieren / zitieren --> Unities abgeben:
Hey, vielen Dank!!! Exakt das was ich brauche. Ich werde versuchen das noch so umzubauen, dass ich mehrere Eigenschaften auf einmal machen kann und ab gehts! Dazu sollte ich mich wohl in Zukunft auch ein wenig mit VBA auseinandersetzen. DPS Job Box wäre auch Interessant, haben wir aber leider nicht im Haus.... U`s sind unterwegs!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|