求助：切换开关的使用
求助大神，切换开关是怎么操作的。不打勾时禁用，打勾时启用。查了好久都没有相关资料。(defun c:u7u ()
(defun user_dim (value)
(if(= value "1")
(mapcar 'mode_tile '("user_d" "user_l") '(0 0))
(mapcar 'mode_tile '("user_d" "user_l") '(1 1))
)
)
(setq dcl_id (load_dialog "d:\\popo\\popo"))
(new_dialog "popo" dcl_id)
(user_dim (get_tile "user_dim"))
;;;(setq user_md (get_tile "user_dim"))
;;;(set_tile "user_dim" user_md) ;获取自定义尺寸切换开关的值
;;;(if (= user_md "0")
;;; (progn ;自定义尺寸切换开关为关闭状态时
;;; (mode_tile "user_d" 1) ;禁用自定义大径编辑框
;;; (mode_tile "user_l" 1)
;;; ) ;禁用自定义长度编辑框
;;; (progn ;自定义尺寸切换开关为打开状态时
;;; (mode_tile "user_d" 0) ;禁用自定义大径编辑框
;;; (mode_tile "user_l" 0)
;;; ) ;禁用自定义长度编辑框
;;;)
(action_tile "user_dim" "(user_dim $value)")
(action_tile "accept" "(done_dialog 1)") ;退出对话框，并返回1
(setq dd (start_dialog))
)
xinrstar 发表于 2018-9-25 16:38
谢谢大神
页:
[1]