| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Baden-Württembergischer Schreinertag, eine Veranstaltung am 28.09.2024
|
Autor
|
Thema: Abfrage innerhalb eines Makros, ob eine Skizze markiert ist (1229 mal gelesen)
|
GuidoCAD Mitglied
Beiträge: 202 Registriert: 27.11.2009 SolidWorks Premium 2013 SP 5.0 (de) Win7 Pro N SP 1 (de)
|
erstellt am: 11. Mrz. 2015 14:23 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe vor einiger Zeit ein Makro geschrieben, das es mir ermöglicht SolidWorks Skizzen in die PCB Design Software Eagle zu übernehmen. Das Makro findet ihr hier. Das Nervige an dem Makro ist, dass man garantiert vergisst die Skizze vor dem Aufruf des Makros zu markieren. Die Folge ist, dass das Makro mit einem Laufzeitfehler abbricht. Daher die folgende Frage an Euch: Gibt es eine einfache Möglichkeit innerhalb eines Makros zu überprüfen, ob eine Skizze markiert ist? Mit freundlichen Grüßen Guido
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Winni-two Mitglied Ing. Maschb.
Beiträge: 154 Registriert: 12.03.2010 SW 2021 SP5 Intel Xenon W2135 @3.7GHz Win 10 64 bit Graka: Nvidia Quadro P4000 32 GB Ram
|
erstellt am: 11. Mrz. 2015 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für GuidoCAD
|
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: 11. Mrz. 2015 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für GuidoCAD
Hallo Guido du kannst das "On Error"-Statement verwenden,
Code: Sub main() On Error GoTo Ende ... : Ende End Sub
oder du fragst das swFeat-Objekt ab.
Code: ... Set swFeat = swSelMgr.GetSelectedObject5(1) If swFeat Is Nothing Then Exit Sub Set swSketch = swFeat.GetSpecificFeature2 ...
Gruss Andreas
------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
GuidoCAD Mitglied
Beiträge: 202 Registriert: 27.11.2009 SolidWorks Premium 2013 SP 5.0 (de) Win7 Pro N SP 1 (de)
|
erstellt am: 12. Mrz. 2015 12:49 <-- editieren / zitieren --> Unities abgeben:
Hallo, vielen Dank für Eure Antworten. Mit Eurer Unterstützung habe die Abfrage jetzt wie folgt umgesetzt.
Code: ... Set swSelMgr = swModel.SelectionManager Set swFeat = swSelMgr.GetSelectedObject6(1, -1) If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelSKETCHES Then MsgBox "Fehler: Keine Skizze ausgewählt", vbOKOnly + vbExclamation, "GetLinesInSketch4Eagle" Else Set swSketch = swFeat.GetSpecificFeature2 ...
Ich hätte in der Abfrage zwar gerne den Typ von "swFeat" überprüft, dies hat jedoch nicht funktioniert. Daher frage ich jetzt mit "swSelMgr.GetSelectedObjectType3(1, -1)" ab was selektiert ist.
Mit freundlichen Grüßen Guido Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |