使用xdrx_pointmonitor函数，如何判断点击了左键还是右键？

liuyj

好像右键不能取消，而是跟点击了左键一样的效果

newer

你具体想要做什么？ 把你写的完整代码贴上来吧。

你点左键是选点，右键做什么，看你怎么写。

liuyj

1. ;;;带回调函数的Getpoint
   
2. (defun getxxx (ss pt / OBJLST P0 PT SS)
   
3.   (if (null CurDoc)
   
4.     (setq CurDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.   )
   
6.   (setq *error*_Old *error*)                ;保存出错处理函数
   
7.   (setq *error* *error*_New1)                ;设置新的出错处理
   
8.   (defun PointCallback (dynpt)                ;回调函数
   
9.     (foreach obj objlst
   
10.       (vla-move obj (vlax-3d-point p0) (vlax-3d-point dynpt)) ;移动物体
    
11.     )
    
12.     (setq p0 dynpt)
    
13.   )
    
14.   (vla-StartUndoMark CurDoc)                ;撤销编组开始
    
15.   (if (and ss pt)
    
16.     (progn (setq objlst (GetObjects ss))
    
17.            (setq p0 (trans pt 1 0))        ;需要转化到世界坐标系
    
18.            ;;设置回调函数名和需要排除捕捉的选择集
    
19.            (setq ret (XDRX_PointMonitor "PointCallback" ss))
    
20.                                         ;第一个参数是回调函数名，第二个参数是可以省略（如果不需要排除捕捉的话）
    
21.            ;;现在就可以看到动态效果了
    
22.            (setq ret (getpoint pt "\n第二点: "))
    
23.                                         ;此处可以是lisp的交互函数，例如getpoint,getangle之类。
    
24.            ;;最后关闭监视
    
25.            (XDRX_PointMonitor)
    
26.     )
    
27.   )
    
28.   (vla-EndUndoMark curdoc)                ;编组结束
    
29.   ret
    
30. )
    
31. 
    
32. ;;;取得物体集
    
33. (defun GetObjects (sel / i ent obj lst)
    
34.   (setq i 0)
    
35.   (repeat (sslength Sel)
    
36.     (setq ent (ssname Sel i))
    
37.     (setq obj (vlax-ename->vla-object ent))
    
38.     (setq lst (cons obj lst))
    
39.     (setq i (1+ i))
    
40.   )
    
41.   (reverse lst)
    
42. )

;;;带回调函数的Getpoint<br /> (defun getxxx (ss pt / OBJLST P0 PT SS)<br />   (if (null CurDoc)<br />     (setq CurDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   )<br />   (setq *error*_Old *error*)                ;保存出错处理函数<br />   (setq *error* *error*_New1)                ;设置新的出错处理<br />   (defun PointCallback (dynpt)                ;回调函数<br />     (foreach obj objlst<br />       (vla-move obj (vlax-3d-point p0) (vlax-3d-point dynpt)) ;移动物体<br />     )<br />     (setq p0 dynpt)<br />   )<br />   (vla-StartUndoMark CurDoc)                ;撤销编组开始<br />   (if (and ss pt)<br />     (progn (setq objlst (GetObjects ss))<br />            (setq p0 (trans pt 1 0))        ;需要转化到世界坐标系<br />            ;;设置回调函数名和需要排除捕捉的选择集<br />            (setq ret (XDRX_PointMonitor "PointCallback" ss))<br />                                         ;第一个参数是回调函数名，第二个参数是可以省略（如果不需要排除捕捉的话）<br />            ;;现在就可以看到动态效果了<br />            (setq ret (getpoint pt "\n第二点: "))<br />                                         ;此处可以是lisp的交互函数，例如getpoint,getangle之类。<br />            ;;最后关闭监视<br />            (XDRX_PointMonitor)<br />     )<br />   )<br />   (vla-EndUndoMark curdoc)                ;编组结束<br />   ret<br /> )<br /> <br /> ;;;取得物体集<br /> (defun GetObjects (sel / i ent obj lst)<br />   (setq i 0)<br />   (repeat (sslength Sel)<br />     (setq ent (ssname Sel i))<br />     (setq obj (vlax-ename->vla-object ent))<br />     (setq lst (cons obj lst))<br />     (setq i (1+ i))<br />   )<br />   (reverse lst)<br /> )

右键取消，选择集应该回到原位，可是现在和点击了左键是一个效果

newer

你应该在

(setq ret (getpoint pt "\n第二点: "))

这个后面，加上返回值判断语句

1. (cond
   
2.   ((= (type ret) 'LIST)
   
3.    ;;左键
   
4.   )
   
5.   ((not ret)
   
6.    ;右键
   
7.   )
   
8. )
   

(cond<br />   ((= (type ret) 'LIST)<br />    ;;左键<br />   )<br />   ((not ret)<br />    ;右键<br />   )<br /> )<br />

newer

具体你可以去看看开源函数库里面的
xd::drag:getXXXX类函数
xd::doc:getpolygon
xd::doc:getfence
xd::doc:GMove
这些函数的源代码，看看里面是怎么设置带回调函数的。