如何替换属性块文字样式呀？

tm20038175

有些属性块带文字，在清理文字样式的时候就碰到了这难啃的骨头，有没有办法能找出这些属性块文字，替换成另外一种样式，希望能做到：
1，文字样式由一替换到二
2，颜色不变
3，高度宽度长宽比都不变
谢谢了！………

LIULISHENG

支持一下，谢谢分享

tm20038175

沙发自己做了…………

tm20038175

板凳也自己做了………

tm20038175

…………………………………！…

wwwbxd

1. (defun C:ys (/ ent ent1)  (command "undo" "be")  (setvar "cmdecho" 0)  (setq str (getstring "\n输入新的样式名:"))  (if (setq SS (ssget "X" '((0 . "INSERT") (66 . 1))))    (progn      (setq I -1)      (repeat (sslength SS)        (setq ENT  (entget (ssname SS (setq I (1+ I))))              ENT1 ENT        )        (while          (=            (cdr              (assoc 0                     (setq ENT1 (entget (entnext (cdr (assoc -1 ENT1)))))              )            )            "ATTRIB"          )          (setq ENT1 (subst (cons 7 str) (assoc 7 ENT1) ENT1))           (entmod ENT1)               (entmod ENT)        )      )    )  )  (command "undo" "e")  (prin1))

(defun C:ys (/ ent ent1)  (command "undo" "be")  (setvar "cmdecho" 0)  (setq str (getstring "\n输入新的样式名:"))  (if (setq SS (ssget "X" '((0 . "INSERT") (66 . 1))))    (progn      (setq I -1)      (repeat (sslength SS)        (setq ENT  (entget (ssname SS (setq I (1+ I))))              ENT1 ENT        )        (while          (=            (cdr              (assoc 0                     (setq ENT1 (entget (entnext (cdr (assoc -1 ENT1)))))              )            )            "ATTRIB"          )          (setq ENT1 (subst (cons 7 str) (assoc 7 ENT1) ENT1))           (entmod ENT1)               (entmod ENT)        )      )    )  )  (command "undo" "e")  (prin1))

看看可以

wwwbxd

1. (defun C:ys (/ ent ent1)  (command "undo" "be")  (setvar "cmdecho" 0)  (setq str (getstring "\n输入新的样式名:"))  (if (setq SS (ssget "X" '((0 . "INSERT") (66 . 1))))    (progn      (setq I -1)      (repeat (sslength SS)        (setq ENT  (entget (ssname SS (setq I (1+ I))))              ENT1 ENT        )        (while          (=            (cdr              (assoc 0                     (setq ENT1 (entget (entnext (cdr (assoc -1 ENT1)))))              )            )            "ATTRIB"          )          (setq ENT1 (subst (cons 7 str) (assoc 7 ENT1) ENT1))           (entmod ENT1)               (entmod ENT)        )      )    )  )  (command "undo" "e")  (prin1))

(defun C:ys (/ ent ent1)  (command "undo" "be")  (setvar "cmdecho" 0)  (setq str (getstring "\n输入新的样式名:"))  (if (setq SS (ssget "X" '((0 . "INSERT") (66 . 1))))    (progn      (setq I -1)      (repeat (sslength SS)        (setq ENT  (entget (ssname SS (setq I (1+ I))))              ENT1 ENT        )        (while          (=            (cdr              (assoc 0                     (setq ENT1 (entget (entnext (cdr (assoc -1 ENT1)))))              )            )            "ATTRIB"          )          (setq ENT1 (subst (cons 7 str) (assoc 7 ENT1) ENT1))           (entmod ENT1)               (entmod ENT)        )      )    )  )  (command "undo" "e")  (prin1))

看看可以

tm20038175

wwwbxd 发表于 2012-5-5 22:32
看看可以

谢谢了，好人啦！…………

随风的pp

是不是要到100积分 才能下载啊

tm20038175

每天登陆，多回复

adc

支持一下，谢谢分享