2013-05-05 QQ群：LISP/VLISP交流(143438137) 聊天记录：放到共享吧

CCarch · 发表于 2013-5-5 17:38:09

牵ぶ伱の佑手(379002274)于2013-05-05 17-38-09：
0，“(entmake (list '(0 . "TEXT") (cons 1 "QQ") (cons 10 单点坐标) (cons 40 2)))”

CCarch · 发表于 2013-5-5 17:38:19

牵ぶ伱の佑手(379002274)于2013-05-05 17-38-19：
为什么要用“”

CCarch · 发表于 2013-5-5 17:38:53

清风明月(897902105)于2013-05-05 17-38-53：
好是说话的意义

CCarch · 发表于 2013-5-5 17:46:32

孤狼(2247570310)于2013-05-05 17-46-32：
(action_tile "ok" "(getdata)(done_dialog 1)"）

CCarch · 发表于 2013-5-5 17:46:51

孤狼(2247570310)于2013-05-05 17-46-51：
各位大仙，请问一下

CCarch · 发表于 2013-5-5 17:47:38

牵ぶ伱の佑手(379002274)于2013-05-05 17-47-38：
把OK改成accept吧

CCarch · 发表于 2013-5-5 17:48:54

孤狼(2247570310)于2013-05-05 17-48-54：
为啥不能用action_tile 中(getdata)函数获取数值

CCarch · 发表于 2013-5-5 17:52:07

关中往事(13425218)于2013-05-05 17-52-07：
(getdata)应该是个子程序

CCarch · 发表于 2013-5-5 17:52:43

孤狼(2247570310)于2013-05-05 17-52-43：
是的啊

CCarch · 发表于 2013-5-5 17:53:00

关中往事(13425218)于2013-05-05 17-53-00：
把OK改成accept

CCarch · 发表于 2013-5-5 17:53:12

孤狼(2247570310)于2013-05-05 17-53-12：
(defun  getdata ()
                  (command
   (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")))
"c")
                     )

CCarch · 发表于 2013-5-5 17:53:15

牵ぶ伱の佑手(379002274)于2013-05-05 17-53-15：
呵……

CCarch · 发表于 2013-5-5 17:53:37

孤狼(2247570310)于2013-05-05 17-53-37：
从对话框获取数值的

CCarch · 发表于 2013-5-5 17:54:23

关中往事(13425218)于2013-05-05 17-54-23：
(defun getdata ()
(command “(command”是啥东西

CCarch · 发表于 2013-5-5 17:54:48

孤狼(2247570310)于2013-05-05 17-54-48：
那一个可以不要

账号		自动登录	找回密码
密码			立即注册