请教一个opendcl 的问题

panziyang000 · 发表于 2013-5-13 21:33:15

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

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

×

怎么将多个text文本中的值赋给一个表，例如
(setq xyb(0)
   (dcl_Control_GetText zbzfs_Form1_TBoxQDLC)
   xyb(1)
   (dcl_Control_GetText zbzfs_Form1_TBoxQDX)）
在这个基础上怎么改正。。

XDSoft · 发表于 2013-5-13 21:36:35

你意思是 XYB里面的元素是变量？把TEXT付给这些变量？

具体说下你的问题吧，为什么想要那么做？

XDSoft · 发表于 2013-5-13 21:48:28

[pcode=lisp,true]
(setq a (list 'd 'e ))
(mapcar 'set a (list (dcl_Control_GetText zbzfs_Form1_TBoxQDLC)(dcl_Control_GetText zbzfs_Form1_TBoxQDX)))
;;结果
;; d ==(dcl_Control_GetText zbzfs_Form1_TBoxQDLC)
;;e=(dcl_Control_GetText zbzfs_Form1_TBoxQDX)
[/pcode]

牢固 · 发表于 2013-5-13 21:50:47

本帖最后由牢固于 2013-5-13 21:53 编辑

Lisp的变量不能带括号！直接:

(setq xyb (list (dcl_Control_GetText zbzfs_Form1_TBoxQDLC)(dcl_Control_GetTextzbzfs_Form1_TBoxQDX)))

XDSoft · 发表于 2013-5-13 21:55:18

牢固发表于 2013-5-13 21:50
Lisp的变量不能带括号！直接:

他的意思好像是给一个表里面的元素赋值，
xyb(0) ,xyb(1).....

panziyang000 · 发表于 2013-5-14 07:41:51

多谢两位大神，我去试验下

panziyang000 · 发表于 2013-5-14 08:59:23

我还想请教个问题，我现在在学习给一个坐标计算程序做界面，计算按钮的事件怎么写不知道，
(defun c:zbzfs_Form1_TextButton2_OnClicked (/)
(zbzfs_qxzs)
)
zbzfs是界面模块， qxzs是正算的子程序，我仿照别人程序写的，不对
求指教

XDSoft · 发表于 2013-5-14 09:10:36

panziyang000 发表于 2013-5-14 08:59
我还想请教个问题，我现在在学习给一个坐标计算程序做界面，计算按钮的事件怎么写不知道，
(defun c:zbzf ...

一楼的问题解决没啊？新问题请开新帖讨论。

panziyang000 · 发表于 2013-5-14 09:15:27

哦哦，知道了列表赋值问题可以了多谢

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

[已解决] 请教一个opendcl 的问题

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