Take Screenshot select region ?

[rlx]

oh very well then, pic size optimized

(defun c:t2 ( / ss i f e l) (vl-load-com)
  (if (setq f (getvar 'dwgprefix) ss (ssget "x" '((0 . "TEXT")))) (repeat (setq i (sslength ss))
    (if (wcmatch (cdr (assoc 1 (entget (setq e (ssname ss (setq i (1- i))))))) "S#,S##") (setq l (cons e l)))))
  (if l
    (progn
      (princ "\nWorking.....")
      (command "._undo" "_mark")
      (mapcar '(lambda (x y)(vl-catch-all-apply 'setvar (list x y))) (list 'filedia 'cmdecho 'expert) '(0 0 2))
      (vl-catch-all-apply 'vl-cmdf '("._tilemode" 0 "._erase" "_all" """._mview" "0,0" "2.2,1.5" "._zoom" "_e" "._mspace"))
      (mapcar '(lambda (x / p s) (setq p (cdr (assoc 11 (entget x))) s (cdr (assoc 1 (entget x)))) (vl-catch-all-apply 'vl-cmdf
    (list "._zoom" "c" (mapcar '+ p '(3 0)) 1.5 "_jpgout" (strcat f s) "w" (mapcar '+ p '(1.9 -0.75)) (mapcar '+ p '(4.1 0.75)) ""))) l)
      (mapcar '(lambda (x y)(vl-catch-all-apply 'setvar (list x y))) (list 'filedia 'cmdecho 'expert) '(1 1 0))
      (vl-catch-all-apply 'vl-cmdf '("._pspace" "._undo" "_back"))
    )
  )
  (princ "\nDone")
  (princ)
)

[termal007]

very very thanks