一种修改AutoCAD及天正单行文字、多行文字宽度因子的方法

wharan

天正和AutoCAD的单行文字，宽度因子修改起来比较容易。但天正和AutoCAD的多行文字，一直没找到理想的修改办法。本程序用另外一种办法——通过定义文字样式的方法，保留原文字的字形、高度、对齐方式等参数，修改宽度因子。新生成的文字样式名称：原文字样式名称+宽度因子。比如，多行文字样式名称是Standard，宽度因子0.75，则修改宽度因子后的样式名称是：Standard0.75。
该方法可以保留原文字样式信息。
本程序在AutoCAD2023+天正8.0平台上测试通过。
提供编译程序，免费，加载后，命令行键入“Ctw”即可。编译程序改变了文字样式定义，不再溢出。
漏掉了一个函数，不再单独发文件了。在这里复制即可。


(defun dxf (i ent)
  (if (= (type ent) 'ENAME)
    (setq ent (entget ent))
  )
  (cdr (assoc i ent))
)

下文没句号。

有GIF看看么？

1361878068

很强，正需要这个呢，用Ctrl加1有点影响效率了

lxl217114

命令: ctw
请输入文字宽度因子（缺省= 0.75)：1
选择对象: 找到 1 个
选择对象:  no function definition: DXF

wharan

lxl217114 发表于 2024-4-14 11:17
命令: ctw
请输入文字宽度因子（缺省= 0.75)：1
选择对象: 找到 1 个

抱歉，可能是把这个函数漏掉了。现补上。