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

CCarch

孤狼(2247570310)于2013-05-19 17-03-21：
不对？

ysq101

平凡  淡定(120389613)于2013-05-19 17-03-23：
没事发个贴，，，万望高手指点一下！！！！！！！！

zhang8755

迷糊的世界(364125543)于2013-05-19 17-03-24：
(action_tile "key_D" "(setq d (get_tile \"key_D\")))

ysq101

平凡  淡定(120389613)于2013-05-19 17-03-59：
按下D键？？

CCarch

孤狼(2247570310)于2013-05-19 17-04-44：
(action_tile "key_D" "(setq D $value)")这个不要行吗？

zhang8755

迷糊的世界(364125543)于2013-05-19 17-05-21：
不要

CCarch

孤狼(2247570310)于2013-05-19 17-05-30：
哦哦

zhang8755

迷糊的世界(364125543)于2013-05-19 17-05-53：
"key_D"是什么？按钮？文本框？

CCarch

孤狼(2247570310)于2013-05-19 17-06-42：
文本[qqimg]{A7B7E10B-B4A9-B3EC-C4A7-8265B5DD89B5}.jpg[/qqimg]

zhang8755

迷糊的世界(364125543)于2013-05-19 17-07-56：
应该在“确定”的按钮处理程序中，用get_tile获得各文本框的输入。

CCarch

孤狼(2247570310)于2013-05-19 17-08-13：
(defun  getdata (/ m_D m_B m_L m_K m_d1 m_f  n C)
                        (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

孤狼(2247570310)于2013-05-19 17-08-41：
有获取函数

zhang8755

迷糊的世界(364125543)于2013-05-19 17-09-19：
(action_tile "accept" "(done_dialog 1)")
改

zhang8755

迷糊的世界(364125543)于2013-05-19 17-09-34：
(action_tile "accept" "（getdata）(done_dialog 1)")

CCarch

孤狼(2247570310)于2013-05-19 17-09-59：
这个试过了