如何获取批量给字符串变量所赋的值？

yu960312

2. (defun C:GG(/)
   
3. ;; 批量给字符串变量赋值
   
4. (setq n 0)
   
5. (repeat 8
   
6. (setq n (1+ n))
   
7. (set (read (strcat "lst_" (itoa n))) (strcat "A_" (itoa n)))
   
8. )
   
9. 
   
10. ;; 如何批量获取变量的值？？？
    
11. (setq n 0)
    
12. (repeat 8
    
13. (setq n (1+ n))
    
14. (princ "\n")
    
15. (princ (read (strcat "lst_" (itoa n))))
    
16. )
    
17. (princ)
    
18. )
    

(defun C:GG(/)<br /> ;; 批量给字符串变量赋值<br /> (setq n 0)<br /> (repeat 8<br /> (setq n (1+ n))<br /> (set (read (strcat "lst_" (itoa n))) (strcat "A_" (itoa n)))<br /> )<br /> <br /> ;; 如何批量获取变量的值？？？<br /> (setq n 0)<br /> (repeat 8<br /> (setq n (1+ n))<br /> (princ "\n")<br /> (princ (read (strcat "lst_" (itoa n))))<br /> )<br /> (princ)<br /> )<br />

yu960312

问题已解决，不好意思

2. (defun C:GG(/)
   
3. ;; 批量给字符串变量赋值
   
4. (setq n 0)
   
5. (repeat 8
   
6. (setq n (1+ n))
   
7. (set (read (strcat "lst_" (itoa n))) (strcat "a_" (itoa n)))
   
8. )
   
9. 
   
10. ;; 批量获取变量值
    
11. (setq n 0)
    
12. (repeat 8
    
13. (setq n (1+ n))
    
14. (setq str(vl-symbol-value (read (strcat "lst_" (itoa n)))))
    
15. (princ "\n")
    
16. (princ str)
    
17. )
    
18. (princ)
    
19. )
    
20. 
    

(defun C:GG(/)<br /> ;; 批量给字符串变量赋值<br /> (setq n 0)<br /> (repeat 8<br /> (setq n (1+ n))<br /> (set (read (strcat "lst_" (itoa n))) (strcat "a_" (itoa n)))<br /> )<br /> <br /> ;; 批量获取变量值<br /> (setq n 0)<br /> (repeat 8<br /> (setq n (1+ n))<br /> (setq str(vl-symbol-value (read (strcat "lst_" (itoa n)))))<br /> (princ "\n")<br /> (princ str)<br /> )<br /> (princ)<br /> )<br /> <br />

飞雪神光

(eval(read (strcat "lst_" (itoa n)))) eval也可以

yu960312

飞雪神光 发表于 2023-9-15 22:50
(eval(read (strcat "lst_" (itoa n)))) eval也可以

感谢大佬解惑

xyp1964

1. (defun c:tt (/)
   
2.   "批量给字符串变量赋值"
   
3.   (setq        n   0
   
4.         lst '()
   
5.   )
   
6.   (repeat 8
   
7.     (setq n   (1+ n)
   
8.           a   (strcat "lst_" (itoa n))
   
9.           b   (strcat "a_" (itoa n))
   
10.           lst (cons a lst)
    
11.     )
    
12.     (set (read a) b)
    
13.   )
    
14.   "批量获取变量值"
    
15.   (setq lst (reverse lst))
    
16.   (princ (mapcar '(lambda (x) (eval (read x))) lst))
    
17.   (princ)
    
18. )

(defun c:tt (/)<br />   "批量给字符串变量赋值"<br />   (setq        n   0<br />         lst '()<br />   )<br />   (repeat 8<br />     (setq n   (1+ n)<br />           a   (strcat "lst_" (itoa n))<br />           b   (strcat "a_" (itoa n))<br />           lst (cons a lst)<br />     )<br />     (set (read a) b)<br />   )<br />   "批量获取变量值"<br />   (setq lst (reverse lst))<br />   (princ (mapcar '(lambda (x) (eval (read x))) lst))<br />   (princ)<br /> )

yu960312

xyp1964 发表于 2023-9-15 23:41

谢谢，了解了