---

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

---

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

---

Hi Reinhard...

Dat klappt.....

Vielen Dank für die Antwort..  (Die Unities sind überwiesen !!)

Schönes WE

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ho...

Einen hab ich noch....

Besteht die möglichkeit abzufragen ob ein bestimmtes Skizziertes Symbol bereits
auf dem Sheet vorhanden ist ???

LG

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

Hallo Andreas,

wenn man schnell tippt als man denkt...

nimm sym.definition.name und es geht

Gruß
Reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Reinhard... 

Jip... Das klappt...

Veielen Dank noch einmal und viele Grüße..

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP