---

Hallo

Ich habe so eine Liste

(("249.0/31.4") ("79.4/31.4") ("90.2/31.4") ("238.2/31.4") ("169.6/31.4") ("158.8/31.4") ("249.0/31.4") ("79.4/31.4") ("90.2/31.4") ("238.2/31.4") ("169.6/34.8") ("158.8/34.8"))

was soll ich machen das ich  so ein Rückgabewehr bekomme:
2 x 249.0/31.4
2 x  79.4/31.4
2 x  90.2/31.4 usw.

DANKE!!

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

---

Hi,

sowas?

Code:

---

(progn
  (mapcar '(lambda (arg)
    (princ (strcat "2 x " arg))
    (princ "\n")
  )
  (mapcar 'car
  '(("249.0/31.4")
    ("79.4/31.4")
    ("90.2/31.4")
    ("238.2/31.4")
    ("169.6/31.4")
    ("158.8/31.4")
    ("249.0/31.4")
    ("79.4/31.4")
    ("90.2/31.4")
    ("238.2/31.4")
    ("169.6/34.8")
    ("158.8/34.8")
  )
  )
  )
  (princ)
)

---

Aber wozu braucht man das?

Gruß
CADchup

------------------
CADmaro.de

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

---

@CADchup:

Ich denke er sucht/will ein Tool das seine vorhandene Liste durchsucht und dann nachschaut, wieoft ein Listenelement vorkommt und dies dann entsprechend ausgibt...

------------------
Grüsse

Thomas

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

---

Also sowas:

(defun Countmembers(LISTE / RETURNLISTE)
(mapcar
  '(lambda(Z)
      (princ
        (strcat "\n" (itoa(car Z))" x" (vl-princ-to-string(cdr Z)))
      )
    ) 
    (mapcar
      '(lambda(x)
        (cons       
          (length(vl-remove-if-not '(lambda(Y)(equal Y X)) LISTE))
          X                     
        )
      )
      (foreach ELEMENT LISTE
        (if(not(member ELEMENT RETURNLISTE))
              (setq RETURNLISTE (cons ELEMENT RETURNLISTE))
            )
      )
    )
)
(princ)
)
       
(countmembers
  '(("249.0/31.4")
    ("79.4/31.4")
    ("90.2/31.4")
    ("238.2/31.4")
    ("169.6/31.4")
    ("158.8/31.4")
    ("249.0/31.4")
    ("79.4/31.4")
    ("90.2/31.4")
    ("238.2/31.4")
    ("169.6/34.8")
    ("158.8/34.8")
  )
)

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

---

:lach
Ich Dummerle...

------------------
CADmaro.de

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

---

Ich gerade dabei eine Legende für CNC Mitarbeiter zu basteln. Der will wissen wie oft muss er ein Teil fräsen.

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

---

Zitat:

---

Original erstellt von tunnelbauer:
@CADchup:

Ich denke er sucht/will ein Tool das seine vorhandene Liste durchsucht und dann nachschaut, wieoft ein Listenelement vorkommt und dies dann entsprechend ausgibt...

---

Genau das brauche ich!!!

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

---

Zitat:

---

Original erstellt von RoyCAD:
Genau das brauche ich!!!

---

und? Code mal angesehen?

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

---

so richtig nicht aber das ist meine Schuld, weil die Liste siecht so aus

(("249.0/31.4" <Objektname: 7edaa870> ) ("79.4/31.4" <Objektname: 7edaa8e0> ) ("90.2/31.4" <Objektname: 7edaa9b8> ) ("238.2/31.4" <Objektname: 7edaaa28> ) ("169.6/31.4" <Objektname: 7edaab00> ) ("158.8/31.4" <Objektname: 7edaab70> ) ("249.0/31.4" <Objektname: 7edaac88> ) ("79.4/31.4" <Objektname: 7edaacf8> ) ("90.2/31.4" <Objektname: 7edaadd0> ) ("238.2/31.4" <Objektname: 7edaae40> ) ("169.6/34.8" <Objektname: 7edaaf18> ) ("158.8/34.8" <Objektname: 7edaaf88> ))

und als Rückgabewert brauche ich z.B

( “2 x 249.0/31.4" <Objektname: 7edaa870> <Objektname: 7edaac88> )
( “2 x 79.4/31.4"  <Objektname: 7edaa8e0> <Objektname: 7edaacf8> )

usw.
Ich hoffe es ist machbar, weil mir gehen die Ideen aus. Ich probiere mit repeat die Listen zu knacken aber es funk nicht!!

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

---

Man muss davon ausgehen das die length von der Liste und die Werte z.b. "249.0/31.4" "79.4/31.4" usw. variabel sind.

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

---

.. na der obige Code liefert dir doch schon alles .. ich habs mal minimal modifiziert .. ob du das princ brauchst, oder die Objektnamen als Unterliste.. das fürfte ja nicht das Problem sein

(defun Countmembers(LISTE / RETURNLISTE)
(mapcar
  '(lambda(Z)
      (princ
        (strcat "\n" (itoa(car Z))" x" (vl-princ-to-string(cadr Z))(vl-princ-to-string(caddr Z)))
      )
    )   
    (mapcar
      '(lambda(x / SUB)
        (list       
          (length(setq SUB(vl-remove-if-not '(lambda(Y)(equal (car Y) X)) LISTE)))
          X
          (mapcar 'cadr SUB)
        )
      )
      (foreach ELEMENT LISTE
        (if(not(member (car ELEMENT) RETURNLISTE))
              (setq RETURNLISTE (cons (car ELEMENT) RETURNLISTE))
            )
      )
    )
)
(princ)
)

Zum Testen hab ich mal die objektnamen als String genommen :

(COUNTMEMBERS
'(("249.0/31.4" "<Objektname: 7edaa870>" )
    ("79.4/31.4" "<Objektname: 7edaa8e0>" )
    ("90.2/31.4" "<Objektname: 7edaa9b8>" )
    ("238.2/31.4" "<Objektname: 7edaaa28>" )
    ("169.6/31.4" "<Objektname: 7edaab00>" )
    ("158.8/31.4" "<Objektname: 7edaab70>" )
    ("249.0/31.4" "<Objektname: 7edaac88>" )
    ("79.4/31.4" "<Objektname: 7edaacf8>" )
    ("90.2/31.4" "<Objektname: 7edaadd0>" )
    ("238.2/31.4" "<Objektname: 7edaae40>" )
    ("169.6/34.8" "<Objektname: 7edaaf18>" )
    ("158.8/34.8" "<Objektname: 7edaaf88>" ))
)
liefert

1 x158.8/34.8(<Objektname: 7edaaf88> )
1 x169.6/34.8(<Objektname: 7edaaf18> )
1 x158.8/31.4(<Objektname: 7edaab70> )
1 x169.6/31.4(<Objektname: 7edaab00> )
2 x238.2/31.4(<Objektname: 7edaaa28> <Objektname: 7edaae40> )
2 x90.2/31.4(<Objektname: 7edaa9b8> <Objektname: 7edaadd0> )
2 x79.4/31.4(<Objektname: 7edaa8e0> <Objektname: 7edaacf8> )
2 x249.0/31.4(<Objektname: 7edaa870> <Objektname: 7edaac88> )

------------------
  - 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,
ich habe auch nochmal gebastelt, bei mir werden aber, im Gegensatz zu CADmium, nur die Strings ausgegeben:

Code:

---

(defun Countmembers  (LISTE / RETURNLISTE A)
  (mapcar '(lambda (A)
    (if (not (assoc (car A) RETURNLISTE))
      (setq RETURNLISTE (cons (cons (car A) 1) RETURNLISTE))
      (setq RETURNLISTE
      (subst
(cons
  (car A)
  (+ (cdr (assoc (car A) RETURNLISTE))
    1))
(assoc (car A) RETURNLISTE)
RETURNLISTE))))
  liste)
  (mapcar '(lambda (A) (strcat (itoa (cdr A)) "x " (car A)))
  RETURNLISTE))

---

Ausgabe:
("1x 158.8/34.8"
"1x 169.6/34.8"
"1x 158.8/31.4"
"1x 169.6/31.4"
"2x 238.2/31.4"
"2x 90.2/31.4"
"2x 79.4/31.4"
"2x 249.0/31.4")

Ein schönes Wochenende wünsche ich.

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

Jörn

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

---

alles Perfekt aber noch eine Frage wie bekomme ich die Objekname als String

Zum Testen hab ich mal die objektnamen als String genommen :

(COUNTMEMBERS
'(("249.0/31.4" "<Objektname: 7edaa870>" )
    ("79.4/31.4" "<Objektname: 7edaa8e0>" )
    ("90.2/31.4" "<Objektname: 7edaa9b8>" )
    ("238.2/31.4" "<Objektname: 7edaaa28>" )
    ("169.6/31.4" "<Objektname: 7edaab00>" )
    ("158.8/31.4" "<Objektname: 7edaab70>" )
    ("249.0/31.4" "<Objektname: 7edaac88>" )
    ("79.4/31.4" "<Objektname: 7edaacf8>" )
    ("90.2/31.4" "<Objektname: 7edaadd0>" )
    ("238.2/31.4" "<Objektname: 7edaae40>" )
    ("169.6/34.8" "<Objektname: 7edaaf18>" )
    ("158.8/34.8" "<Objektname: 7edaaf88>" ))
)
liefert

1 x158.8/34.8(<Objektname: 7edaaf88> )
1 x169.6/34.8(<Objektname: 7edaaf18> )
1 x158.8/31.4(<Objektname: 7edaab70> )
1 x169.6/31.4(<Objektname: 7edaab00> )
2 x238.2/31.4(<Objektname: 7edaaa28> <Objektname: 7edaae40> )
2 x90.2/31.4(<Objektname: 7edaa9b8> <Objektname: 7edaadd0> )
2 x79.4/31.4(<Objektname: 7edaa8e0> <Objektname: 7edaacf8> )
2 x249.0/31.4(<Objektname: 7edaa870> <Objektname: 7edaac88> )

[/B][/QUOTE]

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

---

Ich habe schon (vl-princ-to-string X)

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

---

Warum Funktioniert diese Funktion mit so eine Eingangswert
(COUNTMEMBERS '(
      ("249.0/61.0" <Objektname: 7e9cbda8> )

      ("166.0/60.0" <Objektname: 7e9cbef8> )
      ("166.0/60.0" <Objektname: 7e9cbf68> )
      ("83.0/60.0"  <Objektname: 7e738080> )
      ("249.0/60.0" <Objektname: 7e7380f0> )
      ("249.0/60.0" <Objektname: 7e7381c8> )
      ("83.0/60.0"  <Objektname: 7e738238> )
      ("166.0/60.0" <Objektname: 7e738310> )
      ("166.0/60.0" <Objektname: 7e738380> )
      ("83.0/60.0"  <Objektname: 7e738498> )
      ("249.0/60.0" <Objektname: 7e738508> )
      ("249.0/61.0" <Objektname: 7e7385e0> )
      ("83.0/61.0"  <Objektname: 7e738650> ))
      )

und mit dem schon nicht mehr???

(COUNTMEMBERS '(
      ("249.0/61.0" <Objektname: 7e9cbda8> )
      ("83.0/61.0"  <Objektname: 7e9cbe20> )
      ("166.0/60.0" <Objektname: 7e9cbef8> )
      ("166.0/60.0" <Objektname: 7e9cbf68> )
      ("83.0/60.0"  <Objektname: 7e738080> )
      ("249.0/60.0" <Objektname: 7e7380f0> )
      ("249.0/60.0" <Objektname: 7e7381c8> )
      ("83.0/60.0"  <Objektname: 7e738238> )
      ("166.0/60.0" <Objektname: 7e738310> )
      ("166.0/60.0" <Objektname: 7e738380> )
      ("83.0/60.0"  <Objektname: 7e738498> )
      ("249.0/60.0" <Objektname: 7e738508> )
      ("249.0/61.0" <Objektname: 7e7385e0> )
      ("83.0/61.0"  <Objektname: 7e738650> ))
      )
Sorry das ich noch einmal Frage aber das möchte ich schon verstehen

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

---

mal ohne mapcar zum leichter debuggen

(defun Countmembers(LISTE / RETURNLISTE R)
  (foreach ELEMENT LISTE
    (if(not(member (car ELEMENT) RETURNLISTE))
      (setq RETURNLISTE (cons (car ELEMENT) RETURNLISTE))
    )
  )
  (foreach ELEMENT RETURNLISTE
    (setq SUB (vl-remove-if-not '(lambda(Y)(equal (car Y) ELEMENT)) LISTE))
    (setq R (cons (list (length SUB) ELEMENT (mapcar 'cdr SUB)) R))
  )
)

die princ-ausgabe hab ich gleich weggelassen 

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