(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)). (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)) thanks very good, but i want just column Shape take screenshot! Can you right code for that!?
Comments are closed.
|
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
March 2023
Categories |