如何将各种命令放置于对话框上
本帖最后由 changyiran 于 2014-11-25 22:30 编辑如附件中的图片所示，这个自定义四至线对话框是我通过命令调出来的，第一列是编辑框，第二列是按钮控件，我的本意是想让用户在编辑框中自定义好内容，然后点击对应后面的按钮，就能画出带有编辑框中输入内容值属性的一条多段线。我感觉我的思路可能不对，请大神们给予给正确方法！ 还有，我点击对话框上的任意一个按钮控件时对话框就消失了，我不想让他消失该怎么办，因为我还想点击其他按钮以进行另外一个操作。我感觉我这种靠命令方式调出对话框的方法不对，但我不知道该如何才能实现我想要的，请各位大侠指教。 changyiran 发表于 2014-11-25 21:23 static/image/common/back.gif
还有，我点击对话框上的任意一个按钮控件时对话框就消失了，我不想让他消失该怎么办，因为我还想点击其他按 ...
版主指点下啊，给个链接也行，我搜了半天没搜到。 (defun c:tt (/ ilst)
(defun abu1 () (alert d1))
(defun abu2 () (alert d2))
(defun abu3 () (alert d3))
(defun abu4 () (alert d4))
(xyp-initSet '(d1 d2 d3 d4) '("AA" "BB" "CC" "DD"))
(setq ilst '(":row{"
("d1" "" "str" "8")
("bu1" "画线" "button" "(abu1)")
"}"
":row{"
("d2" "" "str" "8")
("bu2" "画线" "button" "(abu2)")
"}"
":row{"
("d3" "" "str" "8")
("bu3" "画线" "button" "(abu3)")
"}"
":row{"
("d4" "" "str" "8")
("bu4" "画线" "button" "(abu4)")
"}"
)
)
(xyp-Dcl-Init Ilst "【测试】" t)
(princ)
)
页:
[1]