| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
 | Flexibel statt verpflichtend: SOLIDWORKS Kauflizenzen und neue Wege der Lizenzierung, ein Webinar am 25.07.2025
|
Autor
|
Thema: Makro um Komponenten die von STL ausgeschlossen sind zu finden (593 mal gelesen)
|
ftegeler Mitglied Maschinenbauingenieur

 Beiträge: 10 Registriert: 22.04.2007 Fa. Plümat in Espelkamp Windows XP mit SWX2010 SP5.0
|
erstellt am: 13. Dez. 2013 14:12 <-- editieren / zitieren --> Unities abgeben:         
Hallo an die Forumsteilnehmer, ich benötige ein rekursives Makro das durch die SolidWorks-Strukturen läuft und bei den Komponenten die von Stückliste ausgeschlossen sind eine benutzerdefinierte Eigenschaft dieser Komponente und oder den Dateinamen in einem Meldungsfenster ausgibt, bis die Komponentenstruktur komplett durchlaufen ist. Mit freundlichen Grüßen ftegeler ------------------ Frank Tegeler Maschinenbau/Wirtschaftsingenieur Bollstrasse 2 32312 Lübbecke Tel.: 05741-12563 Fax: 03221-1233649 Handy: 0175-1288850 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
clownfisch Mitglied industrial designer
  
 Beiträge: 756 Registriert: 18.01.2006 SWX 2023 und davor Intel XEON W-2125 4,0 GHz 16,00 GB RAM nvidia Quadro RTX 4000 Windows 10 Prof. für Workstation Windows 10 Prof
|
erstellt am: 13. Dez. 2013 14:16 <-- editieren / zitieren --> Unities abgeben:          Nur für ftegeler
|

| |
HenryV Mitglied Konstrukteur, Engineering
  
 Beiträge: 817 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: 13. Dez. 2013 15:40 <-- editieren / zitieren --> Unities abgeben:          Nur für ftegeler
Hallo Frank Du hast zwar keine Frage gestellt, aber weil bald Weihnachten ist wollen wir mal nicht so sein. Um Abzufragen ob eine Komponente aus der Stückliste ausgeschlossen ist gibt es das Property ExcludeFromBOM. Beispiel:
Code: Option ExplicitDim swApp As SldWorks.SldWorks Dim swModel As ModelDoc2 Dim swRootComp As SldWorks.Component2 Dim swConf As SldWorks.Configuration Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swConf = swModel.GetActiveConfiguration Set swRootComp = swConf.GetRootComponent TraverseComponent swRootComp, -1 End Sub Sub TraverseComponent(swComp As SldWorks.Component2, ByVal iLev As Integer) Dim vChildComp As Variant Dim swChildComp As SldWorks.Component2 Dim i As Long vChildComp = swComp.GetChildren For i = 0 To UBound(vChildComp) Set swChildComp = vChildComp(i) If swChildComp.ExcludeFromBOM Then msgbox "Excluded From BOM : " & swChildComp.Name End If TraverseComponent swChildComp, iLev + 1 Next i End Sub
Gruss Andreas ------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |