ATS1211 发表于 2022-7-6 08:23:22

修改多行文字行距

大家好,
 
我对lisp编程相当陌生,正在尝试编写一个lisp例程,将图形中所有多行文字的线空间样式从“至少”更改为“完全”。我将把这个步骤合并到一个现有的lisp例程中,该例程可以做其他一些事情。
 
到目前为止,我已经搜索并没有找到控制这个变量的DXF代码。我确实发现一个lisp使用了:
 
“vla put TextLineSpacingStyle”和“aclinespacingstyle”
 
然而,我得到的只是一个错误,即“ActiveX服务器返回了错误:未知名称:TextLineSpacingStyle”
 
非常感谢您的帮助!
 
谢谢

MSasu 发表于 2022-7-6 10:17:28

也许这会帮助你:
 
(entmod (subst (cons 1 (strcat "\\pxse1;" (cdr (assoc 1 MyMTextEntity))))
            (assoc 1 MyMTextEntity)
            MyMTextEntity))
 
当做
米尔恰
页: [1]
查看完整版本: 修改多行文字行距