---

Code:

---

(defun c:D ()
  (setq OBJ (car (entsel)))
  (if (= (cdr (assoc 0 (entget OBJ))) "INSERT")
    (command "attipedit")
    )
  (if (= (cdr (assoc 0 (entget OBJ))) "TEXT")
    (command "ddedit")
    )
  (if (= (cdr (assoc 0 (entget OBJ))) "MTEXT")
  (command "mtedit")
    )
  (if (= (cdr (assoc 0 (entget OBJ))) "DIMENSION")
    (command "ddedit")
    ))

---

Es stellt sich mir die Frage, obwohl ich das Objekt gewählt habe, muss ich es ein zweites Mal wälen, um es zu editieren.

------------------
Gruss Dirk

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

---

Du wirst nichts MARKIERT haben, in deinem Code sieht man nur eine Objektwahl über entsel, mehr nicht.

PS: Viele AutoCAD-Befehle (kann nicht unbedingt für alle gelten) kommen mit der Übergabe des eName zurecht:

(command "_ddedit" (car(entsel)) "")

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Hallo Dirk,
wenn Du die "entsel"-Rückgabe speicherst, kannst Du sie auch an einen Commandbefehl wieder übergeben. Bei Attributen empfielt sich allerdings "nentsel":

Code:

---

(defun c:D ()
  (setq OBJ (car (setq sel (nentsel))))
  (if (= (cdr (assoc 0 (entget OBJ))) "ATTRIB")
    (command "attipedit" sel)
    )
  (if (= (cdr (assoc 0 (entget OBJ))) "TEXT")
    (command "ddedit" sel)
    )
  (if (= (cdr (assoc 0 (entget OBJ))) "MTEXT")
  (command "mtedit" sel)
    )
  (if (= (cdr (assoc 0 (entget OBJ))) "DIMENSION")
    (command "ddedit" sel)
    ))

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Servus Dirk,

so nebenbei, nimm' hier lieber COND anstatt IF.

Ciao Georg

------------------
http://www.xxx-tausend.info

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

---

TexteEditieren.dwg.txt

Ja
Jetzt muss ich nochmal nachhaken - ich kann die Angabe von Text, Mtext, gerade Bemassung ändern
Nicht aber bei Attributtexten und gedrehten Bemassungen, obwohl ich sie mit cond richtig aufrufe

Code:

---

(defun c:D ()
  (if (setq AWS (ssget))
    (progn
      (setq I -1)
      (repeat (sslength AWS)
(setq OBJ (ssname AWS(setq I (1+ I))))
(setq DATA (entget OBJ))
)
      (cond
((= (cdr (assoc 0 (entget (entnext OBJ)))) "ATTRIB")
(command "attipedit" OBJ)
)
((= (cdr (assoc 0 DATA)) "TEXT")
        (command "ddedit" OBJ)
        )
        ((= (cdr (assoc 0 DATA)) "MTEXT")
        (command "mtedit" OBJ)
)
((= (cdr (assoc 0 DATA)) "DIMENSION")
(command "ddedit" OBJ)
)))))

---

------------------
Gruss Dirk

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

---

ATTDIRBEARB will IMHO kein OBJ sondern einen Punkt ...

(command "ATTDIRBEARB" (getpoint))
bzw.
(command "ATTDIRBEARB" (cadr(entsel))) ..

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Dirk,
das liegt daran, dass Du bei einem Auswahlsatz (ssget) nicht das Attribut, sondern den Block im AWS hast. Woher sollte AutoCAD wissen, welches der Attribute Du bearbeiten willst? Daher bei Blöcken entweder die Attribute EINZELN wählen (s.o. mit nentsel), oder du nimmst "_eattedit".

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Kombiniere

Die Bedingungen müssen erfüllt sein, um dann command auszuführen

Code:

---

(cond
    ((= (cdr (assoc 0 (entget (setq ENT (car (entsel)))))) "DIMENSION")
    (command "ddedit" ENT)
    )
    ((= (cdr (assoc 0 (entget (setq ENT (car (nentsel)))))) "ATTRIB")
    (command "attipedit" ENT)
    )
    ((= (cdr (assoc 0 (entget (setq ENT (car (nentsel)))))) "TEXT")
    (command "ddedit" ENT)
    )
    ((= (cdr (assoc 0 (entget (setq ENT (car (nentsel)))))) "MTEXT")
    (command "mtedit" ENT)
    )
    )

---

Kann man eigentlich sagen, entsel oder nentsel beim auswählen verwenden

------------------
Gruss Dirk

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

---

Zitat:

---

Original erstellt von cadplayer:
Kombiniere

Die Bedingungen müssen erfüllt sein, um dann command auszuführen

Code:

---

(cond
    ((= (cdr (assoc 0 (entget (setq ENT (car (entsel)))))) "DIMENSION")
     (command "ddedit" ENT)
     )
    ((= (cdr (assoc 0 (entget (setq ENT (car (nentsel)))))) "ATTRIB")
     (command "attipedit" ENT)
     )
    ((= (cdr (assoc 0 (entget (setq ENT (car (nentsel)))))) "TEXT")
     (command "ddedit" ENT)
     )
    ((= (cdr (assoc 0 (entget (setq ENT (car (nentsel)))))) "MTEXT")
     (command "mtedit" ENT)
     )
    )

---

---

Was solln das werden ? 

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

1)
Ich möchte ein Lösung schaffen um alle Elemente

"DIMENSION" "ATTRIB" "TEXT" "MTEXT"

mit einer Funktion ändern zu können

2)
Mit ddedit kann ich alle Elemente bis auf "ATTRIB" änderen
dazu möchte ich attipedit verwenden

3)
Mein Problem besteht nun bei der Auswahl der Elemente
für "ATTRIB" "TEXT" "MTEXT" verwende ich nentsel
für "DIMENSION" verwende ich entsel

------------------
Gruss Dirk

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

---

was soll die Auswahl im Cond ??

wenn dann :

(setq WAHL (entsel "\nObjekt wählen: "))
(cond
    ((= (cdr (assoc 0 (entget (setq ENT (car WAHL))))) "DIMENSION")
    (command "ddedit" ENT)
    )
    ((= (cdr (assoc 0 (entget (setq ENT (car WAHL))))) "ATTRIB")
    (command "attipedit" (cadr WAHL))
    )
    ((= (cdr (assoc 0 (entget (setq ENT (car WAHL))))) "TEXT")
    (command "ddedit" ENT)
    )
    ((= (cdr (assoc 0 (entget (setq ENT (car WAHL))))) "MTEXT")
    (command "mtedit" ENT)
    )
)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

was soll die Auswahl im Cond ??

---

Die Zeilen

Code:

---

((= (cdr (assoc 0 (entget (setq ENT (car WAHL))))) "ATTRIB")
    (command "attipedit" (cadr WAHL))

---

arbeiten nicht korrekt
Es wird ddedit auch bei Attributen verwendet, weil die Auswahl mit entsel statt mit nentsel getroffen wird.
Meine Frage ist ob man entsel und nentsel in einer Funktion kombinieren kann

Also die Abfrage, wenn ein INSERT mit ATTRIBUT kommt verwende die Auswahl mit nentsel bei allen anderen Objekten verwende entsel

------------------
Gruss Dirk

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

---

bis auf den Austausch von "ATTRIB" mit "INSERT" sollte CADmiums Code funktionieren. Ich würde noch (cdr (assoc 0 (entget (setq ENT (car WAHL))))) als Variable speichern

Code:

---

  (setq WAHL (entsel "\nObjekt wählen: "))
  (cond
    ((= (setq obj_type (cdr (assoc 0 (entget (setq ENT (car WAHL)))))) "DIMENSION")
      (command "ddedit" ENT)
    )
    ((= obj_type "INSERT")
      (command "attipedit" (cadr WAHL))
    )
    ((= obj_type "TEXT")
      (command "ddedit" ENT)
    )
    ((= obj_type "MTEXT")
      (command "mtedit" ENT)
    )
  )
  )

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Super Jungs - ich staune wie schnell ihr Lösungen findet.
http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff1551d5710df8a6f487-7e71.htm

Ich habe hier mal geschaut, um etwas über die Auswahl von "ATTRIB" zu finden
- weiss einer wo, das zu finden ist was cadmium sagte (cadr WAHL)

[Diese Nachricht wurde von cadplayer am 08. Nov. 2011 editiert.]

[Diese Nachricht wurde von cadplayer am 08. Nov. 2011 editiert.]

[Diese Nachricht wurde von cadplayer am 08. Nov. 2011 editiert.]

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

---

attipedit will einen Punkt als Argument .. entsel liefert Objekt und Klickpunkt..

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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