| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | PLM TechnologieForum Essen |
Autor
|
Thema: VBA Befehl für Beschriftung (917 mal gelesen)
|
masamundy Mitglied
Beiträge: 6 Registriert: 13.02.2009
|
erstellt am: 02. Mrz. 2009 08:34 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich würde gerne in einem Makro auslesen lassen ob die Beschriftung RD1 in einer Baugruppe schon vorhanden ist oder nicht. Ich brauche das für ein größeres Makro, dessen Funktion hier aber nichts zur Sache tut. Ich stelle mir das in etwa so vor: if "RD1 vorhanden" then "löschen" end if Wäre super wenn ihr mir helfen könnt. 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: 02. Mrz. 2009 08:59 <-- editieren / zitieren --> Unities abgeben: Nur für masamundy
Hallo masamundy, wenn ich den Namen kenne würde ich das vermutlich so versuchen:
Code:
If Part.Extension.SelectByID2("D1@Innenkontur", "DIMENSION", 0#, 0#, 0#, False, 0, Nothing, 0) = True Then ' ist selektiert und man sollte was mit der Selektion machen können MsgBox "Weg damit" End If
Sprich versuchen die (namentlich bekannte) Bemaßung zu selektieren, wenn das klappt ist die vorhanden. Wenn es tatsächlich eine Beschriftung ist müsste der Selektionsbefehl irgendwie so aussehen:
Code: Part.Extension.SelectByID2("Detailelement1@Beschriftung", "NOTE" ...
Schau dir das am besten in der API Hilfe an, das sollte funktionieren.Ciao, Stefan ------------------ Inoffizielle deutsche SolidWorks Hilfeseite http://solidworks.cad.de Stefans SolidWorks Blog Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
masamundy Mitglied
Beiträge: 6 Registriert: 13.02.2009
|
erstellt am: 02. Mrz. 2009 09:18 <-- editieren / zitieren --> Unities abgeben:
Hi, genial. Wusste doch das es so einfach ist. Es ist tatsächlich eine DIMENSION, da sie mit Baugruppen "intelligente Bemaßung" erstellt wurde. Heißt nur RD1@Beschriftung. Also mit NOTE gehts nicht. Hier nochmal der Code für alle mit dem es klappt: Code: If Part.Extension.SelectByID2("RD1@Beschriftung", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0) = True Then MsgBox "ja" Else MsgBox "nein" End If
Vielen Dank. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|