多重引线
你好我正在尝试制作一个对应于MLEADER的lisp。
这段代码所做的是绘制mleader，但当我想像在mleader cad命令中那样将文本写成多行文字时，它不会这样做。在命令行上发生的情况是：
输入文本：
当我输入文本并点击空格时，它就存在了。
我怎样才能把那个小代码变成多行文字呢？
(setq p1 (getpoint "\nStarting Point: ")
p2 (getpoint p1 "\nText placement: ")
)
(grdraw p1 p2 1 1)
(command "_mleader" p1 p2)
(redraw)
) 也许是这个？
(command "_mleader" p1 p2 pause)
或者只是
(command "_mleader")
(while (> (getvar 'CmdActive) 0) (command pause))
页:
[1]