---

Hi!

Ich komme hier irgendwie nicht weiter, ich möchte Flächen aus Listen entsprechen ihrer Layerzuordnung addieren

Code:

---

(setq layListe (("518.9" "M-BEF-BYGGNAD") ("663.7" "M-7HUS") ("663.7" "M-7HUS") ("518.9" "M-BEF-FV") ("518.9" "M-BEF-FV")) )

---

Code:

---

(while (/= layListe nil)
        (setq sum 0)
(foreach ar layListe
  (if (= (last ar) (last (car layListe)))
    (setq sum (+ (distof (car ar)) sum))
    (princ " ")
    )
  )
(princ (strcat "\n Layer: " (last (car layListe)) ": " (rtos sum) ))
(setq layListe (cdr layListe))
)

---

Am Textfenster wird mir das ausgegeben

Code:

---

Layer: M-BEF-BYGGNAD: 518.9
Layer: M-7HUS: 1327.4
Layer: M-7HUS: 663.7
Layer: M-BEF-FV: 1037.8
Layer: M-BEF-FV: 518.9

---

Ich brauche aber nur den Summenwert. Wo liegt der Hacken hier?

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

http://cadplayerlounge.blogspot.se

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

---

Zitat:

---

Ich komme hier irgendwie nicht weiter

---

Egal welchen Code du auch postest, es bleibt dabei: gehe die Schritte einmal selbst durch und schon hast du das Problem gefunden,
es geht ja nie(selten?) um irgendwelche bös versteckten Gimmiks sondern ganz einfache Abfolgen.

Code:

---

(while (/= layListe nil)
  (setq sum 0)
  (foreach ar layListe
    ;TESTeintrag - den man sich mit der VLide ersparen könnte weil man dort debuggen kann
    (princ(strcat "\n\nLayerliste= " (vl-princ-to-string Layliste) " \nar="(vl-princ-to-string ar) "  -  (car Layerliste)=" (vl-princ-to-string (car Layliste)) "\n"))
    ;------------------------------------------------------------------------------------
    (if (= (last ar) (last (car layListe)))
        (setq sum (+ (distof (car ar)) sum))
        (princ " ")
    )
  )
(princ (strcat "\n Layer: " (last (car layListe)) ": " (rtos sum) ))
  (setq layListe (cdr layListe))
)
)

---

Zudem gibt es Hacken beim Schuster, Harken in der Gartenabteilung und Haken unter Umständen im CADprogramm.
Und JA, die Antworten waren vor Monaten und Jahren schon hilfreicher, das geschieht manches Mal durchaus bewußt

EDIT: Teste mal mit dieser Liste:
(setq layListe '(("400" "M-BEF-FV") ("300" "M-BEF-FV") ("200" "M-BEF-FV") ("100" "M-BEF-FV")))

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

[Diese Nachricht wurde von cadffm am 07. Nov. 2013 editiert.]

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

---

Danke Sebastian, habe es jetzt wie folgt gelöst - weiss nicht ob du das meintest - aber es auch manchmal die Ungeduld, die mitspielt bis etwas richtig funktioniert

Code:

---

(setq layListe '(("400" "M-BEF-FV") ("300" "M-BEF-FV") ("200" "M-BEF-TEST") ("100" "M-BEF-TEST")))

(repeat
  (length
    (setq layerName (REMOVEDUPLICATES(mapcar 'cadr layListe)))
    )
  (setq sum 0)
  (foreach ar layListe
    (if (= (last ar) (car layerName))
      (setq sum (+ (distof (car ar)) sum))
      )
    )
  (princ (strcat "\n Layer: " (car layerName) ": " (rtos sum) ))
  (setq layerName (cdr layerName))
  (princ)
  )

---

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

http://cadplayerlounge.blogspot.se

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

---

Zitat:

---

Original erstellt von cadplayer:weiss nicht ob du das meintest

---

Ich bin auf keine Problemlösung eingegangen, nur darauf wie du dein Problem erst mal feststellen sollst.
Erst wenn ein Problem erkannt ist kann man es auch zielgerichtet lösen.

Welcher Weg als Lösung genutzt wird ist zunächst zweitrangig so lang es ordentlich funktioniert.

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

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

---

Hallo Dirk,
ganz werde ich aus Deinem Code nicht schlau (z.B. fehlt Definition von REMOVEDUPLICATES)

Ich mache mal eine Vorschlag (wenn ich Deine Aufgabestellung überhaupt richtig verstanden habe: => pro Layername die Flächensummen)

Code:

---

(defun c:LaySum  (/ layList SumList)
  (setq layList
        '(("400" "M-BEF-FV")
          ("300" "M-BEF-FV")
          ("200" "M-BEF-TEST")
          ("100" "M-BEF-TEST")))
  (mapcar '(lambda (A)
            (if (not (assoc (cadr A) SumList))
              (setq SumList
                      (cons
                        (list
                          (cadr A)
                          (apply
                            '+
                            (mapcar
                              'atof
                              (mapcar 'car
                                (vl-remove-if
                                  '(lambda (B)
                                    (/= (cadr A) (cadr B)))
                                  layList)))))
                        SumList))))
    layList)

  (alert
    (apply
      'strcat
      (mapcar
        '(lambda (A) (strcat "\n" (car A) ": " (rtos (cadr A) 2 1)))
        (vl-sort SumList '(lambda (e1 e2) (< (car e1) (car e2))))))))
;|«Visual LISP© Format Options»
(72 2 4 0 nil "Ende von " 80 6 0 0 1 nil nil nil T)
;*** KEINEN Text unterhalb des Kommentars hinzufügen! ***|;

---

Wie auch immer, vielleicht kannst Du es gebrauchen.

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

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

Kordinaten einlesen Youtube

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

---

Hi Jörn!
Danke für deine Mühe, ich schaue es mir montags früh mal an. Die Funktion removeDuplicates habe ich hier nicht reingestellt. Sie macht nichts anderes als, geht die Layerliste mit ("Flächenwert" "Layer") durch und gibt nur die "einmal" erkannten Layer zurück. Diese Liste benötige ich nur, um dann mit foreach nach den entspr. Layer und ZWert rauszusuchen.
Dein code sieht ganz interessanz aus und gibt mir Lernstoff - Danke dafür.

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

http://cadplayerlounge.blogspot.se

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