[求助]：鼠标选择图元的状态怎么获得键盘输入？

tsml

请问鼠标选择图元的状态怎么获得键盘输入？

比如说autocad 自带的复制命令copy，选择对象后会出现“选定基点或[位移[D]]”，这时可以选择基点，又可以输入“d”,请问这是怎么实现的？

fools

[php]
(initget "D")
(getpoint "\n选定基点或[位移[D]]")
[/php]

tsml

楼上的,不行啊,
举个例子，我现在想两点画一条直线，画完后，如果输入空格，就结束；如果点下一点就以刚才的第二点为起始点画下一条直线，一直这样循环。我现在要做一个与这有点类似的程序。谢谢

zml84

这是两个概念。

2. 
   
3. (defun c:ll ( / PT1 PT2)
   
4.     (if        (setq pt1 (getpoint "\n第一点:"))
   
5.         (while (setq pt2 (getpoint pt1 "\n下一点:"))
   
6.             (command "_line" pt1 pt2 "")
   
7.             (setq pt1 pt2)
   
8.         )
   
9.     )
   
10.     (princ)
    
11. )
    

<br /> (defun c:ll ( / PT1 PT2)<br />     (if        (setq pt1 (getpoint "\n第一点:"))<br />         (while (setq pt2 (getpoint pt1 "\n下一点:"))<br />             (command "_line" pt1 pt2 "")<br />             (setq pt1 pt2)<br />         )<br />     )<br />     (princ)<br /> )<br />

Underway

如果是 Line 的话也可以这样....
(command "_Line")
(while (= (logand (getvar "CMDACTIVE") 1) 1)
    (command pause)
)

dwg001

最初由 Underway 发布
[B]如果是 Line 的话也可以这样....
(command "_Line")
(while (= (logand (getvar "CMDACTIVE") 1) 1)
    (command pause)
) [/B]

阁下在多处回帖中用到 (logand (getvar "CMDACTIVE") 1) ，能否对此句的用法做个详解，先谢了。