Topic: There's got to be a better way

[JohnK]

Thats because recursion is alot easier to follow. I cant rember anything beiond `car' and `cdr'. Seriously! If I am forced to use anything beiond that, I use `nth'.

[SMadsen]

Code: [Select]

(setq lst nil)
(while (setq item (tblnext "LAYER" (not item)))
  (setq lst (cons (list (cdadr item) (cdar (cdddr item)) (cdadr (cdddr item))) lst)))

Rev = correction, forgot the first layer... one more time.... another change made... Hey.... I think I need the new lisp book by Mark soon!!!!!

... and when Adesk decides to include truecolor codes in the TBLxxx return values? No big deal, I know, but I prefer ASSOC over fixed positions
  

[CADaver]

ouch, my head hurts...
....what does an aneurysm feel like??   :doa:

[LE]

... and when Adesk decides to include truecolor codes in the TBLxxx return values? No big deal, I know, but I prefer ASSOC over fixed positions

yep it is just another way.... do you think they will do any improvement or addition to autolisp/visuallisp?.... according to Peter Funk from adesk lisp is just in maintenance mode... no plans to add any mayor additions.

 

[SMadsen]

do you think they will do any improvement or addition to autolisp/visuallisp?

No way they'll improve or add to it. Just being an old conservative fart here 

[Andrea]

not elegant....
but work...

Code: [Select]

(defun fortry (/ list1)
(foreach n (ai_table "layer" 0)
(setq list1
       (append list1 (list (list n
       (cdr (assoc 70 (entget (tblobjname "layer" n))))
       (cdr (assoc 290 (entget (tblobjname "layer" n))))
       (cdr (assoc 6 (entget (tblobjname "layer" n))))
       (cdr (assoc 62 (entget (tblobjname "layer" n))))
))))))