2013-05-19 QQ群：ALISP＆VLISP(143438137) 聊天记录：命令: UpdateBLK01 未知命令“UPDATEBLK01”。按 F

CCarch

孤狼(2247570310)于2013-05-19 16-55-38：
用了

zhang8755

迷糊的世界(364125543)于2013-05-19 16-55-59：
结了

CCarch

孤狼(2247570310)于2013-05-19 16-56-38：
不懂，对话框可以显示出来，是不是驱动的问题啊

CCarch

孤狼(2247570310)于2013-05-19 16-57-10：
输入的数值后，一直不能从对话框中获取数值

zhang8755

迷糊的世界(364125543)于2013-05-19 16-59-04：
要看你的代码才行

CCarch

孤狼(2247570310)于2013-05-19 16-59-15：
ok

CCarch

孤狼(2247570310)于2013-05-19 16-59-26：
flange88:dialog{label="法兰参数化设计对话框";
:popup_list{label="类型:";
key="key_type";
fixed_width=true;
width=10;
list="整体法兰\n对焊法兰\n平焊法兰\n承插法兰\n松套法兰\n法兰盖";
}
:edit_box{
label="使用压力类型:";
key="key_list";
fixed_width=true;
width=10;
}
:edit_box{
label="外直径D:";
key="key_D";
fixed_width=true;
width=10;
}
:edit_box {
label="法兰内径B:";
key="key_B";
fixed_width=true;
width=10;
}
:edit_box{
label="螺栓孔径L:";
key="key_L";
fixed_width=true;
width=10;
}
:edit_box {
label="螺栓孔中心圆直径K:";
key="key_K";
width=10;
}
:edit_box{
label="螺纹孔数n:";
key="key_n";
fixed_width=true;
width=10;
}
:edit_box {
label="法兰厚度C:";
key=" key_C ";
fixed_width=true;
width=10;
}
:edit_box{
label="密封面直径d1:";
key="key_d1";
fixed_width=true;
width=10;
}
:edit_box{
label="密封面厚度f:";
key="key_f";
fixed_width=true;
width=10;
}
ok_cancel_help;
}

CCarch

孤狼(2247570310)于2013-05-19 17-00-20：
(defun  c:flange88()
  (setq what_next 2)
  (setq return_value (load_dialog "flange88.DCL"))
  (while (>= what_next 2)
  (if(null (new_dialog "flange88" return_value ))
  (exit)
    )   
     (action_tile "key_D" "(setq D $value)")
     (action_tile "key_B" "(setq B $value)")
     (action_tile "key_L" "(setq L $value)")
     (action_tile "key_K" "(setq K $value)")
     (action_tile "key_n" "(setq n $value)")
     (action_tile "key_C" "(setq C $value)")
     (action_tile "key_d1" "(setq d1 $value)")
     (action_tile "key_f" "(setq f $value)")
     (action_tile "accept" "(done_dialog 1)")
     (action_tile "cancel" "(done_dialog 0)")
     (setq what_next (start_dialog))
  (cond
    ((= what_next 1)
     (getdata)
     (setq pt5 (getpoint "\n 请输入一个点："))
     (setq pt pt5)
     (draw)
     )
    ((= what_next 0)
     (prompt "\n user cancelled dialog")
      )))  
  (unload_dialog return_value)
  (princ)
   )

CCarch

孤狼(2247570310)于2013-05-19 17-00-30：
驱动程序

CCarch

Happy(410786171)于2013-05-19 17-01-09：
签到成功

zhang8755

迷糊的世界(364125543)于2013-05-19 17-02-28：
(action_tile "key_D" "(setq D $value)")
？

zhang8755

迷糊的世界(364125543)于2013-05-19 17-02-35：
这是什么意思？

CCarch

書生—SLQ(421944906)于2013-05-19 17-02-52：
签到

CCarch

孤狼(2247570310)于2013-05-19 17-03-13：
获取值的动作

ysq101

平凡  淡定(120389613)于2013-05-19 17-03-17：
http://bbs.xdcad.net/thread-668190-1-1.html