opendcl求助

zh1023749926 · 发表于 2014-12-22 17:07:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

opendcl里这样写就可以(dcl_Control_SetText tts_Form1_TextBox1 "1")但这样
(dcl_Control_SetText (car (setq list_pp '(tts_Form1_TextBox1 tts_Form1_TextBox2 ))) "1")就不行提示错误: 无效的数据类型或数据溢出: tts_Form1_TextBox1

st788796 · 发表于 2014-12-22 17:53:18

加 ' 时 car 后要 eval

zh1023749926 · 发表于 2014-12-22 17:56:54

st788796 发表于 2014-12-22 17:53
加 ' 时 car 后要 eval

太给力了，大神原理是什么呢，能不能解释下以免下次错

newer · 发表于 2014-12-22 18:00:53

zh1023749926 发表于 2014-12-22 17:56
太给力了，大神原理是什么呢，能不能解释下以免下次错

加 ‘ 后，里面那个就是符号了，用 EVAL是对这个符号求值，就是执行里面那个函数了。

zh1023749926 · 发表于 2014-12-22 18:16:11

newer 发表于 2014-12-22 18:00
加 ‘ 后，里面那个就是符号了，用 EVAL是对这个符号求值，就是执行里面那个函数了。

newer版主，我这有点笨，没太理解，你能不能按我错的地方解释下

(dcl_Control_SetText(eval(car (setq list_pp '(tts_Form1_TextBox1 tts_Form1_TextBox2 )))) "1")这样好使

newer · 发表于 2014-12-22 18:28:25

你 (type (car .....))看看是什么？

例子：命令: (setq a '(abs))
(ABS)
命令: (type (car a))
SYM
命令: (type (eval (car a)))
SUBR

newer · 发表于 2014-12-22 18:29:17

zh1023749926 发表于 2014-12-22 17:56
太给力了，大神原理是什么呢，能不能解释下以免下次错

另外，你自己为什么要那样写？你有什么想法吗？

zh1023749926 · 发表于 2014-12-22 18:32:47

newer 发表于 2014-12-22 18:28
你 (type (car .....))看看是什么？

例子：命令: (setq a '(abs))

谢谢版主，{:soso_e100:}

zh1023749926 · 发表于 2014-12-22 18:34:29

newer 发表于 2014-12-22 18:29
另外，你自己为什么要那样写？你有什么想法吗？

不是就是文本框比较多，想要mapcar批量赋值，因为太长，我就做了表问下

zh1023749926 · 发表于 2014-12-22 18:35:50

newer 发表于 2014-12-22 18:29
另外，你自己为什么要那样写？你有什么想法吗？

(mapcar '(lambda(x y)(dcl_Control_SetText (eval x) y)) pop_list name_list)
原来这样的pop_list就是那个名称

newer · 发表于 2014-12-22 18:57:57

zh1023749926 发表于 2014-12-22 18:35
(mapcar '(lambda(x y)(dcl_Control_SetText (eval x) y)) pop_list name_list)
原来这样的pop_list就是 ...

用EVAL批量给控件赋值等，这个论坛讨论过很多了，有很多的代码，你可以搜索看看。

iLisp · 发表于 2014-12-22 19:05:48

zh1023749926 发表于 2014-12-22 18:35
(mapcar '(lambda(x y)(dcl_Control_SetText (eval x) y)) pop_list name_list)
原来这样的pop_list就是 ...

不要直接 ‘ ，用 (List ... ) 就可以不使用 eval

zh1023749926 · 发表于 2015-1-15 22:23:46

谢谢各位了，这段时间有事没等才看见

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

[求助] opendcl求助

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评