totoro 发表于 2012-5-6 22:19:25

设定DCL物件值的用法

(setq key_list '("wd" "od" "b" "r" "move" "Quiet" "oil" "fat"))
(setq val_list (list n1 n2 n3 n4 n5 n6 n7 n8))
(mapcar 'set_tile key_list val_list)
当N1~N8是变数时,程序会出错?
不知如何解决!

xshrimp 发表于 2012-5-6 22:24:34

看看set_tile帮助.后面的要是字符串啊.

(setq key_list '("wd" "od" "b" "r" "move" "Quiet" "oil" "fat"))
(setq val_list (list n1 n2 n3 n4 n5 n6 n7 n8))
(setq val_list(mapcar 'vl-princ-to-string val_list))
(mapcar 'set_tile key_list val_list)

Gu_xl 发表于 2012-5-6 22:29:17

(VL-CATCH-ALL-APPLY (function (lambda() (mapcar 'set_tile key_list val_list))))

totoro 发表于 2012-5-6 22:38:53

感谢可以了~
我知到要是字符串,可是找不到资料实现~

totoro 发表于 2012-5-6 22:48:23

Gu_xl 版大
你的(VL-CATCH-ALL-APPLY (function (lambda() (mapcar 'set_tile key_list val_list))))这用法无法实现?

功夫佬 发表于 2012-5-7 00:02:22

学习，DCL对于字符还不是很了解~
页: [1]
查看完整版本: 设定DCL物件值的用法