[求助]：我也不知道怎么描述才正确，请进来看！

Dream.Fei

在 AUTOCAD 2004 中，有个画引线的命令，快捷命令是 Le ，在这个命令中，他有一个选择 (设置(S))，如果说你输入S的话，就进入到引线设置对话框， 但是如果你不输而是在屏幕上选择点的话，就开始了画引线。

我现在想知道它这一段是怎么实现的？

即： 可以直接选点，又可以在不选点的情况下输入一个关键字进行另一项命令。

不知道有没有说明白，请指教下。如果没有说明白的话，就启动CAD画引线，就能明白我所说的了。

lazybug

(initget " 关键字")
(setq pt (getpoint))

xiao_longxin

楼上的回答好你有些不对题。请参阅明经无痕的博客，我也还没仔细阅读过
http://mccad.net/Blog/user1/45/archives/2005/49.asp

Dream.Fei

在回答这个贴子前，我先声明，我也还没有看3楼的那个贴，不过2楼的是肯定错的。

netbee

二楼是对的，只不过他没有实例化而已。

2. 
   
3. (initget 6 "O A")
   
4. (if(setq pt (getpoint "\n请确定插入点[选项(O)/角度(A)]<退出>:"))
   
5.   (cond((= pt "O")
   
6.            (fun_setcfg);_这里是执行选项函数
   
7.      )
   
8.           ((= pt "A")
   
9.            (fun_setang);_这里是执行角度函数
   
10.      )
    
11.           ((= (type pt) 'LIST)
    
12.            (fun_in);_这里是正常执行函数或语句.
    
13.      )
    
14.   )
    
15. )
    

<br /> (initget 6 "O A")<br /> (if(setq pt (getpoint "\n请确定插入点[选项(O)/角度(A)]<退出>:")) <br />   (cond((= pt "O")<br />            (fun_setcfg);_这里是执行选项函数<br />      )<br />           ((= pt "A")<br />            (fun_setang);_这里是执行角度函数<br />      )<br />           ((= (type pt) 'LIST)<br />            (fun_in);_这里是正常执行函数或语句.<br />      )<br />   )<br /> )<br />

zxmmelly

我以前也碰到过这样的问题，不知道怎样搞，现在终于知道了，多谢楼上的解答。