有些属性块带文字，在清理文字样式的时候就碰到了这难啃的骨头，有没有办法能找出这些属性块文字，替换成另外一种样式，希望能做到：
1，文字样式由一替换到二
2，颜色不变
3，高度宽度长宽比都不变
谢谢了！………网友答: 支持一下，谢谢分享网友答: 收藏，感谢分享网友答: 沙发自己做了…………网友答: 板凳也自己做了………网友答: …………………………………！…网友答:
看看可以
网友答:
看看可以
网友答:
谢谢了，好人啦！…………网友答: 是不是要到100积分 才能下载啊网友答: 每天登陆，多回复网友答: 支持一下，谢谢分享
1，文字样式由一替换到二
2，颜色不变
3，高度宽度长宽比都不变
谢谢了！………网友答: 支持一下，谢谢分享网友答: 收藏，感谢分享网友答: 沙发自己做了…………网友答: 板凳也自己做了………网友答: …………………………………！…网友答:
- (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 发表于 2012-5-5 22:32
看看可以
谢谢了，好人啦！…………网友答: 是不是要到100积分 才能下载啊网友答: 每天登陆，多回复网友答: 支持一下，谢谢分享