[求助]lisp如何判断鼠标落在对话框上

luyu9635

如题

luyu9635

顶一下

liu_kunlun

常规cad对话框活动期间，lisp对cad没有实时控制能力，只能通过回调函数间断性地作出一些反映。鼠标移动不会触发回调函数，因而无法知道。

luyu9635

liu_kunlun发表于2009-11-30 9:58:00常规cad对话框活动期间，lisp对cad没有实时控制能力，只能通过回调函数间断性地作出一些反映。鼠标移动不会触发回调函数，因而无法知道。

谢谢liu_kunlun的答复,那有没有办法得到对话框的大小呢,一般程序中不会去移动对话框的位置,而每次对话框所出现的位置也是相对不变的,这样的话,当鼠标经过对话框所在的区域时就启动某个命令进行响应,离开这个区域时就关闭这个对话框,谢谢,请高手再次出招!!!

wish2008

我也想知道

(DEFUN ROTA-FM-1 ()
  (PRINC "\n选择阀杆朝向: <左键调试/右键结束>...")
  (SETQ KEY "")
  (WHILE (/= KEY "右键")
    (SEL-KEY)
    (IF (= KEY "左键") (COMMAND "OSNAP" "NONE" "ROTATE" "L" "" PT0 "180")PAUSE)
  )
  (COMMAND "REDRAW")
 )

为什么鼠标左键可以调试，而右键不能结束？

liu_kunlun

done_dialog 返回对话框位置，但对话框大小还不知道得到