[求助]各位老师: cad 中如何按图层进行一次性替换所有字体高度?

guod

各位老师:


cad 中如何按图层进行一次性替换所有字体高度。

xqyhome

( DEFUN C:ZG (/ H SS ENMING ED H I LEN ) ;改变字高
( PRINC "请选择要修改字体高度的文字实体集:")
( SETQ SS (SSGET))
( SETQ H (GETREAL "字高="))
( SETQ LEN (SSLENGTH SS))
( SETQ I 0)
( WHILE (< I LEN)
( SETQ ENMING (SSNAME SS I))
( SETQ ED (ENTGET ENMING))
;-----------------------------------------------
( IF (EQUAL (CONS 0 "TEXT") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 40 H) (ASSOC 40 ED) ED)
)
( ENTMOD ED)
)
)
;--------------------------------------------
( IF (EQUAL (CONS 0 "MTEXT") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 40 H) (ASSOC 40 ED) ED)
)
( ENTMOD ED)
)
)
;--------------------------------------------
( SETQ I (1+ I))
)
)
;SSGET根据选定对象创建选择集
;GETREAL暂停以让用户输入一个实数并返回该实数
;SSLENGTH求出一个选择集中的对象（图元）数目，并将其作为一个整数返回
;SSNAME返回选择集中由序号指定的那个对象（图元）的图元名
;ENTGET获得对象（图元）的定义数据
;EQUAL确定两个表达式的值是否相等
ROGN顺序地对每一个表达式进行求值，并返回最后那个表达式的值
;CONS向表的头部添加一个元素，或构造一个点对
;ENTMOD修改对象（图元）的定义数据
;ASSOC从关联表ED中搜索一个元素40，如果找到则返回该关联表条目ED
;SUBST在表中搜索某旧项，并将表中出现的每一个旧项用新项代替，然后返回修改后所 得的表 ( DEFUN C:CX (/ ES) ;查询实体库
( SETQ ES NIL)
( WHILE (= ES NIL)
( SETQ ES (ENTSEL "选择要显示的实体:\n"))
;ENTSEL提示用户通过指定一个点来选择单个对象（图元）
)
( TEXTSCR)
;TEXTSCR切换至文本屏幕（相当于 AutoCAD Flip Screen 功能键）
( ENTGET (CAR ES))
;ENTGET获得对象（图元）的定义数据
;CAR返回表的第一个元素
) ;lqh0601@jy-bearing.com

lw528

用“格式刷”属性统一！

xyzclg

打开加工中心，交叉窗口选择全部的图型，再选择加工中心中的下拉菜单，选择“文字”，这时CAD会将全部的文字选出，这时就可以一次性更改全体字高了！

guod

xyzclg :cad2000中 或 cad2005中的        "加工中心" 在哪个菜单里?


多谢各位老师!

席恩蒂

他说的“加工中心”大概是“特性”工具栏。

西西420

改那个图层就只保留哪个图层，把其他的图层关掉。改完后再打开，不就得了？！

Joseflin

1.指令QSELECT→选layer


2.指令PROPERTIES→变更Text height