| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | |  | Wie kann Simulation Ihre Produktentwicklung beschleunigen?, ein Webinar am 07.08.2025
|
|
Autor
|
Thema: An die Makro-Profis: per Makro prüfen, ob Bezugshinweis ein »Prüfmaß« ist (2185 / 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: 729
Registriert: 17.01.2007 SWX 2023 SP5
Draftsight 2023
Win 11 Enterprise
Intel i7-13700 2.10 GHz
64GB RAM
Nvidia RTX A2000 12GB
SWx EPDM
AP+
CSWE 2018
|
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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
