[求助]批量替换字的问题

wei209

我图里有百个"水泥"字,原大小为3.0,想把所有"水泥"大小改为6.0 其他字体大小不变!

鬼魔

find

wei209

find没有改大小的选项啊!

phoenixdjq

用filter(过滤)命令就可以

鬼魔

O4版

CTRL+A

FIND

查找字符串"水泥"

点全部选择

CTRL+1

wei209

我用的2000版本,没有那功能啊,麻烦了!

ZZXXQQ

2. (DEFUN C:TEST ()
3. (IF (SETQ SS (SSGET "X" '((0 . "TEXT") (1 . "水泥")))) (PROGN
4.   (SETQ I -1)
5.   (REPEAT (SSLENGTH SS)
6.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
7.   ENT (SUBST (CONS 40 6.0) (ASSOC 40 ENT) ENT))
8.    (ENTMOD ENT)
9.   )
10. ))
11. (PRINC)
12. )

复制代码

wei209

非常谢谢ZZXXQQ

再请教个小问题!

 

如图,我先输入一个起始值假如为10,那么我鼠标点下后拉一条虚线,凡于之相交的线的Z值依次相加1,为11 12 13......,请问这个功能怎么实现?

wei209

我想让水泥弄成个变量,这个怎么行不通啊!

(DEFUN C:TEST ()

  (setq kk(getstring t "\n hhh:"))
  (IF (SETQ SS (SSGET "X" '((0 . "TEXT") (1 . "kk")))) (PROGN
   (SETQ I -1)
   (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
   ENT (SUBST (CONS 40 6.0) (ASSOC 40 ENT) ENT))
    (ENTMOD ENT)
   )
  ))
  (PRINC)
)

ZZXXQQ

这样改：

3. (DEFUN  C:TEST ()
4.   (setq kk(getstring t "\n hhh:"))
5.   (IF  (SETQ SS (SSGET "X"    (LIST '(0 . "TEXT") (CONS 1 kk)))) (PROGN
6.    (SETQ I -1)
7.    (REPEAT (SSLENGTH SS)
8.     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
9.           ENT (SUBST (CONS 40 6.0) (ASSOC 40 ENT) ENT))
10.     (ENTMOD ENT)
11.    )
12.   ))
13.   (PRINC)
14. )

(DEFUN  C:TEST ()   (setq kk(getstring t "\n hhh:"))   (IF  (SETQ SS (SSGET "X"    (LIST '(0 . "TEXT") (CONS 1 kk)))) (PROGN    (SETQ I -1)    (REPEAT (SSLENGTH SS)     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))           ENT (SUBST (CONS 40 6.0) (ASSOC 40 ENT) ENT))     (ENTMOD ENT)    )   ))   (PRINC) )