(defun c:test( / n nl nlst num ss) (setq ss (ssget '((0 . "*text")))) (foreach n (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) (setq nlst (entget n) nl (cdr (assoc 1 nlst)) num (- (atof nl) 2.5)) (setq nlst (subst (cons 1 (rtos num 2 2)) (assoc 1 nlst) nlst )) (entmod nlst) ) ) 天正字体无非就是 (0 . "TCH_TEXT") 其它的与cad的text一样的. |