(repeat (setq i (sslength [b][color=blue](setq ss (cadr ss))[/color][/b])) (setq lst (cons (ssname ss (setq i (1- i))) lst)) )
And you can easily achieved this by using a lot less filter for DXF 1 [me thinks/ less codes that is]. but then again, I'm not sure unless we see what are the "other" conditions.