马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
各位大虾速来帮忙!!!!
尤其是action—tile就是弄不明白,以管线号这一栏为例,当我输入值时,lisp程序就是传不回来值
- [FONT=courier new]
- ( defun c:WL()
- (setq weldDialog (load_dialog "d:\\weld"))
- (new_dialog "weld" weldDialog)
- (action_tile "pipeNo" "(setq pipe (get_tile "pipeNo"))")
-
- (start_dialog)
- (princ pipe) ;pipe总是传不会我在对话框输入的值
-
- )
- [/FONT]
- [FONT=courier new]
- weld:dialog {
- label = "焊口标记程序" ;
- :boxed_column {
- label = "管线参数" ;
- :edit_box {
- key = "pipeNo" ;
- label = "管线号" ;
- }
- ok_cancel;
- :row {
- :edit_box {
- alignment = left ;
- edit_width = 8 ;
- key = "pipeOutsideDiameter" ;
- label = "管道外径" ;
- }
- :edit_box {
- alignment = right ;
- edit_width = 4 ;
- fixed_height = true ;
- key = "pipeWallThickness" ;
- label = "壁厚" ;
- }
- }
- :radio_row {
- :edit_box {
- alignment = left ;
- edit_width = 8 ;
- key = "welderNo" ;
- label = "焊工号 " ;
- }
- :edit_box {
- alignment = right ;
- edit_width = 4 ;
- key = "radiographicProportion" ;
- label = "探伤比例" ;
- }
- }
- }
- :boxed_column {
- label = "标记设定" ;
- :row {
- alignment = left ;
- :edit_box {
- alignment = left ;
- edit_width = 8 ;
- key = "beginNo" ;
- label = "起始序号" ;
- }
- :radio_button {
- alignment = left ;
- key = "marker" ;
- label = "标记符号" ;
- width = 8 ;
- }
- }
- :row {
- alignment = left ;
- :popup_list {
- edit_width = 7 ;
- key = "font" ;
- label = "字体 " ;
- list = "宋体\n仿宋\n楷体\n魏体" ;
- }
- :edit_box {
- edit_limit = 8 ;
- key = "Height" ;
- label = "字号" ;
- }
- }
- :row {
- alignment = left ;
- :edit_box {
- edit_width = 8 ;
- key = "markerSize" ;
- label = "标记大小" ;
- }
- :radio_button {
- key = "proportion" ;
- label = "锁定比例" ;
- }
- }
- }
- :boxed_column {
- label = "修改管线" ;
- :popup_list {
- key = "completePipeNo" ;
- }
- :button {
- key = "currently" ;
- label = "管线数据置当前" ;
- }
- }
- }
- [/FONT]
|