---

Hallo Zusammen

Ich versuche jetzt ein Makro schreiben, welsches Type im jedem Selektion Object ändern/wechseln (vom MonoSpac821 zu SSS2). Ist das überhaupt möglisch nur mit Objekt, oder muss ich jedes Mal ObjektTyp prüfen?

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

---

Servus Sylas

Je nach dem welche Elemente du selektiert hast, haben diese ja keine Schriftart.
Also entweder bei der Selektion die Elemente filtern, oder beim abarbeiten der Selektion den Objekttyp auswerten und entsprechend handeln (überspringen, Schriftart ändern, sich erst zu Schriftart durch hangeln, ...)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Zitat:

---

Original erstellt von bgrittmann:
Servus Sylas

Je nach dem welche Elemente du selektiert hast, haben diese ja keine Schriftart.
Also entweder bei der Selektion die Elemente filtern, oder beim abarbeiten der Selektion den Objekttyp auswerten und entsprechend handeln (überspringen, Schriftart ändern, sich erst zu Schriftart durch hangeln, ...)

Gruß
Bernd

---

Gruß dich

Lassen Sie uns, das Ich definire Filter zu erst (Dimension,Text,Roughness Symbol, Stacked Dimension u.s.w). Dann, nach der Selektion, muss ich jedes Element so wie so als eigene Typ definieren, oder kann ich schon etwas wie das schreiben:

Code:

---

Dim oObjekt as SelectedElement
Set oObjekt=oSelection.Item(i).value
oObjekt.Text.SetFontName 0,  0, "SSS2"

---

?

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

---

Servus

Vermutlich geht das nicht, da viele Objekte sich in einer Zeichnung per API nicht ansprechen lassen (AFAIK gehen Textformatierung von Dimensions nicht, Roughness Symbol gar nicht ansprechbar, ...)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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