[求助]autolisp画线的时候可以像autocad本身命令那样给出提示线条么？
 

[求助]autolisp画线的时候可以像autocad本身命令那样给出提示线条么？
www.dimcax.com
[求助]autolisp画线的时候可以像autocad本身命令那样给出提示线条么？我
估计标题应该是没有说明白，再详细说一下。我们在autocad里面画直线的时候，输入line，在选完第一个点以后，会从第一个点那里到鼠标所在处有一
条线段随时跟随，直到我们用鼠标选了第二个点。这样我们就可以很方便的预览自己将要画的这个线段是什么样子。autolisp里面，用command命令
画line，用getpoint获取两个点，选取第一个点以后图上却出不来线段提示的预览，直到点了第二个点才会在图上直接把线段画出来。不知道有没有什
么办法可以在autolisp里面绘制线段的时候也可以像autocad里面一样给出交互选点的预览？
d
(setq p1 (getpoint))(setq p2 (getpoint p1))(command "line" p1 p2 "")
做二次开发前先打好cad基础
不要尝试用二次开发来弥补你错误的操作
d
老大可能没有理解我的意思。这个代码我也用过，但是在选择p1完成已后，选择p2的时候没有办法出现提示的线段啊，只能直接绘出line。
d
getpoint就可以啊.
(getpoint [pt] [prompt])
pt 点为在目前ucs下的 2d 或 3d 基准点。prompt 是一任意字符串, 用来提示用户输入一点。用户则可使用鼠标指定一点, 或由键盘输入目前单位格式的坐标, 来回答此点的位置。假如您设定了 pt这个参数, 则autocad会从这个基准点拉一条橡皮筋到鼠标目前所在的位置。
例如
(getpoint '(0 0) "\n下一点")
d
学习中，虽然不是很明白，
d
(setq p1 (getpoint "\n 选择起点："))(while (setq p2 (getpoint p1 "\n 选择下一点："))(command "line" p1 p2 "")(setq p1 p2))
这个是可以循环的