如何使用LISP 编辑鼠标左右键

张大锤

(setq p1 (getpoint))

(setq p2 (getpoint p1 "\n請選擇方向: "))

(command “line” p1 p2)

以上操作 用该是

鼠标(左键点击) = p1

鼠标再次(左键点击) = p2

由命令画p1到p2的线

这次我想请教的问题是如何 在鼠标第二次点击的时候 不点击左键 而是点击 右键

提示(alert"鼠标右键成功")

我的想法是这么写的 在CAD中 我使用了！p2 检查了下P2是=nil的 但是 不会执行（alert） 我感觉我这是在乱写 所以请问大佬们 对于鼠标的左右键 是怎么编辑的

(if (= p2 nil)

(alert "鼠标右键成功")

)

还有个追加的想法

有没有可能 鼠标双击 = (defun c:mm() 命令的启动 不需要按mm 鼠标双击就启动命令呢

欢迎大家交流一下

yxp

这是以前的一个不成熟的测试代码，仅供参考

1. (defun c:test()
   
2. (while (setq code (grread t 5 0))
   
3.         (setq first (car code)
   
4.                 second (cadr code)
   
5.         )
   
6.         (cond
   
7.                 ((= first 2)
   
8.                         (princ "\n按下了键盘 mode= ")
   
9.                         (princ first)
   
10.                         (princ "  键盘码 code= ")
    
11.                         (princ second))
    
12.                 ((= first 3)
    
13.                         (princ "\n按下鼠标左键 mode= ")
    
14.                         (princ first)
    
15.                         (princ "  xyz= ")
    
16.                         (princ second))
    
17.                 ((= first 4)
    
18.                         (princ "\n你点了屏幕菜单 mode= ")
    
19.                         (princ first)
    
20.                         (princ "  second= ")
    
21.                         (princ second))
    
22.                 ((= first 5)
    
23.                         (if (equal second old 0.001)
    
24.                                 (progn
    
25.                                         (princ "\n按下鼠标右键 mode= ")
    
26.                                         (princ first)
    
27.                                         (princ "  xyz= ")
    
28.                                         (princ second))
    
29.                                 (progn
    
30.                                         (princ "\n鼠标正在移动 mode= ")
    
31.                                         (princ first)
    
32.                                         (princ "  xyz= ")
    
33.                                         (princ second)
    
34.                                         (setq old second))
    
35.                         ))
    
36.                 (t nil)
    
37.         )
    
38. )
    
39. )
    
40. 
    

(defun c:test()<br /> (while (setq code (grread t 5 0))<br />         (setq first (car code)<br />                 second (cadr code)<br />         )<br />         (cond<br />                 ((= first 2)<br />                         (princ "\n按下了键盘 mode= ")<br />                         (princ first)<br />                         (princ "  键盘码 code= ")<br />                         (princ second))<br />                 ((= first 3)<br />                         (princ "\n按下鼠标左键 mode= ")<br />                         (princ first)<br />                         (princ "  xyz= ")<br />                         (princ second))<br />                 ((= first 4)<br />                         (princ "\n你点了屏幕菜单 mode= ")<br />                         (princ first)<br />                         (princ "  second= ")<br />                         (princ second))<br />                 ((= first 5)<br />                         (if (equal second old 0.001)<br />                                 (progn<br />                                         (princ "\n按下鼠标右键 mode= ")<br />                                         (princ first)<br />                                         (princ "  xyz= ")<br />                                         (princ second))<br />                                 (progn<br />                                         (princ "\n鼠标正在移动 mode= ")<br />                                         (princ first)<br />                                         (princ "  xyz= ")<br />                                         (princ second)<br />                                         (setq old second))<br />                         ))<br />                 (t nil)<br />         )<br /> )<br /> )<br /> <br />

taoyi0727

你看这个行不  有过有BUG
1. 不能用捕捉
2. 右键坐标可能不标准

水平有限 只能编成这样了

2. (defun c:tt (/ get get_bak pt1 pt2 xh)
   
3.         (setq xh t)
   
4.         (while xh
   
5.                 (setq get (grread 1 7 0));把当前的转入设备的值赋给变量
   
6.                 (if (= 5 (car get))
   
7.                         (setq get_bak get)
   
8.                 )
   
9.                 (cond
   
10.                         ((= 3 (car get));变量为3开头时为点击左键
    
11.                                 (if (= pt2 nil)
    
12.                                         (setq pt1 (cadr get));
    
13.                                         (progn
    
14.                                                 (setq pt1 (cadr get))
    
15.                                                 (command "._line" pt1 pt2 "")
    
16.                                                 (setq xh nil)
    
17.                                         )
    
18.                                 )
    
19.                         )
    
20.                         ((= 25 (car get));变量为25开头时为点击右键
    
21.                                 (if (= pt1 nil)
    
22.                                         (progn
    
23.                                                 (princ "第一点未定位")
    
24.                                                 (setq pt2 (cadr get_bak));
    
25.                                         )
    
26.                                         (progn
    
27.                                                 (setq pt2 (cadr get_bak))
    
28.                                                 (command "._line" pt1 pt2 "")
    
29.                                                 (setq xh nil)
    
30.                                         )
    
31.                                 )
    
32.                         )
    
33.                 )
    
34.         )
    
35.         (princ)
    
36. )

(defun c:tt (/ get get_bak pt1 pt2 xh)<br />         (setq xh t)<br />         (while xh<br />                 (setq get (grread 1 7 0));把当前的转入设备的值赋给变量<br />                 (if (= 5 (car get))<br />                         (setq get_bak get)<br />                 )<br />                 (cond<br />                         ((= 3 (car get));变量为3开头时为点击左键<br />                                 (if (= pt2 nil)<br />                                         (setq pt1 (cadr get));<br />                                         (progn<br />                                                 (setq pt1 (cadr get))<br />                                                 (command "._line" pt1 pt2 "")<br />                                                 (setq xh nil)<br />                                         )<br />                                 )<br />                         )<br />                         ((= 25 (car get));变量为25开头时为点击右键<br />                                 (if (= pt1 nil)<br />                                         (progn<br />                                                 (princ "第一点未定位")<br />                                                 (setq pt2 (cadr get_bak));<br />                                         )<br />                                         (progn<br />                                                 (setq pt2 (cadr get_bak))<br />                                                 (command "._line" pt1 pt2 "")<br />                                                 (setq xh nil)<br />                                         )<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

张大锤

研究了俩位的 了解了一下 鼠标左键 中键 键盘得到的值 是可以操作的
但是右键 还是没有 右键我的CAD 没有反应 很有意思 我也会找一些资料学习 弄明白了分享给大家

669423907

(defun weizhi() ;(weizhi)
(setvar 'osmode 0)             ;关闭捕捉
(setq gbwz (grread 3))         ;光标位置
(if (member (car gbwz)'(3 5))
(setq o (cadr gbwz)) )         ;鼠标位置
;(setq pmzd(getvar "viewctr")) ;屏幕中点
(setvar 'osmode 6079)          ;打开捕捉
)

(setq p1 (getpoint))
(setq p2 (getpoint p1 "\n請選擇方向: "))
(if (= p2 nil)(progn (weizhi)(setq p2 o)) )
(command “line”"non" p1 "non" p2)

guankuiwu

学习学习！