[求助]：为什么显示不了对话框？

bdgxhmldzj

我编辑了一个对话框，以及运行这个对话框的LISP程序，但却显示不了对话框，AUTOCAD提示错误为该对话框没有“确定”、“退出”按钮，不知哪里出了错？
DCL程序如下：
leftview_box : dialog {
                 label = "左视图";                 
                 : image {
                     key = "left_image";
                     width = 25;
                     aspect_ratio = 1.0;
                     color = 0;
                 }
                 : radio_row {
                     : radio_button {
                         label = "有断开线";
                         key = "break";
                         value = "0";
                     }
                     : radio_button {
                         label = "无断开线";
                         key = "nbreak";
                         value = "0";
                     }
                 }
                 : edit_box {
                     label = "实际长度：";
                     key = "truesize";
                     width = 8;
                 }
                 : row {
                     : edit_box {
                         label = "绘制长度：";
                         key = "drawsize";
                         width = 8;
                     }
                     : toggle {
                         label = "窗口指定";
                         key = "winsize";                             
                     }
                 }
                 : radio_row {
                     label = "断开线";
                     : radio_button {
                         label = "居中";
                         key = "midbreak";
                     }
                     : radio_button {
                         label = "窗口指定";
                         key = "winbreak";
                     }
                 }
                 : row {
                     : button {
                         label = "指定端点<";
                         key = "accept";
                         width = 8;
                         fixed_width = true;
                     }
                     : button {
                         label = "取消";
                         key = "cancel";
                         width = 8;
                         fixed_width = true;
                     }                        
                 }
                 :spacer {width = 1;}                 
                 errtile;
             }

LISP程序如下：
(defun c:left ()
  (setq dcl_id (load_dialog "leftview.dcl"))
  (if (not (new_dialog "leftview_box" dcl_id)) (exit))
  (set_tile "break" "1")
  (setq        x (dimx_tile "left_image")
        y (dimy_tile "left_image")
  )
  (start_image "left_image")
  (fill_image 0 0 x y -2)
  (slide_image
    0                                 -30
    x                                 y
    "d:/AutoCAD 2005/develop/script/bleft_type"
   )
  (end_image)
  (set_tile "midbreak" "1")
  (action_tile
    "break"
    "(setq key1 $key val1 $value)(breakselect)"
  )
  (action_tile
    "nbreak"
    "(setq key1 $key val1 $value)(breakselect)"
  )
  (action_tile "truesize" "(setq tsize $value)")
  (action_tile "drawsize" "(setq dsize $value)")
  (action_tile
    "winsize"
    "(mode_tile \"drawsize\" \"0\")"
  )
  (action_tile "midbreak" "(break 1)")
  (action_tile "winbreak" "(break 2)")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (start_dialog)
  (unload_dialog dcl_id)
)

请各位大侠帮忙分析一下。

caddog

: row {
                : button {
                        label = "指定端点<";
                        key = "accepty";
                        width = 8;
                        fixed_width = true;
                }
                : button {
                        label = "取消";
                        key = "cancel";
                        width = 8;
                        fixed_width = true;
                }
        }
就是这里出的问题吧。和系统定义好的确定和放弃的KEY值相同了。改为其它，再在后面加上ok_cancel;　或是ok_cancel_help; 的就行了。如果一定要用“指定端点＜”来代替确定键，可以尝试“自定义退出按钮文本”，我改了一下，请看一面：
pick_button : retirement_button {
               label = "指定端点(&<)";
               key = "accept";

}
pick_cancel_help : column {
              : row {
                 fixed_width = true;
                 alignment = centered;
                 pick_button;
                 : spacer { width = 2; }
                 cancel_button;
                 : spacer { width = 2; }
                 help_button;
              }

}
//上面就是自定义按钮哈
leftview_box : dialog {
        label = "左视图";
        : image {
                key = "left_image";
                width = 25;
                aspect_ratio = 1.0;
                color = 0;
        }
        : radio_row {
                : radio_button {
                        label = "有断开线";
                        key = "break";
                        value = "0";
                }
                : radio_button {
                        label = "无断开线";
                        key = "nbreak";
                        value = "0";
                }
        }
        : edit_box {
                label = "实际长度：";
                key = "truesize";
                width = 8;
        }
        : row {
                : edit_box {
                        label = "绘制长度：";
                        key = "drawsize";
                        width = 8;
                }
                : toggle {
                        label = "窗口指定";
                        key = "winsize";
                }
        }
        : radio_row {
                label = "断开线";
                : radio_button {
                        label = "居中";
                        key = "midbreak";
                }
                : radio_button {
                        label = "窗口指定";
                        key = "winbreak";
                }
        }
//        : row {
//                : button {
//                        label = "指定端点<";
//                        key = "accepty_my";
//                        width = 8;
//                        fixed_width = true;
//                }
//                : button {
//                        label = "取消";
//                        key = "cancel_my";
//                        width = 8;
//                        fixed_width = true;
//                }
//        }
        pick_cancel_help; //注意这里
        :spacer {width = 1;}
        //ok_cancel;
        //ok_only;
        errtile;       

}
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
在下面附上AUTOCAD帮助中相关内容：

对于某些对话框，您可能想修改一个退出按钮中的文本内容。例如，如果创建一个用于删除数据的对话框，则将“确定”按钮改为“删除”可能会更安全一些。要做到这一点，可以如下使用 retirement_button 控件原型：

destroy_button : retirement_button {
               label = "删除(&D)";
               key = "destroy";

}

注意 label 属性中与 (&) 符号的用法，它为控件指定一个助记符。这样，按钮标签中的字母 D 被指定为助记符，并且该字母带下划线。
注意 在自定义退出按钮组件时，最好使用从 base.dcl 文件中取出适当的 DCL 代码，而不要引用某本手册中的代码。
定义了自定义的退出按钮之后，需要将其嵌入到符合标准控件组外观和功能的组件中。以下样例显示 ok_cancel_help 组件的当前定义：

ok_cancel_help : column {
             : row {
                fixed_width = true;
                alignment = centered;
                ok_button;
                : spacer { width = 2; }
                cancel_button;
                : spacer { width = 2; }
                help_button;
              }

}

如下创建一个新的组件，用新按钮替换 ok_button：

destroy_cancel_help : column {
              : row {
                 fixed_width = true;
                 alignment = centered;
                 destroy_button;
                 : spacer { width = 2; }
                 cancel_button;
                 : spacer { width = 2; }
                 help_button;
              }

}

在标准组件中，“确定”按钮是缺省按钮，但其属性没有添加到 destroy_button 中。然而，如果对话框的操作具有一定的破坏性（或非常耗时），则强烈建议您将“取消”按钮设置为缺省按钮。这样，此按钮既是缺省按钮，同时又是取消按钮：

destroy_cancel_help : column {
              : row {
                 fixed_width = true;
                 alignment = centered;
                 destroy_button;
                 : spacer { width = 2; }
                 : cancel_button { is_default = true; }
                 : spacer { width = 2; }
                 help_button;
              }

}

因为有一个属性被修改了，原先的“取消”按钮在此作为一个控件原型。同时在 cancel_button 前面添加了一个冒号。
警告！ 如果“取消”按钮和缺省按钮是同一个按钮（is_default 和 is_cancel 都被设置为 true），同时没有将调用函数 done_dialog 的操作指定给其他按钮，则除了此按钮以外，其他按钮都无法退出对话框，对话框只能通过取消被关闭。

bdgxhmldzj

谢谢！但得好好消化消化。