---

Liebes Forum,

ich habe eine Blockreferenz eingefügt, und wenn die Blockreferenz Attribute hat, dann soll das Fenster aufgehen, in dem der Benutzer die Attribute von Hand eingeben kann.
So, als ob man einen Doppelklick auf die Blockreferenz macht.

Wie muss ich da an dieser Stelle weitermachen?

Code:

---

...
If BlkRef.HasAttributes = True Then
  BlkRef.??? OpenDialog??
Endif
...

---

------------------
Grüße aus München
Christian

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

---

Der AutoCAD-Befehl zum bearbeiten-Dialog lautet ATTEDIT

Wenn du jedoch direkt davor die Blockreferenz mit dem Programm eingefügt hast,
dann wäre es ja sinnig(er) die Blockreferenz über den AutoCAD-Befehl
einzufügen.

Denn da wird dann "wie gewohnt" gearbeitet und ATTREQ, ATTDIA, berücksichtigt.
Und ggf. auch wie die Attribute definiert sind (Vorgabewerte etc.)

Ansonsten: Befehl ATTEDIT und das (letzte?) Objekt übergeben (Objektwahl letztes)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Ich muss den Block über ein VBA-Makro einfügen.

Wenn ich mit thisdrawing.sendcommand "eattedit " aufrufe, wie gebe ich ihm dann das letzte Objekt mit?

------------------
Grüße aus München
Christian

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

---

sendcommand bedeutet ja: übergebe die nachfolgenden Parameter/Argumente an die Befehlszeile.
Also ahme die Eingabe per Hand nach.

In AutoCAD gibt es die Objektwahlmethode L bzw. Letztes
(Objektwahlmethoden in Acad, siehe Befehl WAHL in der Hilfe)

Test es in AutoCAD, das hat nichts mit VBA zutun:
Befehl: _MOVE

Objekte wählen: _last
1 gefunden

Ich habe hier die internationale Schreibweise gewählt damit es in jeder Sprachversion läuft,
gleiches sollte man für den Befehl machen: _MOVE anstatt Schieben in meinem Beispiel.

Du mußt dann noch dafür sorgen dass der Einfügelayer und alle Attributlayer entsperrt sind,
sonst akzeptiert _.EATTEDIT die Blockreferenz nicht als gültiges Objekt, aber auch das hat nichts mit VBA zutun,
so ist halt die Funktionsweise von dem AutoCAD-Befehl und den AutoCAD-Layern.

Für die Befehlszeile zum testen:
kopiere eine Blockreferenz mit Attributen (damit diese definitiv das LETZTE Objekt darstellt) und dann copy&paste folgende Zeile in die Befehlszeile:

Code:

---

; copypaste ab nächster Zeile
_VBASTMT
ThisDrawing.SendCommand "_.EATTEDIT" & vbCr & "_last" & vbCr

; bis vorherige Leerzeile

---

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Super! Funktioniert hervorragend.
Vielen herzlichen Dank.

------------------
Grüße aus München
Christian

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

---

Hallo Christian,
Als Alternative zum eattedit wäre auch folgende Vorgehensweise möglich:

Du hast ein Formular mit einem Listenfeld mit zwei Spalten und eine Textbox
Wenn der gesetzte Block Attribute hat holst Du Dir die Feldnamen (Tagstring) mittels getattributes in die Listbox
und lässt diese anzeigen
Durch tippen auf eine Zeile wird der Wert in der Textbox angezeigt und kann dort bearbeitet werden

Beim Schließen des Formulares übergibst Du die Werte aus der Listbox wieder dem Block (TextString)

Ist etwas aufwändiger, falls Du Code brauchst gib Bescheid

Grüße
Klaus 

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

---

Hallo Klaus,

danke für Dein Mitdenken, ist aber nicht das was ich gesucht habe.
Mit der Lösung von cadffm geht es wunderbar.

------------------
Grüße aus München
Christian

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