| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Risiko Cyberangriff - Sicherheit ohne Kompromisse: Mit 3DEXPERIENCE® SOLIDWORKS haben Hacker keine Chance |
Autor
|
Thema: Makro findet mehr Zuschnittselemente als angezeigt (832 mal gelesen)
|
CADFelix Mitglied
Beiträge: 5 Registriert: 24.09.2018
|
erstellt am: 24. Sep. 2018 17:12 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich bin auf das Phänomen gestoßen, dass mein Makro (ist im Anhang) mehr Zuschnittselemente findet als im Featuremanager angezeigt wird. Hintergrund: Ich möchte per Makro allen vorhandenen Zuschnittselementen eine fortlaufende Nummer in die Eigenschaften schreiben, um diese für eine ERP Kopplung zu nutzen. Ich habe schon eine Fehlerursache ausgeschlossen. Es gibt keine Konfigurationen mehr, diese habe ich gelöscht. Das Verhalten tritt auch nicht bei jedem Teil auf. Hat jemand schon einmal ein solches Verhalten gehabt, bzw. ist in meinem Makro ein grundsätzlicher Fehler? Vielen Dank schon mal für eure Hilfe! Gruß Felix
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADFelix Mitglied
Beiträge: 5 Registriert: 24.09.2018 Solidworks 2016 SP5 Soldiworks PDM 2016 SP5 Windows 10 64Bit HP ZBook 17 G3 Intel Core i7-6820HQ 16 GB Arbeitsspeicher NVIDIA Quadro M3000M
|
erstellt am: 24. Sep. 2018 17:15 <-- editieren / zitieren --> Unities abgeben:
Hier noch das Makro: Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swFeat As SldWorks.Feature Dim swCustPropMgr As SldWorks.CustomPropertyManager Dim strValue As String Dim Number As Integer Dim PosNumber As String Dim boolstatus As Boolean Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swFeat = swModel.FirstFeature While Not swFeat Is Nothing If swFeat.GetType = 107 Then Set swCustPropMgr = swFeat.CustomPropertyManager Number = Number + 1 PosNumber = Format(Number, "00") MsgBox swFeat.Name & " " & PosNumber End If Set swFeat = swFeat.GetNextFeature Wend End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian_W Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl-Ing)
Beiträge: 3189 Registriert: 04.04.2001 CSWP 12/2015<P>SWX2021sp5 Win10/11 (SWX2016, SWX2012) proAlpha6.2e00/calinkV9 (Tactonworks) (Medusa7, NesCAD2010, solidEdge19)
|
erstellt am: 25. Sep. 2018 12:02 <-- editieren / zitieren --> Unities abgeben: Nur für CADFelix
Hallo Felix, kannst du in der Zuschnittsliste mal den einen Ordner aufklappen? ich würd jetzt vermuten, dass "Untergeordnete Schweißkonstruktionen" die vielen Ordner erklären ... Gruß, Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADFelix Mitglied
Beiträge: 5 Registriert: 24.09.2018
|
erstellt am: 25. Sep. 2018 12:11 <-- editieren / zitieren --> Unities abgeben:
|
Christian_W Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl-Ing)
Beiträge: 3189 Registriert: 04.04.2001 CSWP 12/2015<P>SWX2021sp5 Win10/11 (SWX2016, SWX2012) proAlpha6.2e00/calinkV9 (Tactonworks) (Medusa7, NesCAD2010, solidEdge19)
|
erstellt am: 25. Sep. 2018 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für CADFelix
|
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1358 Registriert: 24.07.2002 AutoCAD ACA 2019 Solidworks 2021 Sp5.1 Enterprise PDM 2021 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell T3620 Intel Core i7-7700K 16 GB Arbeitsspeicher 2x Dell Ultrasharp U2415 Dell M4800
|
erstellt am: 25. Sep. 2018 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für CADFelix
|
CADFelix Mitglied
Beiträge: 5 Registriert: 24.09.2018
|
erstellt am: 25. Sep. 2018 13:40 <-- editieren / zitieren --> Unities abgeben:
|
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1358 Registriert: 24.07.2002 AutoCAD ACA 2019 Solidworks 2021 Sp5.1 Enterprise PDM 2021 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell T3620 Intel Core i7-7700K 16 GB Arbeitsspeicher 2x Dell Ultrasharp U2415 Dell M4800
|
erstellt am: 25. Sep. 2018 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für CADFelix
|
CADFelix Mitglied
Beiträge: 5 Registriert: 24.09.2018
|
erstellt am: 25. Sep. 2018 15:13 <-- editieren / zitieren --> Unities abgeben:
@Carsten: Ja, es muss irgendetwas mit dem Schweißkonstruktions Feature zu tun haben. Darin wird sowas wie eine Historie gespeichert. Ich bin mitlerweile auf die Funktion gestoßen, dass man die Volumenkörper unter den Zuschnittselementen abfragen kann. Da die "Geister-Zuschnittselemente" keine Volmenkörer haben, führt diese Abfrage zum Erfolg. "IsEmpty(swFeat.GetSpecificFeature2.GetBodies)" Das ungewöhnliche Verhalten erlärt es nicht, aber so komme ich weiter. Danke für eure Hilfe! Hier noch der angepasste Code: Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swFeat As SldWorks.Feature Dim swCustPropMgr As SldWorks.CustomPropertyManager Dim strValue As String Dim Number As Integer Dim PosNumber As String Dim boolstatus As Boolean Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swFeat = swModel.FirstFeature While Not swFeat Is Nothing If swFeat.GetType = 107 Then If Not IsEmpty(swFeat.GetSpecificFeature2.GetBodies) Then Set swCustPropMgr = swFeat.CustomPropertyManager Number = Number + 1 PosNumber = Format(Number, "00") MsgBox swFeat.Name & " " & PosNumber End If End If Set swFeat = swFeat.GetNextFeature Wend End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |