Leaderboard

(defun c:t1 ( / ss i fol e lst ip p1 p2 txt) (if (setq ss (ssget "x" '((0 . "TEXT")))) (repeat (setq i (sslength ss)) (if (wcmatch (cdr (assoc 1 (entget (setq e (ssname ss (setq i (1- i))))))) "@#,@##,@###") (setq lst (cons e lst))))) (if lst (progn (princ "\nWorking.....") (setvar 'filedia 0) (setq fol (getvar 'dwgprefix)) (foreach e lst (setq ip (cdr (assoc 11 (entget e))) txt (cdr (assoc 1 (entget e))) p1 (list (+ (car ip) -0.75) (+ (cadr ip) 0.75)) p2 (list (+ (car ip) 15.22) (+ (cadr ip) -0.75))) (vl-cmdf "._zoom" "w" p1 p2 "jpgout" (strcat fol txt) "w" p1 p2 "") ) ) ) (setvar 'filedia 1) (princ) )