[求助]：如何在dcl对话框中输入一个表???

20020672 · 发表于 2006-5-9 00:45:53

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

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

×

我在lisp程序中需要用户自己输入一个表,例如:(50,50,60,40,60)
在lisp中可以这样实现
(setq l0 '())
(repeat n
(setq i(getreal "请输入跨距"))
(setq l0 (append l0 (list i))))
但是现在我要在对话框里面一个一个的输入,请问该怎么才能实现啊????

雨箭风刀 · 发表于 2006-5-9 02:28:59

源码实例：
http://www.xdcad.net/forum/showt ... 2762796#post2762796

fsxm · 发表于 2006-5-14 18:46:21

请用read如:
(read "(1 2 3 4)") --->'(1 2 3 4)
,号还是要变成/s才好

point13 · 发表于 2006-7-18 12:52:30

(setq no '())
(defun sub_klist(vss)
  (setq a (nth (atoi vss) word_list))
  (setq no (cons  a no))
  (start_list "wordstr")
  (mapcar 'add_list no)
  (end_list)
;; (set_tile "wordstr" (nth (atoi vss) word_list))
)

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

[求助] [求助]：如何在dcl对话框中输入一个表???

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

相关帖子