lsp如何保留cad默认的绘图动态效果

口味虾

我用(command "line" (getpoint)(getpoint))画直线 实际效果都是取点 然后一下生成了一条直线，用别的命令也是类似，默认的line在鼠标还没点下去的时候 直线跟着点动的，不知道lsp如何保留cad这种默认的动态效果？

st788796

打开cmdecho 用 cmdactive 变量，command pause，这是基础东西，论坛很多实例

lijiao

(command "line" (setq pt (getpoint)) (getpoint pt))

口味虾

谢谢楼上的2位答复 都可以实现，不知道为什么
(command "line" (setq pt (getpoint)) (getpoint pt))这句也能实现

zxq0220

2. (defun c:ll ()
   
3. (command "_.LINE")
   
4. (while (> (getvar "CMDACTIVE") 0)
   
5.   (command PAUSE)
   
6. )
   
7. (princ)
   
8. )

(defun c:ll ()<br /> (command "_.LINE")<br /> (while (> (getvar "CMDACTIVE") 0)<br />   (command PAUSE)<br /> )<br /> (princ)<br /> )