非模态对话框下，xdrx_drag_jig回调期间如何中断

brainstorm

如下代码如何中断正在执行的回调函数，去执行 c:test/Form1/TextButton1#OnClicked

1. (defun c:tt (/ p1 p e rtn)  (dcl-project-import
   
2.     '("YWt6A/4FAAAwB6ynBuLz7UUxKj9m+KF9kkz/U3b347s4Xi7OH2m6e1XduHw7Pod9dVLeUum+3Lq4"
   
3.       "qDoVy45ZBjMuBVSSUleGf1igRBxczMChDgj5jXhtmRpQsQnlR40DrS9F1F+QUyvqz/9UXH7hJf9I"
   
4.       "JS6vI7hCjGY6f1tqF+qd1PJn0A1GsQfwQ7kg3vO3NOroTjTRH4Sb12efRgrCL7Nc8Cwcb/gWR5Jd"
   
5.       "sA4r2vE7UgbTtxKpB9B4nSuvBfIOyqNR3ndnRRpF0uP79Vb3Zck3I71UqM+y/pBxrM9czB3GabyJ"
   
6.       "+mF2qfqJ+5F1QW0AXOLw7IIliiW8MJIJryeBrYbpo1PKqjsIV5Df4QKFvBUJRTafOg3jP4Gixkc0"
   
7.       "hAFyBBGBIIb9jsiO3+LZleG3h+quvov7NsGmTbNIBpKpYskxzSrIJsvpz7fPtN5VaEztxsENzcb2"
   
8.       "BANxXhJD/q2DxU6/h3RUxv0nUq8YcFBbRwZdRwRbgiSG2w7bDz+ACaPsjgydZNx9NZ7UlpF0QeiG"
   
9.       "oWVJC7I5v6BZmvmGAT0V/MW7gRlG8anhLP0zDgvv5XYnwhrigNG6w3Mrnd3CbRDt1KzUIDeS7Ge5"
   
10.       "Exqnaccl+yFoKUdQWtRBEQAxW5Dn3rFkMXigTeB0graG1aoOMa6J54AYnkudlYwkEHbxdfF3PSDV"
    
11.       "wN8gh+FtERRM4IF8xImsdw=="
    
12.      )
    
13.   )
    
14.   (dcl-form-show test/form1)
    
15.   (setq loop t)
    
16.   (vl-acad-defun 'move)
    
17.   (defun move (p)
    
18.     (xdrx_setpropertyvalue e "center" p)
    
19.   )
    
20.   (setq e (car (entsel)))
    
21.   (setq p1 (getvar "lastpoint"))
    
22.   (while loop
    
23.     (setq rtn
    
24.            (xdrx_drag_jig
    
25.              "move"
    
26.              "选择圆心"
    
27.              ""
    
28.              (+ 2 128)
    
29.              0
    
30.              p1
    
31.            )
    
32.     )
    
33.     (if        (eq rtn -1)
    
34.       (setq loop nil)
    
35.     )
    
36.   )
    
37. )
    
38. (defun c:test/Form1/TextButton1#OnClicked (/)
    
39.   (setq loop nil)
    
40.   (setq en (car (entsel "\n选择圆:")))
    
41. )
    
42. 
    

(defun c:tt (/ p1 p e rtn)  (dcl-project-import<br />     '("YWt6A/4FAAAwB6ynBuLz7UUxKj9m+KF9kkz/U3b347s4Xi7OH2m6e1XduHw7Pod9dVLeUum+3Lq4"<br />       "qDoVy45ZBjMuBVSSUleGf1igRBxczMChDgj5jXhtmRpQsQnlR40DrS9F1F+QUyvqz/9UXH7hJf9I"<br />       "JS6vI7hCjGY6f1tqF+qd1PJn0A1GsQfwQ7kg3vO3NOroTjTRH4Sb12efRgrCL7Nc8Cwcb/gWR5Jd"<br />       "sA4r2vE7UgbTtxKpB9B4nSuvBfIOyqNR3ndnRRpF0uP79Vb3Zck3I71UqM+y/pBxrM9czB3GabyJ"<br />       "+mF2qfqJ+5F1QW0AXOLw7IIliiW8MJIJryeBrYbpo1PKqjsIV5Df4QKFvBUJRTafOg3jP4Gixkc0"<br />       "hAFyBBGBIIb9jsiO3+LZleG3h+quvov7NsGmTbNIBpKpYskxzSrIJsvpz7fPtN5VaEztxsENzcb2"<br />       "BANxXhJD/q2DxU6/h3RUxv0nUq8YcFBbRwZdRwRbgiSG2w7bDz+ACaPsjgydZNx9NZ7UlpF0QeiG"<br />       "oWVJC7I5v6BZmvmGAT0V/MW7gRlG8anhLP0zDgvv5XYnwhrigNG6w3Mrnd3CbRDt1KzUIDeS7Ge5"<br />       "Exqnaccl+yFoKUdQWtRBEQAxW5Dn3rFkMXigTeB0graG1aoOMa6J54AYnkudlYwkEHbxdfF3PSDV"<br />       "wN8gh+FtERRM4IF8xImsdw=="<br />      )<br />   )<br />   (dcl-form-show test/form1)<br />   (setq loop t)<br />   (vl-acad-defun 'move)<br />   (defun move (p)<br />     (xdrx_setpropertyvalue e "center" p)<br />   )<br />   (setq e (car (entsel)))<br />   (setq p1 (getvar "lastpoint"))<br />   (while loop<br />     (setq rtn<br />            (xdrx_drag_jig<br />              "move"<br />              "选择圆心"<br />              ""<br />              (+ 2 128)<br />              0<br />              p1<br />            )<br />     )<br />     (if        (eq rtn -1)<br />       (setq loop nil)<br />     )<br />   )<br /> )<br /> (defun c:test/Form1/TextButton1#OnClicked (/)<br />   (setq loop nil)<br />   (setq en (car (entsel "\n选择圆:")))<br /> )<br /> <br />

marting

按按钮你想做什么？
试试 dcl_sendstring

brainstorm

按钮是重新选择一个图元，(car(entsel))

brainstorm

marting 发表于 2017-8-19 09:15

可能用xdrx_pointmonitor就可以了，按钮lclicked事件激活(xdrx_pointmonitor),
要是xdrx_drag_jig也有这样一个中断函数就好了，用起来比较方便

marting

brainstorm 发表于 2017-8-19 09:21

重新选个圆，然后拖动另外个圆？

brainstorm

大概是这个意思，其实很多跟非模态对话框相关的可能都需要暂时中断
这个只是为了说明问题的一个示例。
比如这样一个应用，沿着一条曲线拖动，根据坡度计算标高，在拖动过程中突然发现需要
调整起点标高，想拾取一个表格哦文字并取得该文字值作为起点标高，这时可能调用(car(entsel))命令中断一下

marting

点按钮先发送 \n 结束拖动，
选实体后，再继续拖动新的圆，试试

1. (defun c:tt (/ p1 p e rtn)
   
2.   (dcl-project-import
   
3.     '("YWt6A/4FAAAwB6ynBuLz7UUxKj9m+KF9kkz/U3b347s4Xi7OH2m6e1XduHw7Pod9dVLeUum+3Lq4"
   
4.       "qDoVy45ZBjMuBVSSUleGf1igRBxczMChDgj5jXhtmRpQsQnlR40DrS9F1F+QUyvqz/9UXH7hJf9I"
   
5.       "JS6vI7hCjGY6f1tqF+qd1PJn0A1GsQfwQ7kg3vO3NOroTjTRH4Sb12efRgrCL7Nc8Cwcb/gWR5Jd"
   
6.       "sA4r2vE7UgbTtxKpB9B4nSuvBfIOyqNR3ndnRRpF0uP79Vb3Zck3I71UqM+y/pBxrM9czB3GabyJ"
   
7.       "+mF2qfqJ+5F1QW0AXOLw7IIliiW8MJIJryeBrYbpo1PKqjsIV5Df4QKFvBUJRTafOg3jP4Gixkc0"
   
8.       "hAFyBBGBIIb9jsiO3+LZleG3h+quvov7NsGmTbNIBpKpYskxzSrIJsvpz7fPtN5VaEztxsENzcb2"
   
9.       "BANxXhJD/q2DxU6/h3RUxv0nUq8YcFBbRwZdRwRbgiSG2w7bDz+ACaPsjgydZNx9NZ7UlpF0QeiG"
   
10.       "oWVJC7I5v6BZmvmGAT0V/MW7gRlG8anhLP0zDgvv5XYnwhrigNG6w3Mrnd3CbRDt1KzUIDeS7Ge5"
    
11.       "Exqnaccl+yFoKUdQWtRBEQAxW5Dn3rFkMXigTeB0graG1aoOMa6J54AYnkudlYwkEHbxdfF3PSDV"
    
12.       "wN8gh+FtERRM4IF8xImsdw=="
    
13.      )
    
14.   )
    
15.   (dcl-form-show test/form1)
    
16.   (setq loop t)
    
17.   (vl-acad-defun 'move)
    
18.   (defun move (p)
    
19.     (xdrx_setpropertyvalue e "center" p)
    
20.   )
    
21.   (setq e (car (entsel)))
    
22.   (setq p1 (getvar "lastpoint"))
    
23.   (_drag)
    
24. )
    
25. (defun _drag ()
    
26.   (setq p1 (getvar "lastpoint"))  (setq loop t)
    
27.   (while loop
    
28.     (setq rtn
    
29.            (xdrx_drag_jig
    
30.              "move"
    
31.              "\r选择圆心:"
    
32.              ""
    
33.              (+ 2 128)
    
34.              0
    
35.              p1
    
36.            )
    
37.     )
    
38.     (if        (eq rtn -1)
    
39.       (setq loop nil)
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )
    
44. (defun _sel ()
    
45.   (setq loop nil)
    
46.   (setq e (car (entsel "\n选择圆:")))
    
47.   (_drag)
    
48.   (princ)
    
49. )
    
50. (defun c:test/Form1/TextButton1#OnClicked (/)
    
51.   (dcl_sendstring "\n(_sel)\n")
    
52.   (princ)
    
53. )
    
54. 
    

(defun c:tt (/ p1 p e rtn)<br />   (dcl-project-import<br />     '("YWt6A/4FAAAwB6ynBuLz7UUxKj9m+KF9kkz/U3b347s4Xi7OH2m6e1XduHw7Pod9dVLeUum+3Lq4"<br />       "qDoVy45ZBjMuBVSSUleGf1igRBxczMChDgj5jXhtmRpQsQnlR40DrS9F1F+QUyvqz/9UXH7hJf9I"<br />       "JS6vI7hCjGY6f1tqF+qd1PJn0A1GsQfwQ7kg3vO3NOroTjTRH4Sb12efRgrCL7Nc8Cwcb/gWR5Jd"<br />       "sA4r2vE7UgbTtxKpB9B4nSuvBfIOyqNR3ndnRRpF0uP79Vb3Zck3I71UqM+y/pBxrM9czB3GabyJ"<br />       "+mF2qfqJ+5F1QW0AXOLw7IIliiW8MJIJryeBrYbpo1PKqjsIV5Df4QKFvBUJRTafOg3jP4Gixkc0"<br />       "hAFyBBGBIIb9jsiO3+LZleG3h+quvov7NsGmTbNIBpKpYskxzSrIJsvpz7fPtN5VaEztxsENzcb2"<br />       "BANxXhJD/q2DxU6/h3RUxv0nUq8YcFBbRwZdRwRbgiSG2w7bDz+ACaPsjgydZNx9NZ7UlpF0QeiG"<br />       "oWVJC7I5v6BZmvmGAT0V/MW7gRlG8anhLP0zDgvv5XYnwhrigNG6w3Mrnd3CbRDt1KzUIDeS7Ge5"<br />       "Exqnaccl+yFoKUdQWtRBEQAxW5Dn3rFkMXigTeB0graG1aoOMa6J54AYnkudlYwkEHbxdfF3PSDV"<br />       "wN8gh+FtERRM4IF8xImsdw=="<br />      )<br />   )<br />   (dcl-form-show test/form1)<br />   (setq loop t)<br />   (vl-acad-defun 'move)<br />   (defun move (p)<br />     (xdrx_setpropertyvalue e "center" p)<br />   )<br />   (setq e (car (entsel)))<br />   (setq p1 (getvar "lastpoint"))<br />   (_drag)<br /> )<br /> (defun _drag ()<br />   (setq p1 (getvar "lastpoint"))  (setq loop t)<br />   (while loop<br />     (setq rtn<br />            (xdrx_drag_jig<br />              "move"<br />              "\r选择圆心:"<br />              ""<br />              (+ 2 128)<br />              0<br />              p1<br />            )<br />     )<br />     (if        (eq rtn -1)<br />       (setq loop nil)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun _sel ()<br />   (setq loop nil)<br />   (setq e (car (entsel "\n选择圆:")))<br />   (_drag)<br />   (princ)<br /> )<br /> (defun c:test/Form1/TextButton1#OnClicked (/)<br />   (dcl_sendstring "\n(_sel)\n")<br />   (princ)<br /> )<br /> <br />

brainstorm

谢谢 我试试这样应用很多
如下图，插入门窗过程中 想换另一种门窗 这时需要拾取门窗样本 就需要中断
这样的功能drag_jig能实现么

brainstorm

试了 重新选择圆后 cad不响应 呈死机状态 需强制退出
可以了 在（defun _drag() 加上(setq p1(getvar "lastpoint"）)

原理明白就好办了 谢谢 受益很多 因为回调函数是空值时loop结束 其实就是发个空的字符串
高手思路就是不一样
真心感谢

marting

brainstorm 发表于 2017-8-19 10:15

代码修改了，你再试试。