[LISP函数]：CY956,麻烦您解答一个问题

lfc9861

假设有一变量A，其值为字符串，例如“PPP1” “PPP2” “PPP3”等，而
PPP1又等于1，PPP2等于5........
怎样直接通过A获得PPP1的值       不要使用判别（A=“PPP1”）

XDSoft

最初由 lfc9861 发布
[B]假设有一变量A，其值为字符串，例如“PPP1” “PPP2” “PPP3”等，而
PPP1又等于1，PPP2等于5........
怎样直接通过A获得PPP1的值       不要使用判别（A=“PPP1”） [/B]

你概念没有清楚，只有变量才会有值，字符串本身怎么还能做变量，等于其他值呢？

应该说PPP1等是符号变量吧。

秋枫

可以这样：

2. [FONT=courier new]
   
3. Command: (setq a "ppp1")
   
4. "ppp1"
   
5. 
   
6. Command: (setq ppp1 12.5)
   
7. 12.5
   
8. 
   
9. Command: (eval (read a))
   
10. 12.5
    

[FONT=courier new]<br /> Command: (setq a "ppp1")<br /> "ppp1"<br /> <br /> Command: (setq ppp1 12.5)<br /> 12.5<br /> <br /> Command: (eval (read a))<br /> 12.5<br />

[/FONT]

lfc9861

多谢各位的回答！
XD这边的回答速度真的是可以称是“最快的”！

秋枫

用这个也可以实现：

1. 
   
2. [FONT=courier new]
   
3. (eval (car (atoms-family 0 (list a))))
   
4. [/FONT]

复制代码

用read可以实现 string -> symbol
用vl-symbol-name 实现 symbol -> string
在r14中，symbol -> string可能就只能利用atoms-family来实现了。

cy956

昨天在mccad那里回答的，是你提问吧？

lfc9861

是的，我昨天本来看到你在线，想问你，不过没得到解答，
就到MC那边了:)

XDSoft

最初由 lfc9861 发布
[B]是的，我昨天本来看到你在线，想问你，不过没得到解答，
就到MC那边了:) [/B]

因为我们这里同时在线的朋友多，而且都非常热心，所以回复一般都很快的。

欢迎常来！