使文本腐烂需要Lisp
嗨，Lisp Legends，我需要一个帮助，在创建一个lisp，实际上我有很多（近数千个文本转换为一个单一的绘图文件）的文本从不同角度转换为零角度，并改变其文字高度和字体风格，如附件所示。dwg文件，
另一件重要的事是，我需要删除该文本中的/符号，并重新排列，如附件所示。dwg文件。
请看这一点，并要求为这项工作提供lisp。
文本转换。图纸 您想要的一切之前都已经完成了，使用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改变角度和风格。 这是P50/http://www.cadtutor.net/forum/showthread.php?101748-替换多个textstring只需生成新字符串（setq new“”）。
嗨，比格尔，
谢谢你的回复，实际上我不知道VLSIP，你能帮我保存你的代码并使用它吗。
嗨，比格尔，
对不起，没有提前通知，实际上它不是P50/整个图纸。。。。它像Pxx/一样变化，所以我需要它，就像任何以P开头，以/被移除结尾的东西一样。。。。这可能吗？请帮忙
页:
[1]