tm20038175 发表于 2012-5-5 11:44:22

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

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

LIULISHENG 发表于 2021-6-7 11:28:39

支持一下，谢谢分享

tm20038175 发表于 2012-5-5 13:47:26

沙发自己做了…………

tm20038175 发表于 2012-5-5 19:10:26

板凳也自己做了………

tm20038175 发表于 2012-5-5 22:23:24

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

wwwbxd 发表于 2012-5-5 22:31:32

(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:43

(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 发表于 2012-5-6 08:59:44

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

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

随风的pp 发表于 2013-1-16 11:50:41

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

tm20038175 发表于 2013-1-16 14:48:08

每天登陆，多回复

adc 发表于 2013-1-16 22:19:27

支持一下，谢谢分享
页: [1] 2
查看完整版本: 如何替换属性块文字样式呀？