---

hallo zusammen!

mit vba kann ich die Scalelist/Massstabsliste abfragen. kann man das auch mit lisp? und wie? Ich möchte "nur" wissen, wie viele Einträge vorhanden sind.

Danke

Steppe

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

---

guckst du nach, wieviele Einträge in diesem Dict sind :
(dictsearch (namedobjdict) "ACAD_SCALELIST")

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

---

...klingt toll....
aber mit der liste kann ich als "nicht" lispler nur sehr wenig anfangen... wo steht also die anzahl???

DANKE

steppe

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

---

Ach so ... na dann mal ungestetet hier reingekloppt :

(if(and(setq DICT (dictsearch (namedobjdict) "ACAD_SCALELIST"))
      (setq LISTE(vl-remove-if 'null
                  (mapcar
                    '(lambda(X / Y Z)
                        (if(and(=(car X)350)
                              (=(type(setq Y(cdr X)))'ENAME)
                              (setq Z(entget Y))
                              (setq Z(cdr(assoc 300 Z)))
                          )
                          (list Z Y)
                        )
                      ) 
                      DICT
                    ) 
                  )
        )
        (setq Anzahl (length LISTE))
    )
  (princ (strcat "\n" (itoa ANZAHL) " Maßstäbe vorhanden"))
)

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

---

SUPER - DANKE - GANZ LIEB

steppe 

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