怎樣實現image_button可以象button一樣只按一次就可以執行一個動作?而不需要雙擊圖

twinpen

怎樣實現image_button可以象button一樣只按一次就可以執行一個動作?而不需要雙擊圖標.[br]怎样实现image_button可以象button一样只按一次就可以执行一个动作?而不需要双击图标.

alin

Same as the button


(action_tile "[I]image_button key here[/I]" "([I]your function name here[/I])")

xjjy

DCL: :image_button{
key="XXX";
width=55;
height=15;
color=-2;
} LSP: (action_tile "XXX" "(YOURFUN)")

twinpen

非常的感谢楼上二位兄台的指点迷津!问题解决!

twinpen

对话框关闭不了,动作无法执行 (defun c:col_lty (/ os dcl_id key_list sld_list com_list dd com num)
(setvar "cmdecho" 0)
(command "undo" "be")
(setq os (getvar "osmode"))
(setq dcl_id (load_dialog "col_lty.dcl"))
(if (< dcl_id 0)
(exit)
)
(if (not (new_dialog "col_lty" dcl_id))
(exit)
)
(setq key_list (list "a1" "a2" "a3" "b1" "b2" "b3" "c1" "c2" "c3"))
(setq sld_list (list "A1.sld" "A2.sld" "A3.sld"
"B1.sld" "B2.sld" "B3.sld"
"C1.sld" "C2.sld" "C3.sld"
)
) ;幻灯片列表
(col_lty_initdata)
(action_tile "a1" "(coma1)")
(action_tile "a2" "(coma2)")
(action_tile "a3" "(coma3)")
(action_tile "b1" "(comb1)")
(action_tile "b2" "(comb2)")
(action_tile "b3" "(comb3)")
(action_tile "c1" "(comc1)")
(action_tile "c2" "(comc2)")
(action_tile "c3" "(comc3)")
(action_tile "cancel" "(done_dialog 0)")
(setq dd (start_dialog))
(unload_dialog dcl_id)
(setvar "osmode" os)
(command "undo" "e")
(princ)
)

spring

又没对话框,程序又不完整别人怎么给你测试啊

twinpen

(defun c:col_lty (/ os dcl_id sld_list dd)
(setvar "cmdecho" 0)
(command "undo" "be")
(setq os (getvar "osmode"))
(setq dcl_id (load_dialog "col_lty.dcl"))
(if (< dcl_id 0)
(exit)
)
(if (not (new_dialog "col_lty" dcl_id))
(exit)
)
(setq sld_list (list "A1.sld" "A2.sld" "A3.sld"
"B1.sld" "B2.sld" "B3.sld"
"C1.sld" "C2.sld" "C3.sld"
)
) ;幻灯片列表
(col_lty_initdata)
(action_tile "a1" "(done_dialog 1)")
(action_tile "a2" "(done_dialog 2)")
(action_tile "a3" "(done_dialog 3)")
(action_tile "b1" "(done_dialog 4)")
(action_tile "b2" "(done_dialog 5)")
(action_tile "b3" "(done_dialog 6)")
(action_tile "c1" "(done_dialog 7)")
(action_tile "c2" "(done_dialog 8)")
(action_tile "c3" "(done_dialog 9)")
(action_tile "cancel" "(done_dialog 0)")
(setq dd (start_dialog))
(unload_dialog dcl_id)
(if (= dd 1)
(coma1)
)
(if (= dd 2)
(coma2)
)
(if (= dd 3)
(coma3)
)
(if (= dd 4)
(comb1)
)
(if (= dd 5)
(comb2)
)
(if (= dd 6)
(comb3)
)
(if (= dd 7)
(comc1)
)
(if (= dd 8)
(comc2)
)
(if (= dd 9)
(comc3)
)
(setvar "osmode" os)
(command "undo" "e")
(princ)
)