AutoCAD 2008 - Iterate through an entity list

[cgerhardt]

I want to make a list of the annotative scale list in ACAD2008.

if you type in the following on the command line:
(setq MyList(dictsearch(namedobjdict)"ACAD_SCALELIST"))

The following is displayed:
((-1 . <Entity name: 7efa1dd0>)
(0 . "DICTIONARY")
(5 . "3A")
(102 . "{ACAD_REACTORS")
(330 . <Entity name: 7efa1c60>)
(102 . "}")
(330 . <Entity name: 7efa1c60>)
(100 . "AcDbDictionary")
(280 . 0)
(281 . 1)
(3 . "A0")
(350 . <Entity name: 7efa1dd8>) (3 . "A1")
(350 . <Entity name: 7efa7038>) (3 . "A2")
(350 . <Entity name: 7efa7040>) (3 . "A3")
(350 . <Entity name: 7efa7048>) (3 . "A4")
(350 . <Entity name: 7efa7050>) (3 . "A5")
(350 . <Entity name: 7efa7058>) (3 . "A6")
(350. and so on....

I'm very rusty with AutoLisp and am wondering how I can iterate through the entities with assoc 350 contained in MyList? I want to output to a file all existing scales in the drawing.

Thanks.

[CADmium]

i can't test it in the moment, but ... try this

(and(setq MyList(dictsearch(namedobjdict)"ACAD_SCALELIST"))
    (setq Mylist(vl-remove-if-not'(lambda(x)(=(car X)350))MYlist))
    (mapcar
      '(lambda(x)
         (entget (cdr x))
       )  
      Mylist  
    )  
)