乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 15|回复: 15

[编程交流] DCL,单选按钮/切换按钮,但

[复制链接]

27

主题

182

帖子

163

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
139
发表于 2022-7-5 19:38:40 | 显示全部楼层 |阅读模式
你好
 
几天来,我与DCL和Lisp一起工作,并产生了一些疑问:
 
1-单选按钮:
1.1-有没有办法在当前选中的单选按钮的数字“x”之间进行检查?
1.2-为了运行代码并选择第一个项目,我在DCL文件上使用:is_enabled=true(它只在该项目上放置一个点,但不在那里单击选择它,换句话说,只显示一个点图像)。在我编写的lisp代码中,我试图执行一个动作:(set_tile“rb1”1),但不起作用,与单击那里的方式不同。
2-toggle_按钮。
2.1-第一次按下切换按钮时(在被选择之前),切换按钮可以执行动作,可以“取消选择”执行一个动作吗?
例如:当我选择切换时,我显示一个图像,但当我取消选择时,图像需要更改,有什么方法吗?
 
提前感谢您的帮助!。。。
回复

使用道具 举报

rlx

21

主题

1505

帖子

1551

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
81
发表于 2022-7-5 19:46:12 | 显示全部楼层
只是一段代码:
 
 
(action_tile“tg\u ct\u matchtextcase”“(setq#matchtextcase$value)”)
 
(action_tile“rb\u ct\u range\u e”“(setq#useextends$value)(ct\u SelectRange\u e)”)
(action_tile“rb\u ct\u range\u w”“(setq#usevent$value)(ct\u SelectRange\u w)”)
 
第一行是关于切换的,我只知道$value。如果你想开始一个动作,你必须添加一个对另一个例程的调用,或者用done\u对话框关闭你的对话框。
 
 
其他2行用于单选按钮。每个单选按钮都有自己的唯一名称。我的变量#useextends可以是“1”或“0”。捕捉到这个值后,程序将转到另一个例程(在我的示例中是CT\u SelectRange\u e),供您使用自己的例程。在那里,你可以做任何你喜欢的事,开始程序的另一部分,更新幻灯片。。。
 
您可以使用done\u dialog离开当前对话框,并根据done\u dialog返回值执行其他操作。。。(完成对话框5)例如
 
 
通常(完成对话框1)表示确定,(完成对话框0)表示取消
 
 
无论如何,你可以通过再次启动来刷新你的对话框,或者有一个单独的例程来这样做,(update\u my\u dialog),在那里你可以在真正启动对话框之前预先设置每个切换、单选按钮
 
 
gr.R。
 
 
顺便说一句(set\u tile“rb1”1)不起作用,请使用(set\u tile“rb1”1)
回复

使用道具 举报

27

主题

182

帖子

163

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
139
发表于 2022-7-5 19:48:58 | 显示全部楼层
 
感谢快速回答rlx!。。。我正在努力理解并应用它!。。。
回复

使用道具 举报

27

主题

182

帖子

163

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
139
发表于 2022-7-5 19:50:42 | 显示全部楼层
 
也没有预期的结果。。。
 
如:
203845zfv0ur9zt0azgoaf.jpg
回复

使用道具 举报

rlx

21

主题

1505

帖子

1551

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
81
发表于 2022-7-5 19:56:42 | 显示全部楼层
对不起,旧的,有时糟糕的编码,但我需要一些快速和简单的你知道。。。也许这些文件可以帮助你
 
 
一个例程我过去用来在我的图纸上放置日期戳,另一个例程我现在仍然用来放大图纸或图像。
 
 
gr.R
日期戳。dcl
日期戳。lsp
ScaleDwg。dcl
ScaleDwg。LSP
回复

使用道具 举报

27

主题

182

帖子

163

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
139
发表于 2022-7-5 19:59:52 | 显示全部楼层
 
别担心,rlx!欢迎任何帮助!。。。我会查的!!!。。。再次感谢!。。。
回复

使用道具 举报

rlx

21

主题

1505

帖子

1551

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
81
发表于 2022-7-5 20:04:30 | 显示全部楼层
要么您将单选按钮分组并以错误的方式切换到一起,要么您必须查看“mode\u tile”功能,该功能使您能够控制启用或禁用(单选)按钮或切换。
回复

使用道具 举报

27

主题

182

帖子

163

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
139
发表于 2022-7-5 20:09:20 | 显示全部楼层
 
我想不会。。。我检查了结构代码,并在一些不同的地方编写了它进行测试,什么都没有。。。我不知道,但set\u互动程序不仅仅与action\u互动程序一起工作?。。。
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-5 20:12:42 | 显示全部楼层
你好
 
坦率地说,我没有理解你的观点,所以你能用代码直接解释你的疑虑吗?
回复

使用道具 举报

27

主题

182

帖子

163

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
139
发表于 2022-7-5 20:18:40 | 显示全部楼层
 
谢谢你的提问。。。我试图了解一些函数是如何工作的,或者是否有一种替代方法。我只在另一个线程中做,不混合的问题。
 
还记得你帮我的那根线吗?(细节)
 
有9个toggle_按钮,因为它们一起工作,有如何获得当前选择哪一个?例如:rbx返回选中的单选按钮数。。。rb1、rb2或rb9。
 
DCL:
  1. Deti        : dialog {                                           //dialog name
  2.                 label = "Detalhamento de instalação"        ; //give it a label
  3.         : row {                                           //*define row
  4.         :boxed_radio_column {                                   //define radio column
  5.                 label = "Ti&po:"                        ; //give it a label
  6.         : radio_button {                                   //define radion button
  7.         key = "rb1"                                 ; //give it a name
  8.                 label = "&C"                                 ; //give it a label
  9.                 value = "1"                                 ; //switch it on
  10.         is_enabled = true ;
  11.         }                                           //end definition
  12.         : radio_button {                                   //define radio button
  13.                 key = "rb2"                                 ; //give it a name
  14.                 label = "&E"                                 ; //give it a label
  15.                 }                                           //end definition
  16. : radio_button {                                   //define radion button
  17.                 key = "rb3"                                 ; //give it a name
  18.                 label = "&X"                                 ; //give it a label
  19.                 }                                           //end definition
  20.         : radio_button {                                   //define radio button
  21.                 key = "rb4"                                 ; //give it a name
  22.                 label = "L&B"                                 ; //give it a label
  23.                 }                                           //end definition
  24.         : radio_button {                                   //define radio button
  25.                 key = "rb5"                                 ; //give it a name
  26.                 label = "L&L"                                 ; //give it a label
  27.                 }                                           //end definition
  28.         : radio_button {                                   //define radio button
  29.                 key = "rb6"                                 ; //give it a name
  30.                 label = "L&R"                                 ; //give it a label
  31.                 }                                          //end definition
  32.         : radio_button {                                   //define radion button
  33.                 key = "rb7"                                 ; //give it a name
  34.                 label = "&T"                                 ; //give it a label
  35.                 }                                           //end definition
  36. : radio_button {                                   //define radion button
  37.                 key = "rb8"                                 ; //give it a name
  38.                 label = "BR"                                 ; //give it a label
  39.                 }                                           //end definition
  40. : radio_button {                                   //define radion button
  41.                 key = "rb9"                                 ; //give it a name
  42.                 label = "LUR"                                 ; //give it a label
  43.                 }                                           //end definition
  44. : boxed_row {                                       
  45.         label = "Sobe / Desce"                        ;
  46. :toggle {                                       
  47.         alignment = centered                        ;
  48.         label = "&Sobe"                                ;
  49.         key = "tog1"                                ;
  50.         value = "0"                                ;
  51. }
  52.         :toggle {
  53.         alignment = centered                        ;
  54.         label = "&Desce"                        ;
  55.         key = "tog2"                                ;
  56.         value = "0"                                ;
  57.         }
  58. }
  59.         }                                                   //end radio column
  60.         : boxed_column {                                   //*define boxed column
  61.                 label = "Bitol&a"                        ; //*give it a label
  62.         : popup_list {                                           //*define popup list
  63.         alignment = centered;
  64.         key = "Bitolas"                                ; //*give it a name
  65.                 value = "1"                                 ; //*initial value
  66.                 }                                           //*end list
  67. :image {height = 3; width = 0;aspect_ratio=0.8;color=0;fixed_height=true;key = "img";}
  68.        
  69. }                                                   //*end boxed column
  70.         }                                                    //*end row
  71.        
  72.         ok_cancel                                         ; //predifined OK/Cancel
  73.         : row {                                           //define row
  74.         : image {                                           //define image tile
  75.         key = "im"                                 ; //give it a name
  76.                 height = 1.0                                 ; //and a height
  77.                 width = 2.0                                 ; //and now a width
  78.                 }                                           //end image
  79.         : paragraph {                                           //define paragraph
  80.         : text_part {                                           //define text
  81.                 label = "Elaborado por:"                ; //give it some text
  82.         }                                           //end text
  83.         : text_part {                                           //define more text
  84.                 label = "José Roberto dos Santos Junior."; //some more text - Credits to Kenny Ramage
  85.                 }                                           //end text
  86.                 }                                           //end paragraph
  87.                       }                                           //end row
  88.         }                                                  //end dialog

 
 
要启动该代码(Deti),如果您没有选择任何单选按钮获取一个错误,这两个操作都不起作用:
 
DCL:is_enabled-仅用点图像填充单选按钮;
LISP:(set_tile“rb1”“1”)-什么也不做。
 
如果可能的话,我试图“强制”代码选择第一个单选按钮作为之前的选择。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 13:52 , Processed in 0.521191 second(s), 74 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表