乐筑天下

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

[编程交流] “收音机”选项1和选项2

[复制链接]
mitchellrodhous

10

主题

56

帖子

46

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 10:52:12 | 显示全部楼层 |阅读模式
大家好，我想知道感觉代码出了什么问题？>>
 
LISP文件>>>
 
  2.  ;;;--- If the "Okay" button was pressed
  3.  (if (= ddiag 2)
  5.    (if(= radios "choice1")
  6.  (progn
  7.       (setq ip (getpoint "\n Center point: "))
  8.       (command "circle" ip pause)
  9.  )
  10.      ;;;--- Else draw a polygon
  11.  (progn
  12.    (setq ip (getpoint "\n Center Point: "))
  13.    (command "_sphere" ip pause)
  14.  )
  15.  )
  17.  )

 
 
DCL代码>>>
 
  1. samp6 : dialog {    //dialog name
  2.      label = "Cabinet Drawer V2.1" ;  //give it a label
  4.       : column {
  5.       : row {     //define row
  7.       : boxed_column {    //define radio column
  8.       : radio_column {
  9.       key = "radios" ;
  10.       label = "Type" ;    //give it a label
  13.        : radio_button {   //define radion button
  14.        key = "choice1" ;   //give it a name
  15.        label = "Cabinet free standing" ; //give it a label
  16.        value = "1" ;    //switch it on
  17.        }     //end definition
  19.      : radio_button {   //define radio button
  20.        key = "choice2" ;   //give it a name
  21.        label = "Cabinet with back" ;  //give it a label
  22.      }     //end definition
  23.      }
  24.      }
  26.        }     //end radio column
  27.        }     //end row

 
在这段代码中，它总是画一个_球体，没有圆。。。。
致以最诚挚的问候
回复

使用道具 举报

jammie

5

主题

194

帖子

193

银币

初来乍到

Rank: 1

铜币
24
发表于 2022-7-6 11:43:42 | 显示全部楼层
你好
 
也许以下是一种选择
 
  1. (defun c:foo (/ DCL_File DclId toggle ip)
  3.  (setq DCL_File "samp6.dcl")
  5.  (if
  6.    (not
  7.      (minusp
  8. (setq DclId (load_dialog DCL_File)))
  9.      )
  11.    (progn
  13.      ;Create dialog
  14.      (new_dialog "samp6" DclId)
  15.      ;When user hits ok return value of first radio button
  16.      (action_tile
  17. "accept"
  18. "(setq toggle (get_tile  "choice1"))")
  19.      (start_dialog)
  21.      (if
  22. ;Choice1 highlighted RETVAL toggle = "1"
  23. ;Choice2 highlighted RETVAL toggle = "0"
  24.  (= toggle "1")
  25. (progn
  26.   (setq ip (getpoint "\n Center point: "))
  27.   (command "circle" ip pause))
  28.      ;;;--- Else draw a polygon
  29.      (progn
  30. (setq ip (getpoint "\n Center Point: "))
  31. (command "_sphere" ip pause))
  32.      )
  33.      )
  34.    )
  35.  )

 
  1. samp6 : dialog {    //dialog name
  2.      label = "Cabinet Drawer V2.1" ;  //give it a label
  4.       : column {
  5.       : row {     //define row
  7.       : boxed_column {    //define radio column
  8.       : radio_column {
  9.       key = "radios" ;
  10.       label = "Type" ;    //give it a label
  13.        : radio_button {   //define radion button
  14.        key = "choice1" ;   //give it a name
  15.        label = "Cabinet free standing" ; //give it a label
  16.        value = "1" ;    //switch it on
  17.        }     //end definition
  19.      : radio_button {   //define radio button
  20.        key = "choice2" ;   //give it a name
  21.        label = "Cabinet with back" ;  //give it a label
  22.      }     //end definition
  23.      }
  24.      }
  26.     
  28.        }     //end radio column
  29.       
  30.        }     //
  32.       ok_only ;
  33.       }

 
当做
 
杰米
回复

使用道具 举报

mitchellrodhous

10

主题

56

帖子

46

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 12:02:32 | 显示全部楼层
嗯，现在我认为这是不正确的提交。。。我应该设置整个代码。。。我做了我自己。也许我忘了什么，我在一个先发球场。。。。
 
Lisp程序
  2. (defun C:samp6()
  3.  ;;;--- Load the dcl file
  4.  (setq dcl_id (load_dialog "samp6.dcl"))
  5.  ;;;--- Load the dialog definition if it is not already loaded
  6.  (if (not (new_dialog "samp6" dcl_id))
  7.    (progn
  8.     (alert "The samp6.DCL file could not be loaded!")
  9.      (exit)
  10.    )
  11.  )
  12.  ;;;--- If an action event occurs, do this function
  13.  (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
  14.  (action_tile "accept" "(setq ddiag 2)(done_dialog)")
  16. ;;;--- Display the dialog box
  17.  (start_dialog)
  18.  ;;;--- Unload the dialog box
  19.  (unload_dialog dcl_id)
  20. ;;;--- If the cancel button was pressed - display message
  21.  (if (= ddiag 1)
  22.    (princ "\n \n ...samp6 Cancelled. \n ")
  23.  )
  24.  ;;;--- If the "Okay" button was pressed
  25.  (if (= ddiag 2)
  26.  (if(= radios "choice1")
  27.  (progn
  28.    (setq pt(getpoint "\n Center point: "))
  29.    (command "circle" pt pause)
  30.  )
  31.  ;;;--- Else draw a sphere
  32.  (progn
  33.    (setq pt(getpoint "\n Center Point: "))
  34.    (command "_sphere" pt pause)
  35.  )
  36.  )
  38.  )
  40.  ;;;--- Suppress the last echo for a clean exit
  41.  (princ)
  42. )

 
Dcl。。
 
  1. samp6 : dialog {    //dialog name
  2.      label = "Cabinet Drawer V2.1" ;  //give it a label
  4.       : column {
  5.       : row {     //define row
  7.       : boxed_column {    //define radio column
  8.       : radio_column {
  9. label = "Type" ;   //give it a label
  10.        key = "radios" ;
  14.        : radio_button {   //define radion button
  15.        key = "choice1" ;   //give it a name
  16.        label = "Cabinet free standing" ; //give it a label
  17.        value = "0" ;    //switch it on
  18.        }     //end definition
  20.      : radio_button {   //define radio button
  21.        key = "choice2" ;   //give it a name
  22.        label = "Cabinet with back" ;  //give it a label
  23.        value = "0" ;
  24.      }     //end definition
  25.      }
  26.      }
  28.        }     //end radio column
  29.        }     //end row
  30.        
  32.        : boxed_column {   //define boxed column
  33.          label = "&Size";   //give it a label
  36.        : edit_box {    //define edit box
  37.          key = "eb1" ;    //give it a name
  38.          label = "Length :" ;   //give it a label
  39.          edit_width = 10 ;   //30 characters
  40.          value = "";
  41.        }     //end edit box
  42.      //end edit box
  43.   : edit_box {    //define edit box
  44.            key = "eb2" ;   //give it a name
  45.            label = "Widht :" ;   //give it a label
  46.            edit_width = 10 ;   //30 characters
  47.            value = "";
  48.        }     //end edit box
  49.      //end edit box
  50.   : edit_box {    //define edit box
  51.            key = "eb3" ;   //give it a name
  52.            label = "Depth :" ;   //give it a label
  53.            edit_width = 10 ;   //30 characters
  54.            value = "";
  55.        }     //end edit box
  56.      //end edit box
  58.   : edit_box {    //define edit box
  59.            key = "eb4" ;   //give it a name
  60.            label = "Materialethickness :" ; //give it a label
  61.            edit_width = 10 ;   //30 characters
  62.            value = "";
  63.        }     //end edit box
  64.      //end edit box
  66.       }     //end boxed column
  67.        : boxed_column {   //define boxed column
  68.          label = "&Specifics";   //give it a label
  72.        : edit_box {    //define edit box
  73.          key = "eb5" ;    //give it a name
  74.          label = "Back offset :" ;  //give it a label
  75.          edit_width = 10 ;   //30 characters
  76.          value = "";
  77.        }     //end edit box
  78.      //end edit box
  79.        : edit_box {    //define edit box
  80.          key = "eb6" ;    //give it a name
  81.          label = "Thickness back :" ;  //give it a label
  82.          edit_width = 10 ;   //30 characters
  83.          value = "";
  84.        }     //end edit box
  85.      //end edit box
  86.       }     //end boxed column
  88.    :toggle{
  89.      key = "save";
  90.      label = "Save Settings";
  91.      value = 1;
  92.     }
  96.     ok_cancel ;    //predifined OK/Cancel
  98.     : row {     //define row
  100.     : image {     //define image tile
  101.     key = "im" ;    //give it a name
  102.     height = 1.0 ;    //and a height
  103.     width = 1.0 ;    //and now a width
  104.     }      //end image
  106.     : paragraph {    //define paragraph
  108.     : text_part {    //define text
  109.     label = "Designed and Created";  //give it some text
  110.     }      //end text
  112.     : text_part {    //define more text
  113.     label = "By MR. CAD - MITCHELL RODHOUSE"; //some more text
  114.     }      //end text
  116.     }      //end paragraph
  118.     }      //end row
  120.     }      //end dialog

 
我也相信我一定要救人？我不知道这意味着什么。。。
希望你能在……方面提供帮助。。。
ps1：“通知”。它会打开一个对话框，别提tekst。。它只需通过选择选项1或选项2来绘制球体和圆。
 
致以最诚挚的问候
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 16:53 , Processed in 0.627388 second(s), 58 queries .

© 2020-2025 乐筑天下

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