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

jetorz

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

caddog

使用GETPOINT时，有参数可以达到类似的这种效果，请看CAD的帮助：

暂停以等待用户输入点，并返回该点
(getpoint [pt] [msg])

用户既可以通过拾取点来指定点，又可以通过输入以当前单位格式表示的坐标来指定点。如果提供了 pt 参数，那么 AutoCAD 会从该点到当前十字光标位置画一条拖引线。该函数的返回值是当前 UCS 中的一个三维点。
用户不能输入一个 AutoLISP 表达式来响应 getpoint 的请求。

参数

pt

当前 UCS 中的二维或三维基点。
请注意 getpoint 函数还可以接受一个整数或实数作为 pt 参数，并使用直接距离输入法来指定点。这种方法以 LASTPOINT 系统变量的值作为起点，将 pt 作为距离，根据当前光标相对于 lastpoint 的位置确定方向。其结果是在当前光标位置的方向上和上一点之间的距离为指定值的点。

msg

用于提示用户的字符串。

返回值

当前 UCS 中的三维点。

样例

(setq p (getpoint))
(setq p (getpoint "何处？ "))

(setq p (getpoint '(1.5 2.0) "第二点："))

jetorz

呵呵，测试通过，已经成功，谢谢老大^_^。

poiwer

没人气...............................

animal212

那考考你：
“指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:”
要求定义这些关键字，并且画线过程中有橡皮条申缩的预阅状态，这又该怎么写呢？