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

jetorz

我 估计标题应该是没有说明白，再详细说一下。我们在AutoCAD里面画直线的时候，输入Line，在选完第一个点以后，会从第一个点那里到鼠标所在处有一 条线段随时跟随，直到我们用鼠标选了第二个点。这样我们就可以很方便的预览自己将要画的这个线段是什么样子。AutoLISP里面，用Command命令 画Line，用getpoint获取两个点，选取第一个点以后图上却出不来线段提示的预览，直到点了第二个点才会在图上直接把线段画出来。不知道有没有什 么办法可以在AutoLISP里面绘制线段的时候也可以像AutoCAD里面一样给出交互选点的预览？

sailorcwx

(setq p1 (getpoint))(setq p2 (getpoint p1))(command "line" p1 p2 "")

jetorz

老大可能没有理解我的意思。这个代码我也用过，但是在选择p1完成已后，选择p2的时候没有办法出现提示的线段啊，只能直接绘出line。

xshrimp

getpoint就可以啊.

 (getpoint [pt] [prompt])

pt 点为在目前UCS下的 2D 或 3D 基准点。Prompt 是一任意字符串, 用来提示用户输入一点。用户则可使用鼠标指定一点, 或由键盘输入目前单位格式的坐标, 来回答此点的位置。假如您设定了 pt这个参数, 则AutoCAD会从这个基准点拉一条橡皮筋到鼠标目前所在的位置。

例如

(getpoint '(0 0) "\n下一点")

dgw

学习中，虽然不是很明白，

vkzhang

(setq p1 (getpoint "\n 选择起点："))(while (setq p2 (getpoint p1 "\n 选择下一点："))(command "line" p1 p2 "")(setq p1 p2))

这个是可以循环的

黄河

(command "line" pt1 pause "")

(setq pt2 (getvar "lastpoint"))

先赋值点p1,就这样画直线，取得最后的点。多条直线要多次用。看合不合你要求？

jetorz

呵呵，终于弄明白了，谢谢热心的大家。不过这样只能解决画Line的问题，对于画Circle不知道如何给出类似提示呢？

yucpp

一直想解决这个问题，我这个初学者还是被难倒，谢谢大家啊！