---

Hallo,
Ich habe eine Liste mit vla-objects, auf welche ich vla-get-count (count property) anwenden kann. (All Collections, Block, Dictionary, Group, Materials, SelectionSet, SectionManager)
Eigentlich suche ich das Objekt mit den wenigsten bzw. meisten Datenelementen (items) bei der geringsten Laufzeit.

Beispiel Blöcke:
Blockliste erstellen
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun blockliste (/ b>list)
  (vlax-for b (vla-get-blocks
                (vla-get-ActiveDocument (vlax-get-acad-object))
              )
    (if (= (vla-get-islayout b) :vlax-false)
      (setq b>list (cons b b>list))
    )
  )
  b>list
)
;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Getestet:
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun test1 (lst / result)
  (setq result
        (car (vl-sort
            lst
            '(lambda (x1 x2)
                (> (vla-get-count x1) (vla-get-count x2))
              )
        )
      )
  )
  result
)
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun test2 (lst / result leng merker) ;;bis dato immer am schnellsten
  (foreach elem lst
    (setq leng (vla-get-count elem))
    (if (< merker leng)
      (setq merker leng
    result elem
      )
    )
  )
  result
)
;;;;;;;;;;;;;;;;;;;;;;;;;;
Geht das noch schneller für max(min)(brauche keine geordnete Liste) oder hat jemand ne Erklärung warum die nicht ganz so „schöne“ Version Test2 am schnellsten ist.

Mfg Heiko

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

---

jetzt auch nicht getestet, aber eine weitere Möglichkeit:

Code:

---

(apply 'max (mapcar 'vla-get-count lst))
(apply 'min (mapcar 'vla-get-count lst))

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Henning,
erstmal Danke für die Antwort aber
(apply 'max (mapcar 'vla-get-count lst))
(apply 'min (mapcar 'vla-get-count lst))
liefert mir nur den min/max Wert, ich suche das zugehörige Objekt.

mfg heiko

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

---

Dann vielleicht so:

Code:

---

(car (vl-sort lst '(lambda (x y) (> (vla-get-count x) (vla-get-count y)))))

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hi Henning,
ja das hat ich auch schon, siehe test1, ist aber nicht ganz so schnell wie test2. (zumindest was ich so getestet habe   )
Aber dennoch Danke für's mitgrübeln.
mfg heiko

[Diese Nachricht wurde von Dorfy am 10. Jul. 2009 editiert.]

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

---

   
muss wohl doch erst man 'nen Kaffee trinken...

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

So, Kaffee getrunken....
Was ist mit

Code:

---

(nth (vl-position (apply 'max (setq lsd (mapcar 'vla-get-count lst))) lsd) lst)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Henning,
sieht sehr schön aus und ist genauso schnell wie test2!
(gefällt mir aber um Längen besser als test2)
Danke.

mfg heiko

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