CAD LISP批量修改字高?

cad LISP批量修改字高?

操作方法

  • 01

    (DEFUN C:CHHTEXT () (princ "\nselect object:") (setq s (ssget)) (setq hig (getreal "\n输入新字高<2>:")) (if (= hig nil) (setq hig 3.0)) (setq h40 (cons 40 hig)) (setq n (sslength s)) (setq k 0 ) (while (< k n)       (setq name (ssname s k))      (setq a (entget name))      (setq b (assoc '0 a))      (setq b (cdr b))      (if (= b "TEXT")(progn        (setq h (assoc '40 a))        (setq a (subst h40 h a))        (entmod a)        ))      (setq k (+ k 1)) ))

  • 02

    文本后缀名 .LSP结尾 之后拖拽到cad中

  • 03

    敲命令CHHTEXT 选择要修改的文字,输入字高就可以了

(0)

相关推荐

  • cad怎么批量修改文字内容

    cad最为常用的制图软件,很多图纸都需要大量文字进行说明或者标注,大量的文字难免会出现错误,或者后期需要修改,就需要我们进行文字的批量修改. 操作方法 01 首先,我们开启cad,打开我们需要进行编辑 ...

  • cad图纸批量修改文字的方法

    平时工作中看大家在操作CAD类型的图纸时,一个个的修改里面内容是比较麻烦和耽误时间的,今天给大家讲讲cad怎样可以批量的修改文字?需要了解的朋友可要仔细的看下面的介绍了. 操作方法 01 我们需要准备 ...

  • cad修改标注样式快捷键(cad怎么批量修改标注)

    你是不是有过图纸打印完了,一看!标注看不清,再修改标注,浪费了大量时间!那么有没有一种快速修改标注的方法呢?答案是肯定的,有!第1步:在命令提示行内输入fi---回车,弹出"对话选择过滤器& ...

  • cad如何统一修改字体(cad2020批量修改字体)

    在工程投标中,经常遇到需要图纸文字采用规定的统一的字体的要求.特别是在暗标中.如果图纸绘制过程中没有可以去注意字体的统一,甚至图纸中部分内容是从原来项目图纸中拷贝过来的,可能会造成图纸中存在很多字体样 ...

  • excel2003如何批量修改多个工作表的行高和列宽

    excel2003默认工作表的行高是14.25(19像素),列宽是8.38(72像素): 行高与列宽是可以手动扩大或缩小的,如果工作薄中的工作表不多时,可以一个工作表一个工作表的去调整: 但如果工作薄 ...

  • 怎样批量修改word文档名字(批量命名)

    一堆word文档放在那里,一个个修改名字太麻烦,其实有一款软件---2345好压,可以帮大家批量修改。 方法/步骤 1、首先从电脑上下载2345好压,下载后安装呗 2、安装完成后,双击好压快捷图标,弹 ...

  • cad怎么一次性修改所有文字(天正怎么批量修改文字)

    用CAD画图的时候有时候需要批量修改文字,这时候一个一个的修改效率就很低了,这里教大家一种方法,简单方便.1.如果你的软件有装天正插件的话,那还有另一个方法,就是输入"CZTH"即 ...

  • CAD如何修改批量修改文字

    用CAD画图的时候有时候需要批量修改文字,这时候一个一个的修改效率就很低了,这里教大家两种方法,简单方便 操作方法 01 方法一,选择你需要修改的多个文字,然后按"CTRL"+&q ...

  • CAD或者CASS中如何一次性批量修改文字

    有时候我们图纸上需要修改大部分甚至是所有的文字,比如字体大小.颜色等等,那我一个一个的去选中是不是太费时间的呢?今天教大家如何一次性批量修改 操作方法 01 假如,我想把坐标表中的所有文字字体改成宋体 ...