[求助]问一个列表框的问题

蒋光锐

在我的程序里面定义了一个列表框，key="symbol"
然后下面是我写的一个初始化的驱动
  (start_list "symbol" 3)
  (mapcar 'add_list symbol0)
  (set_tile "symbol" "0")
(end_list)
我想把用symbol0定义的一个字符串表作为symbol的表项
然后默认的选项value = 0
但是做出来以后
(start_list "symbol" 3)
返回值为nil，不是帮助文件上说的The name of the list that was started.
当然也就得不到我想要的结果，列表框里面什么也没有
请问这是什么意思啊？

[/QUOTE][/QUOTE]

meflying

这样表示(start_list..) 失败，你最好把你的*.DCL文件传上来，看你的情况应该是它错了。[br]

蒋光锐

zhou:dialog{//定义名字为zhou的对话框
        label = "draw axletree";
        :row{//引用行
                :image
                {//引用图像控件
                        width = 30;
                        height = 12;
                        key = "img_axl";
                        color = 2;
                }//图像引用结束
                :boxed_column{//引用加框列
                        label = "Choose";
                        :popup_list{//引用下拉列表1
                                label = "axletree series";        //轴承系列
                                value = "0";
                                list = "0 series\n2 series\n3 series\n4 series";
                                key = "series";
                                alignment = "centered";
                        }//引用下拉列表1结束
                        :popup_list{//引用下拉列表2
                                label = "axletree symbol";        //轴承代号
                                list = "6000\n6001\n6002\n6003\n6004\n6005\n6006\n6007\n6008\n6009\n6010\n6011\n6012\n6013\n6014\n6015\n6016\n6017\n6018\n6019\n6020";
                                value = "0";
                                alignment = "centered";
                                key = "symbol";
                        }//引用下拉列表2结束
                }//加框列引用结束
                :column{//引用列
                        :boxed_column{//引用加框列
                                label = "basic parameter";
                                :edit_box{//引用编辑框1
                                        label = "B(mm):";
                                        key = "B";
                                        edit_width = 8;
                                        is_enabled = false;
                                }//引用编辑框1结束
                                :edit_box{//引用编辑框2
                                        label = "d(mm):";
                                        key = "D1";
                                        edit_width = 8;
                                        is_enabled = false;
                                }//引用编辑框2结束
                                :edit_box{//引用编辑框3
                                        label = "D(mm):";
                                        key = "D2";
                                        edit_width = 8;
                                        is_enabled = false;
                                }//引用编辑框3结束
                        }//引用加框列结束
                        :button{//引用按钮
                                label = "pick center...";
                                key = "pick";
                        }//引用按钮结束
                }//引用列结束
        }//行引用结束
        ok_cancel;//引用ok_cancel组合控件
}

[此贴子已经被作者于2003-4-26 20:08:36编辑过]

meflying

;我的调试程序：
(defun Dlg:hello2()
  (setq dcl_id (load_dialog "e:\\jgr.dcl"))                ;加载 DCL 文件
  (if (not (new_dialog "zhou" dcl_id))                                                ;初始化对话框  
    (progn
      (princ"Can't open the file \"tmp.dcl\" or the file is error")
      (exit)                                                                                ;如果不工作就退出
      )
  )
  (setq symbol0 '("abc"))
  (start_list "symbol" 3)
  (mapcar 'add_list symbol0)
  ;(set_tile "symbol" "0")
  (end_list)
  (start_dialog)
  (unload_dialog dcl_id)
  strtemp
)

注意 不要在 start_list 和 end_list 函数调用之间使用 set_tile 函数。