Just heard, its 2:2. Not watching, but could be interesting if only + points we got from this WC was beating the future champion. But congrats anyway, even a final is great succes.
Back to the topic.
You should get use to localizing all sub-functions, even the Lee's ones, if you put those inside your routine.
You also didn't turn off the OSMODE yet.
The other things you can sure keep as you already have.
(setq snum (cond ((LM:vl-getattributevalue obj "SeitenNr"))(snum)) Sort, how? and then?
Well, personally don't like very much that you basically ignore a block name and sort this just by an attribute name.
Sorting by block name probably get the code more complicated and it might be useless it this case, but it may open you a lot of possibilities. So I've written you couple of lines just to give you some simple examples of taking advantige from working with lists. Useful, if not for this code, then just for the learning purpose.
(defun :BlocksByNames (ss)
;; return list of pairs '(blk-name . obj)
(mapcar '(lambda (x / obj)
(cons (if (vlax-property-available-p (setq obj (vlax-ename->vla-object x)) 'EffectiveName)
(vla-get-EffectiveName obj)
(vla-get-Name obj))
obj))
(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
;; turn ss into lst
(setq lst (:BlocksByNames (ssget '((0 . "INSERT")))))
;; then you can sort them by names
(foreach itm lst
(cond ((= (car itm) "$el-lsnr")
(...))
(wcmatch (= (car itm) "$el-lsnr,some-other-name")
(...))
;; or test if there is some at ss
(if (assoc "$el-lsnr" lst)
...)
;; or make a list of blocks of particular name
(setq lst2 (vl-remove-if-not '(lambda (x) (= (car x) "$el-pos")) lst))
;; or count them
(length lst2)
