---

Hallöchen,

kann ich mittels VBA einen Text auf einem 2D-Blatt mit einem Klick anklicken, sodass er automatisch z. Bsp. "rot"  wird?
Michael

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

---

es gibt ein VBA Klassenmodul clsSelect bzw. cls1Select. Die Beispiele beziehen sich aber immer auf ein Part-Model mit Face. Angeblich soll es auch im Drawing-Bereich gehen. Hat da schon mal jemand was gemacht?
Michael

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

---

Hallo,

leg dir doch im vba Editor ein Modul an und kopiere folgenden Code
rein:

Code:

---

Option Explicit

Sub Rot_Klick()
    Dim entity As AcadEntity
    Dim Pkt As Variant
    Dim Abbruch As Boolean
   
    ThisDrawing.Utility.Prompt Chr$(10) & "Elemente rot färben ....."
   
    Do
        On Error Resume Next
        ThisDrawing.Utility.GetEntity entity, Pkt, Chr$(10) & "Element anklicken (oder ESC zum beenden): "
        If Err.Number = 0 Then
          On Error GoTo 0
          On Error Resume Next
          entity.Color = acRed
          If Err.Number <> 0 Then
              ThisDrawing.Utility.Prompt Chr$(10) & "Elemente kann nicht geändert werden!"
          Else
              entity.Update
          End If
        Else
          Abbruch = True
        End If
    Loop While Not Abbruch
End Sub

---

Bastel dir im AutoCAD einen Button und starte die
Funktion mit "^C^C_-vbarun;Rot_Klick;" und alles ist paletti.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Danke für den Code!
Komme leider erst heute Abend dazu ihn auzuprobieren.
Michael

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

---

@Stelli1

AutoCAD? 

Wir nix AutoCAD, wir Inventor. 

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

ich habe das Programm doch schon früher ausprobiert, nicht erst heute Abend ... deswegen bekomme ich auch schon eine Fehlermeldungen bei:
"Dim entity As AcadEntity"!
Schade, da habe ich mich doch zu früh gefreut!
Also geht es doch nur mit dem "select" Klassenmodul?
Michael

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

---

Hallo daywa1k3r,

ich nix inventor.
Aber ich war davon ausgegangen ds die AutoCAD Grundklassen
auch in Inventor vorhanden sind.
Lassen sich diese nicht als Verweise einstellen ??

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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