CAD LISP批量修改字高

 时间：2024-10-22 00:41:04

1、(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))))

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

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

  • cad2020怎么快速删除重复线段
  • 天宝realworks使用经验-快速提取扫描对象轮廓线
  • AutoCAD2012：[12]如何快速选择和过滤选择图形
  • AutoCAD如何一键隐藏所有动态约束
  • CAD中复制操作方法介绍
    • 热门搜索
    走进大自然手抄报 唐山世园会手抄报 珍爱生命手抄报图片 成长故事手抄报 科技改变生活手抄报 感恩妈妈手抄报内容 防火手抄报图片大全 关于艺术的手抄报 缅怀先烈手抄报资料 中国手抄报