Txt2mtxt

Kay · 发表于 2022-7-6 15:01:49

我试图找到一个lisp例程，它可以将dtext转换为mtext，同时保留我的tspacefac和tspacetype设置。我需要tspacetype是精确的，tspacefac是1.029。我喜欢TXT2MDTXT命令，但它会一直重置为autocad默认值，这不符合我们的目的。

谢谢你给我的指导。

lpseifert · 发表于 2022-7-6 15:12:33

试试这个

copy


(defun c:T2M+ (/ ss obj)
 (setq ss (ssget '((0 . "*text"))))
 (vl-cmdf "txt2mtxt" ss "")
 (setq obj (vlax-ename->vla-object (entlast)))
 (vlax-put-property obj 'LineSpacingFactor 1.029)
 (vlax-put-property obj 'LineSpacingStyle 2)
 (princ)
 )

Kay · 发表于 2022-7-6 15:19:36

谢谢你的帮助。例程完成文本到多行文字部分，但在尝试执行tspacefac时挂起。这是错误消息

选择对象：
删除了13个文字对象，添加了1个多行文字对象。
命令：；错误：没有函数定义：VLAX-ENAME->VLA-OBJECT。

我尝试将行距因子更改为tspacefac，这是变量的名称，但没有成功。我试着用引号将变量括起来，但仍然没有成功。

我少量的lisp经验对我来说不太好。你还有其他建议吗？

dani · 发表于 2022-7-6 15:27:45

[code][/code]
<

lpseifert · 发表于 2022-7-6 15:33:51

哎呀，这不是我第一次忘记添加（vl load com），这是在我的acaddoc中。lsp文件。

Kay · 发表于 2022-7-6 15:36:10

非常感谢！它正是我所需要的。
凯

Lee Mac · 发表于 2022-7-6 15:44:02

Kay，我建议在你的ACADDOC中拨打（vl load com）。lsp文件（如果您已经创建了一个），因为如果多次调用它，则不会有任何问题。

Kay · 发表于 2022-7-6 15:50:36

我真的需要更新我的编程技能。我基本上是一个编剧谁设法做一些Lisp程序。我认为为我创建的例程lpsiefert是使用visual lisp完成的。在acaddoc中是否具有代码（vl load com）。lsp适用于标准lisp例程还是仅适用于visual lisp例程？有传言称vba即将退出。这会影响lisp吗？

谢谢你的评论。我总是在论坛和博客网站上找到新信息。我们的绘图社区沉迷于分享，我很感激。

lpseifert · 发表于 2022-7-6 15:57:56

来自帮助
大多数Visual Lisp函数（以VL开头的函数）都需要它。其他lisp函数不需要它。

关于VBA、Vlisp等有很多讨论。我认为普遍的共识是Lisp，Vlisp将存在很长一段时间，但Acad的未来是。净值（到下周……）

Lee Mac · 发表于 2022-7-6 16:02:49

vl load com将启用Visual LISP功能

关于VBA有很多讨论，请参阅此处了解更多详细信息。。。

[编程交流] Txt2mtxt

发表回复

精选推荐