多重引线

au-s · 发表于 2022-7-6 14:45:19

你好

我正在尝试制作一个对应于MLEADER的lisp。

这段代码所做的是绘制mleader，但当我想像在mleader cad命令中那样将文本写成多行文字时，它不会这样做。在命令行上发生的情况是：

输入文本：

当我输入文本并点击空格时，它就存在了。

我怎样才能把那个小代码变成多行文字呢？

copy

(setq p1 (getpoint "\nStarting Point: ")
p2 (getpoint p1 "\nText placement: ")
 )
 (grdraw p1 p2 1 1)
   (command "_mleader" p1 p2)
 (redraw)
)

lpseifert · 发表于 2022-7-6 16:35:37

也许是这个？

copy


(command "_mleader" p1 p2 pause)

或者只是

copy


(command "_mleader")
 (while (> (getvar 'CmdActive) 0) (command pause))

[编程交流] 多重引线

发表回复

精选推荐