| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| SPS, Veranstaltung am 12.11.2024 |
Autor
|
Thema: Eigenschaften Übertragen ET --> BG (502 / mal gelesen)
|
The Mc 7 Mitglied TZ
Beiträge: 429 Registriert: 25.02.2004 Monitore : 2x LG 23“ 3D Maus : Space Controller Betriebssystem: Windows 7 64 Bit
|
erstellt am: 29. Feb. 2024 15:44 <-- editieren / zitieren --> Unities abgeben:
Hallöchen, gibt es ein Makro oder eine schöne Möglichkeit die Eigenschaften, die man im Part hat in eine Baugruppe zu übertragen. z.B. ein Makro, was vom ersten Teil in der Baugruppe die Eigenschaften ausließt und in die Baugruppe einträgt? Gruß Hobi ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Spieler Mitglied Mechaniker
Beiträge: 1355 Registriert: 12.12.2002 SOLIDWORKS 2024SP3.1
|
erstellt am: 29. Feb. 2024 17:41 <-- editieren / zitieren --> Unities abgeben: Nur für The Mc 7
|
The Mc 7 Mitglied TZ
Beiträge: 429 Registriert: 25.02.2004 Monitore : 2x LG 23“ 3D Maus : Space Controller Betriebssystem: Windows 7 64 Bit
|
erstellt am: 01. Mrz. 2024 10:49 <-- editieren / zitieren --> Unities abgeben:
|
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 814 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: 01. Mrz. 2024 11:43 <-- editieren / zitieren --> Unities abgeben: Nur für The Mc 7
Kurz ChatGPT gefragt: Code: Dim swApp As SldWorks.ISldWorks Dim swModel As SldWorks.IModelDoc2 Dim swAssy As SldWorks.IAssemblyDoc Dim swComp As SldWorks.IComponent2 Dim swCustPropMgr As SldWorks.ICustomPropertyManager Dim swCompCustPropMgr As SldWorks.ICustomPropertyManager Dim propName As String Dim propValue As String Dim propResolvedValue As String Dim propLinkedToProperty As BooleanSub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swAssy = swModel Set swComp = swAssy.GetComponents(True)(0) 'GetFirstComponent Set swCustPropMgr = swModel.Extension.CustomPropertyManager("") Set swCompCustPropMgr = swComp.GetModelDoc2.Extension.CustomPropertyManager("") Dim i As Long For i = 0 To swCompCustPropMgr.count - 1 propName = swCompCustPropMgr.GetNames(i) swCompCustPropMgr.Get5 propName, False, propValue, propResolvedValue, propLinkedToProperty swCustPropMgr.Add3 propName, swCustomInfoType_e.swCustomInfoText, propValue, swCustomPropertyAddOption_e.swCustomPropertyReplaceValue Next i End Sub
------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |