求助：切换开关的使用

13657880910

求助大神，切换开关是怎么操作的。不打勾时禁用，打勾时启用。查了好久都没有相关资料。

xinrstar

1. (defun c:u7u ()
   
2.   (defun user_dim (value)
   
3.     (if  (= value "1")
   
4.       (mapcar 'mode_tile '("user_d" "user_l") '(0 0))
   
5.       (mapcar 'mode_tile '("user_d" "user_l") '(1 1))
   
6.     )
   
7.   )
   
8.   (setq dcl_id (load_dialog "d:\\popo\\popo"))
   
9.   (new_dialog "popo" dcl_id)
   
10.   (user_dim (get_tile "user_dim"))
    
11. ;;;  (setq user_md (get_tile "user_dim"))
    
12. ;;;  (set_tile "user_dim" user_md)    ;获取自定义尺寸切换开关的值
    
13. ;;;  (if (= user_md "0")
    
14. ;;;    (progn        ;自定义尺寸切换开关为关闭状态时
    
15. ;;;      (mode_tile "user_d" 1)    ;禁用自定义大径编辑框
    
16. ;;;      (mode_tile "user_l" 1)
    
17. ;;;    )          ;禁用自定义长度编辑框
    
18. ;;;    (progn        ;自定义尺寸切换开关为打开状态时
    
19. ;;;      (mode_tile "user_d" 0)    ;禁用自定义大径编辑框
    
20. ;;;      (mode_tile "user_l" 0)
    
21. ;;;    )          ;禁用自定义长度编辑框
    
22. ;;;  )
    
23.   (action_tile "user_dim" "(user_dim $value)")
    
24.   (action_tile "accept" "(done_dialog 1)") ;退出对话框，并返回1
    
25.   (setq dd (start_dialog))
    
26. )
    

(defun c:u7u ()<br />   (defun user_dim (value)<br />     (if  (= value "1")<br />       (mapcar 'mode_tile '("user_d" "user_l") '(0 0))<br />       (mapcar 'mode_tile '("user_d" "user_l") '(1 1))<br />     )<br />   )<br />   (setq dcl_id (load_dialog "d:\\popo\\popo"))<br />   (new_dialog "popo" dcl_id)<br />   (user_dim (get_tile "user_dim"))<br /> ;;;  (setq user_md (get_tile "user_dim"))<br /> ;;;  (set_tile "user_dim" user_md)    ;获取自定义尺寸切换开关的值<br /> ;;;  (if (= user_md "0")<br /> ;;;    (progn        ;自定义尺寸切换开关为关闭状态时<br /> ;;;      (mode_tile "user_d" 1)    ;禁用自定义大径编辑框<br /> ;;;      (mode_tile "user_l" 1)<br /> ;;;    )          ;禁用自定义长度编辑框<br /> ;;;    (progn        ;自定义尺寸切换开关为打开状态时<br /> ;;;      (mode_tile "user_d" 0)    ;禁用自定义大径编辑框<br /> ;;;      (mode_tile "user_l" 0)<br /> ;;;    )          ;禁用自定义长度编辑框<br /> ;;;  )<br />   (action_tile "user_dim" "(user_dim $value)")<br />   (action_tile "accept" "(done_dialog 1)") ;退出对话框，并返回1<br />   (setq dd (start_dialog))<br /> )<br />

13657880910

xinrstar 发表于 2018-9-25 16:38

谢谢大神