明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 479|回复: 2

[提问] 求助:切换开关的使用

[复制链接]
发表于 2018-9-24 23:51 | 显示全部楼层 |阅读模式
求助大神,切换开关是怎么操作的。不打勾时禁用,打勾时启用。查了好久都没有相关资料。


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-9-25 16:38 | 显示全部楼层
  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. )

 楼主| 发表于 2018-9-25 16:43 | 显示全部楼层
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 17:24 , Processed in 0.149278 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表