---

Hallo,

GC 41 soll auf den Wert 0.75 gesetzt werden.
In der Eingabezeile wird dieser dann auch angezeigt.
Graphisch ändert sich jedoch leider nichts.
Und der Ausgangswert wird in der Datenbank auch nicht verändert.
Bitte um Abhilfe.

(defun ampel (/ lwahl)
(setq lwahl (entget (car(entsel "Bitte Polylinie wählen:"))))
  (setq lwahl
      (subst '(41 . 0.75)
      (assoc 41 lwahl)
      lwahl
      )
    )
(entmod lwahl)
  )

LG

Martin

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

---

und so ?
(defun ampel (/ lwahl)
(setq lwahl (entget (car(entsel "Bitte Polylinie wählen:"))))
  (setq lwahl
      (subst '(43 . 0.75)
      (assoc 43 lwahl)
      lwahl
      )
    )
 
(entmod lwahl)

  )

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

---

Leider nicht.

43 setzt die gesamte Linie auf Breite 0.75
Das Anfangssegment soll auf 0.00 gesetzt bleiben.
Nur das Endsegment soll von 0.00 auf 0.75 verändert werden.

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

---

da war aus dem Code aber nicht ersichtlich

zu subst aus F1
Return Values: A list, with newitem replacing all occurrences of olditem

bsp (subst "A" "B" '("B" "C" "B"))--->("A" "C" "A")

(assoc 41 lwahl) -> liefert die segmentbreite des 1.Segments
(subst '(41 . 075)(assoc 41 lwahl)lwahl)  -> ändert nun alle Segmentbreiten, die mit der des ersten Sements übereinstimmen auf 0,75

d.h. so funktioniert das also nicht, wie du dir das vorgestellt hast ...

du bist dran  

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

---

Ich liefere nach!

Ist die globale Breite  GC43 nicht gesetzt,
funktioniert es wie ich es mir vorgestellt habe.
Ich muss also nur GC43 entfernen, wenn man weiß wie das geht.
Ich weiß es noch nicht. Dazu nen Tipp und ich bin wieder glücklich.

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

---

Vielleicht so

Code:

---

(vl-remove-if-not '(lambda (x) (/= (car X) 43)) lwahl)

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Danke sehr Wolfgang,

ich hab's erfolgreich ausprobiert.
Da ich nur LISP-Handbücher wälze,
kann ich den VL-Befehl zwar nachvollziehen,
so ganz verstanden hab ich ihn noch nicht.
Gibt's Entsprechendes auch in LISP-Form?

Schönes WE.

Martin

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

---

Hallo Martin,
VL ist lisp in der hilfe sind die entsprechenden Befehle auch aufgeführt. (F1)
Aber vielleicht kommst du damit eher klar.

Code:

---

(foreach teil lwahl
  (if (/= 43 (car teil))
    (setq Elem (cons teil Elem))
  )
)
(setq Elem (reverse Elem))

---

Du musst dann wohl mit Elem weiterarbeiten anstatt mit lwahl.
Aber vom Grundsatz her ist das dass gleiche in grün   

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Hallo Martin,
wenn Du in folgender Zeile das Apostroph gegen FUNCTION auswechselst, dann kannst Du mit dem VLIDE-Debugger (Haltepunkt setzen) Schritt für Schritt durch die Funktion gehen und die Werte überwachen, das ist sicherlich auch schon aufschlussreich für die Analyse.

(vl-remove-if-not (function(lambda (x) (/= (car X) 43))) lwahl)

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

Jörn
http://www.bosse-engineering.com

Stammtisch in Wolfsburg

http://ww3.cad.de/foren/ubb/Forum491/HTML/000179.shtml

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