如何将各种命令放置于对话框上

changyiran

如附件中的图片所示，这个自定义四至线对话框是我通过命令调出来的，第一列是编辑框，第二列是按钮控件，我的本意是想让用户在编辑框中自定义好内容，然后点击对应后面的按钮，就能画出带有编辑框中输入内容值属性的一条多段线。我感觉我的思路可能不对，请大神们给予给正确方法！

changyiran

还有，我点击对话框上的任意一个按钮控件时对话框就消失了，我不想让他消失该怎么办，因为我还想点击其他按钮以进行另外一个操作。我感觉我这种靠命令方式调出对话框的方法不对，但我不知道该如何才能实现我想要的，请各位大侠指教。

changyiran

changyiran 发表于 2014-11-25 21:23
还有，我点击对话框上的任意一个按钮控件时对话框就消失了，我不想让他消失该怎么办，因为我还想点击其他按 ...

版主指点下啊，给个链接也行，我搜了半天没搜到。

xyp1964

2. (defun c:tt (/ ilst)
   
3.   (defun abu1 () (alert d1))
   
4.   (defun abu2 () (alert d2))
   
5.   (defun abu3 () (alert d3))
   
6.   (defun abu4 () (alert d4))
   
7.   (xyp-initSet '(d1 d2 d3 d4) '("AA" "BB" "CC" "DD"))
   
8.   (setq        ilst '(":row{"
   
9.                ("d1" "" "str" "8")
   
10.                ("bu1" "画线" "button" "(abu1)")
    
11.                "}"
    
12.                ":row{"
    
13.                ("d2" "" "str" "8")
    
14.                ("bu2" "画线" "button" "(abu2)")
    
15.                "}"
    
16.                ":row{"
    
17.                ("d3" "" "str" "8")
    
18.                ("bu3" "画线" "button" "(abu3)")
    
19.                "}"
    
20.                ":row{"
    
21.                ("d4" "" "str" "8")
    
22.                ("bu4" "画线" "button" "(abu4)")
    
23.                "}"
    
24.               )
    
25.   )
    
26.   (xyp-Dcl-Init Ilst "【测试】" t)
    
27.   (princ)
    
28. )

(defun c:tt (/ ilst)<br />   (defun abu1 () (alert d1))<br />   (defun abu2 () (alert d2))<br />   (defun abu3 () (alert d3))<br />   (defun abu4 () (alert d4))<br />   (xyp-initSet '(d1 d2 d3 d4) '("AA" "BB" "CC" "DD"))<br />   (setq        ilst '(":row{"<br />                ("d1" "" "str" "8")<br />                ("bu1" "画线" "button" "(abu1)")<br />                "}"<br />                ":row{"<br />                ("d2" "" "str" "8")<br />                ("bu2" "画线" "button" "(abu2)")<br />                "}"<br />                ":row{"<br />                ("d3" "" "str" "8")<br />                ("bu3" "画线" "button" "(abu3)")<br />                "}"<br />                ":row{"<br />                ("d4" "" "str" "8")<br />                ("bu4" "画线" "button" "(abu4)")<br />                "}"<br />               )<br />   )<br />   (xyp-Dcl-Init Ilst "【测试】" t)<br />   (princ)<br /> )

xyp1964