---

ok...ich versuchs mal hier 

ich generiere innerhalb einer lisp eine linie.
diese linie möchte ich...aus welchen gründen auch immer
im weiteren verlauf der lisp in ihrer länge ändern.
das geht nicht...ansatz:

(entmake (setq LINIE (list (cons 0 "LINE")(cons 8 "LAYER")(cos 10 xyz)(cons 11 xyz))))
......
(entmod (subst (cons 11 xyz-neu)(assoc 11 LINIE) LINIE))

GEHT NICHT *HEUL*
alles was mit entupd...regen oder ähnlichem zu tun hat habe ich schon probiert *schmoll*

------------------
.......good vibrations make the world go round 

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

---

das geht so auch nicht
du musst dir nach dem Erzeugen erstmal die gesamte Elementliste besorgen (entlast)

die kannst du dann substen

------------------
Gruß
CADwiesel
Besucht uns imCHAT

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

---

na das hätteste mir ja vorhin auch schon sagen können ;-)
gracias

.......geht aber nicht *heuuuuul*

------------------
  .......good vibrations make the world go round  

[Diese Nachricht wurde von marvin101010 am 29. September 2003 editiert.]

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

---

Hallo Marvin,

probier's mal damit

;; Variable Daten zum Erstellen der Linie definieren
(SETQ LAYER "0")
(SETQ startpoint (LIST 0 0))
(SETQ endpoint (LIST 100 100))

;; Linie erstellen
(ENTMAKE
  (list
    (cons 0 "LINE")
    (cons 8 LAYER)
    (cons 10 startpoint)
    (cons 11 endpoint)
    )
  )

;; Internen Objektnamen der Linie in Variable speichern
(SETQ LINIE (ENTLAST))

; Es folgen diverse Operationen, die Linie kann mit der Variable LINIE jederzeit wieder gefunden werden

;; Bearbeiten der Lininie
(SETQ obj (ENTGET LINIE))

(SETQ curr_endpoint (ASSOC 11 obj)) ;; Aktueller Endpunkt der Linie
(SETQ new_endpoint (CONS 11 (LIST 200 200))) ;; Neuer Endpunkt der Linie

(SETQ obj (SUBST new_endpoint curr_endpoint obj)) ;; Austauschen der Endpunkte
; Mit dem Startpunkt der Linie genau gleich verfahren, nur den DXF-Code entsprechend ändern.

(ENTMOD obj) ;; Aktualisieren der Linie
;; Ende

Die Verschönerungsarbeiten überlasse ich jedem selbst 

Ciao,
WolfgangE

[Diese Nachricht wurde von WolfgangE am 30. September 2003 editiert.]

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

---

danke danke...funktioniert ja...
war ein kleiner fehler mit groooosser wirkung!

------------------
.......good vibrations make the world go round 

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

---

Zitat:

---

Original erstellt von marvin101010:
... (cos 10 xyz) ...

---

war wohl das "COS" statt "CONS". Richtig?

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

---

neee...das war ein vertipper im forum...vieeeel schlimmer...
hat ein entget vor dem entlast gefehlt *schäm*

------------------
.......good vibrations make the world go round 

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