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

炫翔

炫翔(2363673534)于2013-05-19 20-22-44：
[qqimg]{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

CCarch

ZZXXQQ(1468225785)于2013-05-19 20-22-56：
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";fixed_width=true;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;
}

CCarch

/mg爱因思考(394326635)于2013-05-19 20-22-56：

CCarch

ZZXXQQ(1468225785)于2013-05-19 20-23-05：
(defun  c:flange88()
(if (> (setq return_value (load_dialog "flange88.DCL")) 0) (progn
  (if (new_dialog "flange88" return_value) (progn  
   (action_tile "accept" "(getdata) (done_dialog 1)")
   (action_tile "cancel" "(done_dialog 0)")
   (setq what_next (start_dialog))
  )
   (princ "\n无法显示对话框！")
  )
  (unload_dialog return_value)
)
  (princ "\n无法加载对话框！")
)
(if (= what_next 1) (progn
  (setq pt5 (getpoint "\n 请输入一个点："))
  (setq pt pt5)
  (draw)
)
  (princ "\n user cancelled dialog")
)
(princ)
)
(defun getdata ()
(setq m_D  (atof (get_tile "key_D")))
(setq m_B  (atof (get_tile "key_B")))
(setq m_L  (atof (get_tile "key_L")))
(setq m_K  (atof (get_tile "key_K")))
(setq n    (atof (get_tile "key_n")))
(setq m_d1 (atof (get_tile "key_d1")))
(setq C    (atof (get_tile "key_C")))       
(setq m_f  (atof (get_tile "key_f")))
)

CCarch

ZZXXQQ(1468225785)于2013-05-19 20-23-58：
XD-♂-孤狼(2247570310)：程序改好了，试试看

CCarch

孤狼(2247570310)于2013-05-19 20-24-20：
好，谢谢你

CCarch

武影倾城(420932492)于2013-05-19 21-14-55：
签到

CCarch

诸子(2369933176)于2013-05-19 21-39-33：
签到

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-19 21-41-15：
[qqimg]{032F8296-EA9A-3D29-8B8E-AFEFB8062759}.jpg[/qqimg]
[face13.gif]开始学习ARX

CCarch

飞诗(252545152)于2013-05-19 21-41-34：
[qqimg]{87D78D34-5DCA-B9A2-3AFC-5B19F11E0A9C}.gif[/qqimg]8错

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-19 21-42-00：
刚刚开始 照着例子抄的 还啥都不知道呢

CCarch

千剑千曲！(605295582)于2013-05-19 21-45-06：
有前辈给简介下ARX功能

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-19 21-48-45：
只知道能提高速度 和自定义实体

CCarch

千剑千曲！(605295582)于2013-05-19 21-50-26：
[face127.gif]  我学了一些 lisp  和  dcl  现在开始看activex   还有什么学习的好建议么

CCarch

千剑千曲！(605295582)于2013-05-19 21-50-41：
除了你刚说的 ARX