| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | Technikerschüler der staatlichen Feintechnikschule Schwenningen zu Besuch bei SolidCAM GmbH in Schramberg |
|
Autor
|
Thema: Abfrage innerhalb eines Makros, ob eine Skizze markiert ist (1178 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: 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. 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 |
Foren auf CAD.de (alle Foren)
| 
