Leaderboard

mine isn't (wasn't haha) so sophisticated as yours Grrr (defun t3 ( ) (setq lst (list (list "SETOUT_POINT_NO" "1") (list "SETOUT_POINT_NO" "2") (list "BLK01" "A" "B" "C") (list "BLK2" "D1" "C1" "B1" "A1") (list "BLK2" "D2" "C222" "B2" "A2") (list "BLK2" "e1" "e5" "f1111" "A1"))) (setq max-len (apply 'max (mapcar 'length lst))) (setq len-lst (mapcar '(lambda (x) (mapcar 'strlen x)) lst)) (setq new-lst (mapcar '(lambda (x) (repeat (- max-len (length x))(setq x (append x '(0)))) x) len-lst)) (mapcar ''((x)(apply 'max x)) (apply 'mapcar (cons 'list new-lst))) ) awel , got bigger apps to slay anyway , big server migration on the way , all drawings with Xrefs have to be modified. But this time , I make sure all paths are removed. Wasn't possible before because of outdated viewer on site but now I should be able to use projectname variable etc... thanx for the programming lesson Grrr Mac , nah , Mac Grrr sounds better...

Thanks for reply wblock is one of those things that is a pain command to do easily. I tried this (setq ss (ssget "_X" '((0 . "POLYLINE") (-4 . "&=") (70 . 8)))) (setq x 0) (repeat (sslength ss) (command "_.-wblock" (strcat (getvar 'dwgprefix) (itoa x) ".dwg") "" (list 0 0) (ssname ss x) "" ) (setq x (+ x 1)) )