[求助]：图像控件的问题

onej

如何用$x  $y 得到图像控件中鼠标单击点和用$reason  双击关闭。

creajet

关注中，我也同样等待回复！

yjtdkj

不太懂，能不能说明白一些，小人才疏学浅

aidraft

帮助文件
You can handle an image button simply as a button—that is, you can use it to trigger a single action. However, you can also use the PDB feature to define regions of the button. With regions defined, the action taken depends on the part of the image button the user selects. The mechanism for this is straightforward: an image button's action or callback returns the (X,Y) location that the user selected. The coordinates are within the range of the particular image button tile (as returned by the dimension functions). Your application must assign a meaning to select locations by implicitly defining regions of the image. The DDVPOINT dialog box makes good use of this feature. You can view this by loading and running the ddvpoint.lsp file in the AutoCAD Support directory.

In the following example, your image button has two color swatches created by fill_image. You want to select either one or the other, depending on which region the user selects. If the image button is divided horizontally (dark above and light below), your action needs to test only the one dimension:

(action_tile "image_sel" "(pick_shade $key $value $y)")
  ...
(defun pick_shade (key val y)
  (setq threshold
    (/ ( dimy_tile  key) 2))  ;Image is divided horizontally.
  (if (> y threshold)         ;Remember that the origin is at
    (setq result "Light")     ;upper left.
  (setq result "Dark") )
)


$reason

The reason code that indicates which user action triggered the action. Used with edit_box, list_box, image_button, and slider tiles.

This variable indicates why the action occurred. Its value is set for any kind of action, but you need to inspect it only when the action is associated with an edit_box, list_box, image_button, or slider tile. See Callback Reasons in the following section for details.

例
(action_tile "image"  "(if (= $reason 4)(done_dialog 0))") ;;;双击图像按钮关闭对话框

onej

有谁能写一个例子看看？

aeo

2. 
   
3. 一旦点下去，$x $y就已经有值了.
   
4. (action_tile "abc""(do_abc)")
   
5. 
   
6. ;;;----------------------------------
   
7. 
   
8. (defun do_abc()
   
9.   (princ $x)
   
10.   (princ $Y)
    
11. )
    
12. 
    
13. 
    
14. ;;;========================
    
15. 判断左右,就这么写
    
16. (defun do_abc( / x)
    
17.   (setq x(dimx_tile "abc")
    
18.            x(/ x 2.)
    
19.   )
    
20.   (if(< $x x)(princ "\n你点了左边:")
    
21.      (princ "\n你点了右边:")
    
22.   )
    
23. )

<br /> 一旦点下去，$x $y就已经有值了.<br /> (action_tile "abc""(do_abc)")<br /> <br /> ;;;----------------------------------<br /> <br /> (defun do_abc()<br />   (princ $x)<br />   (princ $Y)<br /> )<br /> <br /> <br /> ;;;========================<br /> 判断左右,就这么写<br /> (defun do_abc( / x)<br />   (setq x(dimx_tile "abc")<br />            x(/ x 2.)<br />   )<br />   (if(< $x x)(princ "\n你点了左边:")<br />      (princ "\n你点了右边:")<br />   )<br /> )