---

Guten Morgen

Versuche Objektname von einem Element zu ändern.
Geht das eigendlich?

Gruss Nano

(COMMAND "_pline" "_non" Kp117 "B" 0 0 "_non" Kp115 "_non" Kp116 "_non" Kp118 \r)
(SETQ Ke333 (CDR (ASSOC 330 (ENTGET Ke333))))
(ENTMOD
(SUBST (CONS 330 "<Objektname: LK030005>")(ASSOC 330 Ke333) Ke333)
)

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

---

Nein, nicht in Lisp.

------------------
  - 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 Thomas

Gibt es eine andere Möglichkeit
ein Element ein Namen oder ein Kommentar zu zuweissen.

Entity Übersichtstabele CODE 999

Gruss Nano

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

---

Zitat:

---

Original erstellt von Nano:
Hallo Thomas

Gibt es eine andere Möglichkeit
ein Element ein Namen oder ein Kommentar zu zuweissen.

Gruss Nano

---

Wie siehts mit XDATA aus??

------------------
  - 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 Thomas

XDATA ist das ein kommentar Code 1000?

Beispiel:
(1000 . "(\"5.0b\" \"0006C7\" \"ROHR\" \"EDELST.DAT\" nil (((-1.0 0.0 0.0) (0.0 0.0 0.0) \"DN100\") ((1.0 0.0 0.0) (0.0 0.0 0.0) \"DN100\")) 39.4888)")))

Gruss Nano

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

---

zum Beispiel .. und solche solltest du IMHO auch hier im Forum finden .. ranpappen, auslesen ect. .. wenn nicht: nochmal fragen

oder z.b

(defun OBJPUTXDATA (OBJ NEWXDATA / XDATA DATA) 
  (setq XDATA (assoc -3 (entget OBJ '("*"))))
  (regapp (car NEWXDATA))
  (if (setq DATA(assoc (car NEWXDATA) (cdr XDATA)))
    (setq XDATA(subst NEWXDATA                       
                      DATA
                      (cdr XDATA)
              )
    )
    (setq XDATA(cons -3 (append (cdr XDATA)
                          (list NEWXDATA)   
                        )
            )     
    )
  )         
  (entmod(append (entget OBJ) (list XDATA)))
)

Aufruf dann
(OBJPUTXDATA (car(Entsel)) '("MYPERSONALXDATA" (1004 . "Wasweißich")))

------------------
  - 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

---

Danke Thomas

Der Kommentar wird angenommen.
'("MYPERSONALXDATA" (1004 . "Wasweißich")))
"Wasweißich" ist String.

Habe reale Zahlen > Umwandlung auf String
(setq KanalBR (rtos b1))

Aber List wir nicht angenommen mit Variable KanalBR
'("Kanal" (1004 . KanalBR)))

Was kann ich anderst machen?

Gruss Nano

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

---

Zitat:

---

Original erstellt von Nano:
Danke Thomas

Der Kommentar wird angenommen.
'("MYPERSONALXDATA" (1004 . "Wasweißich")))
"Wasweißich" ist String.

Habe reale Zahlen > Umwandlung auf String
(setq KanalBR (rtos b1))

Aber List wir nicht angenommen mit Variable KanalBR
'("Kanal" (1004 . KanalBR)))

Was kann ich anderst machen?

Gruss Nano

---

Das Lisptutorial von MAPCAR nochmal lesen !! bsonders die Bedeutung von QUOTE und Ausführung von Code im Lispinterpreter 

dann solltest du auf sowas kommen:

(OBJPUTXDATA (car(Entsel)) (list "KANAL" (cons 1004 KanalBR)))

------------------
  - 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 Nano,
für reale Zahlen kannst Du den GC 1040 verwenden,
(list "Kanal" (cons 1040 b1))

------------------
viele Grüße

Jörn

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

---

Thomas noch eine Frage

Wird Code -3 nicht gespeicht am Element?

Nano

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

---

doch .. mach mal (entget(Car(Entsel))'("*"))
-3 ist der assoc-GC für die XDATAS

------------------
  - 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