| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Planen, verwalten & Kosten optimieren: Effizienter Layoutentwurf Ihrer Industrieanlagen mit DraftSight® |
Autor
|
Thema: An die Makro-Profis: per Makro prüfen, ob Bezugshinweis ein »Prüfmaß« ist (1824 / mal gelesen)
|
damagedbrain Mitglied Entwickler, Konstrukteur
Beiträge: 37 Registriert: 28.04.2008 Win 10 Pro 64bit SolidWorks 2017 x64 SP 5.0 SolidWorks PDM Enterprise 18.4 (B76) AMD Ryzen 5 3600 6-Core Processor 3.59 GHz 32GB RAM
|
erstellt am: 15. Sep. 2017 07:12 <-- editieren / zitieren --> Unities abgeben:
Hallo mal wieder, ich möchte per Makro alle als »Prüfmaß« deklarierten Bemaßungen und Bezugshinweise in eine Excel-Tabelle auslesen. Bei Bemaßungen funktioniert das mit »If DisplayDimension.Inspection = 1 Then« prima. Leider habe ich nirgends gefunden, wie man per VBA/API feststellen kann, ob ein Bezugshinweis mit Rand (Kreis, Dreieck, Quadrat, ..., oder eben Prüfmaß) versehen ist. Bild dazu anbei. Ich hoffe das ist irgendwie möglich und jemand kann mir helfen? Viele Grüße Ronny
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StefanBerlitz Guter-Geist-Moderator IT Admin (CAx)
Beiträge: 8756 Registriert: 02.03.2000 SunZu sagt: Analysiere die Vorteile, die du aus meinem Ratschlag ziehst. Dann gliedere deine Kräfte entsprechend und mache dir außergewöhnliche Taktiken zunutze.
|
erstellt am: 15. Sep. 2017 08:43 <-- editieren / zitieren --> Unities abgeben: Nur für damagedbrain
Hallo Ronny, du kannst dir von deinem Bezughinweis das note-Objekt holen, und dann mit Note::GetBalloonStyle auslesen, was es für einen Randstil hat. Für das Prüfmaß bekommst du dann 13 (swBS_Inspection) zurück Als Quickie, wenn du deine Beschriftung selektiert hast:
Code: Dim swApp As Object Dim swModel As SldWorks.ModelDoc2 Dim swSelectionMgr As SldWorks.SelectionMgr Dim swNote As SldWorks.Note Sub main()
Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swSelectionMgr = swModel.SelectionManager Set swNote = swSelectionMgr.GetSelectedObject6(1, -1) Debug.Print " Balloon style = " & swNote.GetBalloonStyle End Sub
Ciao, Stefan ------------------ Inoffizielle deutsche SolidWorks Hilfeseite http://solidworks.cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Maler Mitglied Konstrukteur / CAD-Admin / Mädchen für alles
Beiträge: 720 Registriert: 17.01.2007 SWX 2019 SP5 AutoCAD 2019 Win 10 pro 64 bit Intel(R) Xeon(R) CPU E5-1650 v4 @ 3.60GHz 64GB RAM Nvidia Quadro M5000 SWx EPDM
|
erstellt am: 15. Sep. 2017 08:45 <-- editieren / zitieren --> Unities abgeben: Nur für damagedbrain
|
| |
damagedbrain Mitglied Entwickler, Konstrukteur
Beiträge: 37 Registriert: 28.04.2008 Win 10 Pro 64bit SolidWorks 2017 x64 SP 5.0 SolidWorks PDM Enterprise 18.4 (B76) AMD Ryzen 5 3600 6-Core Processor 3.59 GHz 32GB RAM
|
erstellt am: 15. Sep. 2017 09:02 <-- editieren / zitieren --> Unities abgeben:
Hallo Stefan, dazu hatte ich auch schon was gefunden, konnte damit aber nichts anfangen Aber jetzt klappt's! Vielen Dank! @ Jens Wenn ich das nach dem schnell Überfliegen richtig erkannt habe, ist diese Lösung nur auf Bemaßungen und Form- und Lagetoleranzen aus. Die Bezugshinweise werden nicht berücksichtigt. Grüße Ronny Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |