我自己也有点进步。。。也许有人能给我解释一下。。。。
我在dcl代码中用红色和绿色标记了一些东西。。
- samp6 : dialog { //dialog name
- label = "Cabinet Drawer V2.1" ; //give it a label
- : row { //define row
- :boxed_radio_column { //define radio column
- label = "Type" ; //give it a label
- : radio_button { //define radion button
- key = "[color=darkgreen]rb1[/color]" ; //give it a name
- label = "Cabinet free standing" ; //give it a label
- value = "1" ; //switch it on
- } //end definition
- : radio_button { //define radio button
- key = "[color=darkgreen]rb2[/color]" ; //give it a name
- label = "Cabinet with back" ; //give it a label
- } //end definition
- } //end radio column
- } //end row
- : boxed_column { //define boxed column
- label = "&Size"; //give it a label
-
- : edit_box { //define edit box
- key = "[color=red]eb1[/color]" ; //give it a name
- label = "Length :" ; //give it a label
- edit_width = 10 ; //30 characters
- } //end edit box
- //end edit box
- : edit_box { //define edit box
- key = "[color=red]eb2[/color]" ; //give it a name
- label = "Widht :" ; //give it a label
- edit_width = 10 ; //30 characters
- } //end edit box
- //end edit box
- : edit_box { //define edit box
- key = "[color=red]eb3[/color]" ; //give it a name
- label = "Depth :" ; //give it a label
- edit_width = 10 ; //30 characters
- } //end edit box
- //end edit box
- : edit_box { //define edit box
- key = "[color=red]eb4[/color]" ; //give it a name
- label = "Materialethickness :" ; //give it a label
- edit_width = 10 ; //30 characters
- } //end edit box
- //end edit box
-
- } //end boxed column
- : boxed_column { //define boxed column
- label = "&Specifics"; //give it a label
-
- : edit_box { //define edit box
- key = "[color=red]eb5[/color]" ; //give it a name
- label = "Back offset :" ; //give it a label
- edit_width = 10 ; //30 characters
- } //end edit box
- //end edit box
- : edit_box { //define edit box
- key = "[color=red]eb6[/color]" ; //give it a name
- label = "Thickness back :" ; //give it a label
- edit_width = 10 ; //30 characters
- } //end edit box
- //end edit box
- } //end boxed column
-
- ok_cancel ; //predifined OK/Cancel
- : row { //define row
- : image { //define image tile
- key = "im" ; //give it a name
- height = 1.0 ; //and a height
- width = 1.0 ; //and now a width
- } //end image
- : paragraph { //define paragraph
- : text_part { //define text
- label = "Designed and Created"; //give it some text
- } //end text
- : text_part { //define more text
- label = "By MR. CAD - MITCHELL RODHOUSE"; //some more text
- } //end text
- } //end paragraph
- } //end row
-
- } //end dialog
我想用红色标记的falues作为我用绿色标记的lisp的falues。（如果它在命令行中询问我想在这个对话框中输入的错误，我已经编写了lisp文件）。
还有一件事，我想通过点击单选按钮激活两个lisp文件中的一个。
任何帮助都将不胜感激！
致以最诚挚的问候
| 
置顶卡
