在屏上选点时如何退出DCL窗体？

川雪

DCL窗体如下：

DCL窗体的代码如下：

2. attline:dialog{
   
3. label="直线属性查看修改";
   
4. :button{
   
5. label="选择直线<";
   
6. key="bt_selectline";
   
7. }
   
8. :row{
   
9. :boxed_column{
   
10. label="直线原始属性";
    
11. :edit_box{
    
12. label="图元名：";
    
13. edit_width=10;
    
14. key="line_tuyu";
    
15. }
    
16. :edit_box{
    
17. label="图层名称：";
    
18. edit_width=10;
    
19. key="line_tuceng";
    
20. }
    
21. :edit_box{
    
22. label="起点坐标：";
    
23. edit_width=10;
    
24. key="line_qizuobiao";
    
25. }
    
26. :edit_box{
    
27. label="终点坐标：";
    
28. edit_width=10;
    
29. key="line_zhongzuobiao";
    
30. }
    
31. }
    
32. :boxed_column{
    
33. label="直线可修改项";
    
34. alignment=left;
    
35. spacer_1;
    
36. :edit_box{
    
37. 
    
38. label="新图元名：";
    
39. edit_width=10;
    
40. key="line_tuyu_new";
    
41. }
    
42. :row{
    
43. :edit_box{
    
44. label="新起点坐标：";
    
45. edit_width=10;
    
46. key="line_qizuobiao_new";
    
47. }
    
48. :button{
    
49. label="屏选起点<";
    
50. key="bt_qidiansel";
    
51. }
    
52. }
    
53. :row{
    
54. :edit_box{
    
55. label="新终点坐标：";
    
56. edit_width=10;
    
57. key="line_zhongzuobiao_new";
    
58. 
    
59. }
    
60. :button{
    
61. label="屏选终点<";
    
62. key="btn_zhongdiansel";
    
63. }
    
64. }
    
65. }
    
66. }
    
67. 
    
68. spacer_1;
    
69. 
    
70. ok_cancel;
    
71. 
    
72. }

attline:dialog{<br /> label="直线属性查看修改";<br /> :button{<br /> label="选择直线<";<br /> key="bt_selectline";<br /> }<br /> :row{<br /> :boxed_column{<br /> label="直线原始属性";<br /> :edit_box{<br /> label="图元名：";<br /> edit_width=10;<br /> key="line_tuyu";<br /> }<br /> :edit_box{<br /> label="图层名称：";<br /> edit_width=10;<br /> key="line_tuceng";<br /> }<br /> :edit_box{<br /> label="起点坐标：";<br /> edit_width=10;<br /> key="line_qizuobiao";<br /> }<br /> :edit_box{<br /> label="终点坐标：";<br /> edit_width=10;<br /> key="line_zhongzuobiao";<br /> }<br /> }<br /> :boxed_column{<br /> label="直线可修改项";<br /> alignment=left;<br /> spacer_1;<br /> :edit_box{<br /> <br /> label="新图元名：";<br /> edit_width=10;<br /> key="line_tuyu_new";<br /> }<br /> :row{<br /> :edit_box{<br /> label="新起点坐标：";<br /> edit_width=10;<br /> key="line_qizuobiao_new";<br /> }<br /> :button{<br /> label="屏选起点<";<br /> key="bt_qidiansel";<br /> }<br /> }<br /> :row{<br /> :edit_box{<br /> label="新终点坐标：";<br /> edit_width=10;<br /> key="line_zhongzuobiao_new";<br /> <br /> }<br /> :button{<br /> label="屏选终点<";<br /> key="btn_zhongdiansel";<br /> }<br /> }<br /> }<br /> }<br /> <br /> spacer_1;<br /> <br /> ok_cancel;<br /> <br /> }

我的lisp程序如下：

2. (defun c:cx ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq osm (getvar "osmode"))
   
5.   (setvar "osmode" 0)      ;
   
6.   (setq
   
7.     dcl_id (load_dialog
   
8.        "D:\\Autodesk\\AutoCAD 2019\\Support\\lispbag\\winatt"
   
9.      )
   
10.   )
    
11.   (setq dd 2)
    
12. ; (while (> dd 1)
    
13.     (new_dialog "attline" dcl_id)
    
14.     (action_tile "accept" "(done_dialog 1)")
    
15.     (action_tile "cancer" "(done_dialog 0)")
    
16.     (action_tile "bt_selectline" "(done_dialog 2)")
    
17.     (setq dd (start_dialog))
    
18.     (if  (= dd 2)
    
19.       progn
    
20.       (
    
21.        (initget 1)
    
22.   (setq p (getpoint "\nPlease get a point:"))
    
23.   (setq x (car p) y (cadr p))
    
24.       )
    
25.       ;
    
26.     )
    
27.    
    
28. ; )
    
29.   (if (= dd 0)
    
30.     (print "00")
    
31.   )
    
32.   (if (= dd 1)
    
33.     (print "11")
    
34.   )
    
35.   (unload_dialog dcl_id)
    
36.   (setvar "osmode" osm)
    
37.   
    
38. )
    

(defun c:cx ()<br />   (setvar "cmdecho" 0)<br />   (setq osm (getvar "osmode"))<br />   (setvar "osmode" 0)      ;<br />   (setq<br />     dcl_id (load_dialog<br />        "D:\\Autodesk\\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2019\\Support\\lispbag\\winatt"<br />      )<br />   )<br />   (setq dd 2)<br /> ; (while (> dd 1)<br />     (new_dialog "attline" dcl_id)<br />     (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancer" "(done_dialog 0)")<br />     (action_tile "bt_selectline" "(done_dialog 2)")<br />     (setq dd (start_dialog))<br />     (if  (= dd 2)<br />       progn<br />       (<br />        (initget 1)<br />   (setq p (getpoint "\nPlease get a point:"))<br />   (setq x (car p) y (cadr p))<br />       )<br />       ;<br />     )<br />     <br /> ; )<br />   (if (= dd 0)<br />     (print "00")<br />   )<br />   (if (= dd 1)<br />     (print "11")<br />   )<br />   (unload_dialog dcl_id)<br />   (setvar "osmode" osm)<br />   <br /> )<br />

按窗体上的第一个按钮（选择直线<）时，我想在屏上选择一点。我点击时实际执行了。但是窗体不隐藏。不知道为什么？点“确定”按钮后会执行我选点时的命令。

川雪

注册后提问的第一个问题，请大家多多帮忙。

菜卷鱼

不知道你讲的啥意思，但是我觉得这样是正常的

1. (defun c:cx (/ osm dcl_id dd p x y)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq osm (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (setq
   
6.     dcl_id (load_dialog "D:\\abc.dcl")
   
7.   )
   
8.   (setq dd 2)
   
9.   (while (> dd 1)
   
10.     (new_dialog "attline" dcl_id)
    
11.     (action_tile "accept" "(done_dialog 1)")
    
12.     (action_tile "cancer" "(done_dialog 0)")
    
13.     (action_tile "bt_selectline" "(done_dialog 2)")
    
14.     (setq dd (start_dialog))
    
15.     (cond
    
16.       ((= dd 2)
    
17.        (progn
    
18.          (initget 1)
    
19.          (setq p (getpoint "\nPlease get a point:"))
    
20.          (setq x (car p)
    
21.                y (cadr p)
    
22.          )
    
23.        )
    
24.       )
    
25.       ((= dd 0)
    
26.        (print "00")
    
27.       )
    
28.       ((= dd 1)
    
29.        (print "11")
    
30.       )
    
31.     )
    
32.   )
    
33.   (unload_dialog dcl_id)
    
34.   (setvar "osmode" osm)
    
35.   (prin1)
    
36. )

(defun c:cx (/ osm dcl_id dd p x y)<br />   (setvar "cmdecho" 0)<br />   (setq osm (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq<br />     dcl_id (load_dialog "D:\\abc.dcl")<br />   )<br />   (setq dd 2)<br />   (while (> dd 1)<br />     (new_dialog "attline" dcl_id)<br />     (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancer" "(done_dialog 0)")<br />     (action_tile "bt_selectline" "(done_dialog 2)")<br />     (setq dd (start_dialog))<br />     (cond<br />       ((= dd 2)<br />        (progn<br />          (initget 1)<br />          (setq p (getpoint "\nPlease get a point:"))<br />          (setq x (car p)<br />                y (cadr p)<br />          )<br />        )<br />       )<br />       ((= dd 0)<br />        (print "00")<br />       )<br />       ((= dd 1)<br />        (print "11")<br />       )<br />     )<br />   )<br />   (unload_dialog dcl_id)<br />   (setvar "osmode" osm)<br />   (prin1)<br /> )

自贡黄明儒

是你while中写错了吧
"新终点坐标："key="line_zhongzuobiao_new"。在while中没有

川雪

菜卷鱼 发表于 2022-4-29 09:15
不知道你讲的啥意思，但是我觉得这样是正常的

谢谢，终于解决了。我当初对着教学截图看了一天。都没发现问题，原来问题在最上边。谢谢，真得非常谢谢。

川雪

自贡黄明儒 发表于 2022-4-29 09:27
是你while中写错了吧
"新终点坐标："key="line_zhongzuobiao_new"。在while中没有

谢谢。按三楼的方法解决了。非常感谢。