| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Zerspanungstreff mit SolidCAM bei der Hoffmann GmbH in Achim/Bremen |
Autor
|
Thema: Isolieren per Makro (1184 mal gelesen)
|
dasTho Mitglied Holzingenieur
Beiträge: 17 Registriert: 01.12.2008 SWX 2010 SP5
|
erstellt am: 11. Jun. 2014 16:59 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, wir arbeiten mit einer Exceldatei, in die alle Teile einer Baugruppe eingelesen werden.Ich möchte gerne Teile aus der Excelliste per Makro in SWX identifizieren können. Dazu stelle ich mir vor in der Excelei das Teil zu markieren und dann die VBA-Umsetzung von "Teil isolieren und den Rest in Drahtdarstellung". Wie ich ein SWX -Makro aus Excel aufrufe kriege ich noch hin, aber ich weiß nicht wie ich das isolieren per VBA in SWX bewerkstellige. Kann jemand helfen? 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: 11. Jun. 2014 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für dasTho
Hallo Thorsten Das Isolieren kann man mit Code: swApp.RunCommand swCommands_Comp_Isolate, ""
auslösen, und mit Code: swApp.RunCommand swCommands_Comp_Isolate_Exit, ""
wieder beenden. Das Umstellen auf Drahtdarstellung geht meines Wissens nicht mit der API. Gruss Andreas ------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
dasTho Mitglied Holzingenieur
Beiträge: 17 Registriert: 01.12.2008 SWX 2010 SP5
|
erstellt am: 12. Jun. 2014 13:30 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, das hat geholfen. Herzlichen Dank! Code: Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As LongSub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc 'isolate swApp.RunCommand swCommands_Comp_Isolate, "" End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |