使文本腐烂需要Lisp

amb2301 · 发表于 2022-7-5 16:00:25

嗨，Lisp Legends，
我需要一个帮助，在创建一个lisp，实际上我有很多（近数千个文本转换为一个单一的绘图文件）的文本从不同角度转换为零角度，并改变其文字高度和字体风格，如附件所示。dwg文件，
另一件重要的事是，我需要删除该文本中的/符号，并重新排列，如附件所示。dwg文件。
请看这一点，并要求为这项工作提供lisp。
文本转换。图纸

BIGAL · 发表于 2022-7-5 16:28:27

您想要的一切之前都已经完成了，使用vlisp，使用PUT更改文本值是一项简单的任务，例如（vla PUT Rotation txtobject 0.0），与文本样式相同。或者使用实体dxf代码和entmod。

ObjectName（RO）=“AcDbMText”
; 所有者ID（RO）=43
; PlotStyleName=“ByLayer”
; 旋转=0.504313
; StyleName=“dgnlstyle lstyle”
; TextString=“P50/450D6凝胶/融合1439”

这些是建议的顺序。
1有很多关于搜索和替换的示例，最简单的是从命令行查找P50/replace with nothing。
把文字再多行文字一点快速搜索一下就应该找到了。
例如上周在cadtutor这里，新线路已解决。
4改变角度和风格。