| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Attribute abfragen in Skizzierte Symbole (2046 mal gelesen)
|
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 05. Dez. 2007 15:43 <-- editieren / zitieren --> Unities abgeben:
Hi Ho Froum... :-) Ich habe ein Skizziertes Symbol erstellt mit einigen Attributen (Typ: Angeforderte Eingabe). Diese Symbole möchte ich: a) über VBA einfügen b) die Attribute der Symbole mit Inhalt füllen "a" macht kein Problem.... zu "b" hätte ich aber folgende Frage... Ist es möglich die Anzahl der vorhandenen Attribute (Typ: Angeforderte Eingabe) und deren Namen zu ermitteln. Vielen Dank an Euch und Gruß aus dem Norden..... Andreas PS: Es geht um den Inventor 10 ! [Diese Nachricht wurde von Evil_Bart am 05. Dez. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 05. Dez. 2007 20:29 <-- editieren / zitieren --> Unities abgeben: Nur für Evil_Bart
Hallo Andreas, das geht.
Code:
Dim odrawdoc As DrawingDocument Set odrawdoc = ThisApplication.ActiveDocument Dim Sym As SketchedSymbol Set Sym = odrawdoc.ActiveSheet.SketchedSymbols.Item(1) Dim otext As TextBox Set otext = Sym.Definition.Sketch.TextBoxes.Item(1) Call Sym.SetPromptResultText(otext, "xxxx")
Das ganze setzt voraus, dass ein Symbol eingefügt ist und diese einen Text enthält. Gruß Reinhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 07. Dez. 2007 11:43 <-- editieren / zitieren --> Unities abgeben:
|
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 07. Dez. 2007 12:16 <-- editieren / zitieren --> Unities abgeben:
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 07. Dez. 2007 19:33 <-- editieren / zitieren --> Unities abgeben: Nur für Evil_Bart
Hallo Andreas, eigentlich sollte aus dem oberen Code klar sein wie man alle Symbole eines Blatts abruft. Und wenn nicht dann gibts in der API mindestens ein Beispiel. Und wenn das auch nicht hilft dann versuchs damit: Dim odrawdoc As DrawingDocument Set odrawdoc = ThisApplication.ActiveDocument Dim Sym As SketchedSymbol
Code: For Each Sym in odrawdoc.ActiveSheet.SketchedSymbols If Sym.Name="blablabla" Then Dim otext As TextBox Set otext = Sym.Definition.Sketch.TextBoxes.Item(1) Call Sym.SetPromptResultText(otext, "xxxx") End If Next
Gruß Reinhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 10. Dez. 2007 15:51 <-- editieren / zitieren --> Unities abgeben:
Hallo Reinhard... Klar hatte ich vorher in der API gestöbert. Das Problem ist das (wie in deinem Beispiel) die Eigenschaft Sym.Name nicht unterstützt wird. Gibt es vieleicht noch einen anderen Weg abzufragen ob ein Skizziertes Symbol bereits auf dem Sheet vorhanden ist ??? LG aus Kiel Andreas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 10. Dez. 2007 20:05 <-- editieren / zitieren --> Unities abgeben: Nur für Evil_Bart
|
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 11. Dez. 2007 09:08 <-- editieren / zitieren --> Unities abgeben:
|