[求助]各位老师: cad 中如何按图层进行一次性替换所有字体高度?
各位老师:cad 中如何按图层进行一次性替换所有字体高度。 ( DEFUN C:ZG (/ H SS ENMING ED H I LEN ) ;改变字高<BR> ( PRINC "请选择要修改字体高度的文字实体集:")<BR> ( SETQ SS (SSGET))<BR> ( SETQ H (GETREAL "字高="))<BR> ( SETQ LEN (SSLENGTH SS))<BR> ( SETQ I 0)<BR> ( WHILE (< I LEN) <BR> ( SETQ ENMING (SSNAME SS I))<BR> ( SETQ ED (ENTGET ENMING))<BR>;-----------------------------------------------<BR> ( IF (EQUAL (CONS 0 "TEXT") (ASSOC 0 ED)) <BR> (PROGN <BR> ( SETQ ED<BR> ( SUBST (CONS 40 H) (ASSOC 40 ED) ED)<BR> )<BR> ( ENTMOD ED)<BR> )<BR> )<BR>;--------------------------------------------<BR> ( IF (EQUAL (CONS 0 "MTEXT") (ASSOC 0 ED)) <BR> (PROGN <BR> ( SETQ ED<BR> ( SUBST (CONS 40 H) (ASSOC 40 ED) ED)<BR> )<BR> ( ENTMOD ED)<BR> )<BR> )<BR>;--------------------------------------------<BR> ( SETQ I (1+ I))<BR> ) <BR>)<BR>;SSGET根据选定对象创建选择集<BR>;GETREAL暂停以让用户输入一个实数并返回该实数<BR>;SSLENGTH求出一个选择集中的对象（图元）数目，并将其作为一个整数返回<BR>;SSNAME返回选择集中由序号指定的那个对象（图元）的图元名<BR>;ENTGET获得对象（图元）的定义数据<BR>;EQUAL确定两个表达式的值是否相等<BR>;PROGN顺序地对每一个表达式进行求值，并返回最后那个表达式的值<BR>;CONS向表的头部添加一个元素，或构造一个点对<BR>;ENTMOD修改对象（图元）的定义数据<BR>;ASSOC从关联表ED中搜索一个元素40，如果找到则返回该关联表条目ED<BR>;SUBST在表中搜索某旧项，并将表中出现的每一个旧项用新项代替，然后返回修改后所 得的表
( DEFUN C:CX (/ ES) ;查询实体库<BR> ( SETQ ES NIL)<BR> ( WHILE (= ES NIL)<BR> ( SETQ ES (ENTSEL "选择要显示的实体:\n"))<BR> ;ENTSEL提示用户通过指定一个点来选择单个对象（图元）<BR> )<BR> ( TEXTSCR)<BR> ;TEXTSCR切换至文本屏幕（相当于 AutoCAD Flip Screen 功能键）<BR> ( ENTGET (CAR ES)) <BR> ;ENTGET获得对象（图元）的定义数据<BR> ;CAR返回表的第一个元素<BR>)
;lqh0601@jy-bearing.com 用“格式刷”属性统一！ 打开加工中心，交叉窗口选择全部的图型，再选择加工中心中的下拉菜单，选择“文字”，这时CAD会将全部的文字选出，这时就可以一次性更改全体字高了！ xyzclg :cad2000中 或 cad2005中的 "加工中心" 在哪个菜单里?
多谢各位老师! 他说的“加工中心”大概是“特性”工具栏。 改那个图层就只保留哪个图层，把其他的图层关掉。改完后再打开，不就得了？！ 1.指令QSELECT→选layer
2.指令PROPERTIES→变更Text height
页:
[1]