[分享]：文本刷子

lt_zzy

对不起，刚才发的时候少了两个，现在补上。

选择一个原广西，然后选择你所要修改的文本，这样所有你选择的文本将会与你第一次选择的文本的内容一样。

(defun c:thwb()
(setvar "cmdecho"0)
(command "undo" "group")
(princ"\n选择替换内容:")
(setq c1 (single_select '((0 . "TEXT")) T))
(if c1
(redraw c1 3)
)
(setq text1 (cdr (assoc 1 (entget c1))))
(setq number1 (entget c1))
(setq text1 (cons 1 text1))
(princ "\n请选择要替换的文本:")
(setq a (ssget '((0 . "TEXT"))))
(setq n (sslength a))
(setq number 0)
(repeat n
(setq a1 (ssname a number))
(setq a11 (entget a1))
(setq number1 a11)
(setq a11 (cdr (assoc 1 a11)))
(setq text11 (subst text1 (assoc 1 number1) number1))
(entmod text11)
(setq number (1+ number))
)
(redraw c1 4)
(command "undo" "end")
(setvar"cmdecho"1)
(princ)
)

(defun single_select ( flt flag / a p1 p2 ss ss2 flag2)

(while (not flag2)
(setvar "highlight" 0)
(if (entnext)
    (progn
     (command "_.select" (entnext) "")
     (command "_.undo" "1");clear any selection sets
    );progn then
);if
(setvar "highlight" 1)
(command "_.select" "_si")
(setvar "cmdecho" 1)
(command pause)

(setq ss2 (ssget "p")
       p1 (getvar "lastpoint")
       p1 (trans p1 1 (getvar "viewdir"))
        a (* (getvar "pickbox") (pixel_unit))
       p2 (list (- (car p1) a) (- (cadr p1) a) 0.0)
       p1 (list (+ (car p1) a) (+ (cadr p1) a) 0.0)
       p1 (trans p1 (getvar "viewdir") 1)   
       p2 (trans p2 (getvar "viewdir") 1)   
);setq
(if (and ss2
         (or (setq ss (ssget "p" flt))
             (setq ss (ssget "c" p1 p2 flt))   
         );or
    );and
    (progn
     (setq ss (ssname ss 0))
     (if flag
         (setq flag2 T)
         (progn
          (if (b_layer_locked (cdr (assoc 8 (entget ss))))
              (progn
               (setq flag2 nil)
               (princ "\nThat object is on a locked layer!")
              );progn
              (setq flag2 T);else got something and its on an UN-locked layer
          );if
         );progn else locked layer selection is not allowed
     );if
    );progn
    (progn
     (if ss2
         (princ "\nInvalid selection.")
         (setq flag2 T);they just exited with enter
     );if
    );progn
);if
(setvar "cmdecho" 0)
);while
ss
);defun single_select
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;pixel_unit
;returns the size of a single pixel in drawing units.
;value depends on current zoom factor.
;
;pixunit/viewsize = one pixel/yscreensize
;
;pixunit=viewsize/yscreensize
;
(defun pixel_unit ( / x y x1 y1)
(setq  y (getvar "viewsize")
       x1 (car (getvar "screensize"))
       y1 (cadr (getvar "screensize"))
        x (* y (/ x1 y1))
);setq
(max (abs (/ y y1))
      (abs (/ x x1))
);max
);defun pixel_unit