变量转字符串带双引号

啵浪鼓

变量转字符串带双引号
想要下面这段字符串效果，其中A1是变量(setq str "A1")
label=“A1”


/"转义符会将变量直接读成str变量名而不是str的变量值"A1"
请问这段字符串代码怎么写？

lisperado

请看strcat函数

1. (defun c:tt ( / i lst)
   
2. (setq i 0 lst '(1 2 "3" "A" B))
   
3. (repeat (length lst)
   
4. (terpri)
   
5. (setq str (nth i lst))
   
6. (print (strcat "label=\"key" (vl-princ-to-string str)  "\" ;" ) )
   
7. (setq i (1+ i))
   
8. )
   
9. (textpage)
   
10. (princ)
    
11. )
    
12. 
    
13. ;|print和read-line ,write-line,read-line返回值
    
14. "label=\"key1\" ;"
    
15. "label=\"key2\" ;"
    
16. "label=\"key3\" ;"
    
17. "label=\"keyA\" ;"
    
18. "label=\"keyB\" ;"
    
19. |;
    
20. 
    

(defun c:tt ( / i lst)<br /> (setq i 0 lst '(1 2 "3" "A" B))<br /> (repeat (length lst)<br /> (terpri)<br /> (setq str (nth i lst))<br /> (print (strcat "label=\"key" (vl-princ-to-string str)  "\" ;" ) )<br /> (setq i (1+ i))<br /> )<br /> (textpage)<br /> (princ)<br /> )<br /> <br /> ;|print和read-line ,write-line,read-line返回值<br /> "label=\"key1\" ;"<br /> "label=\"key2\" ;"<br /> "label=\"key3\" ;"<br /> "label=\"keyA\" ;"<br /> "label=\"keyB\" ;"<br /> |;<br /> <br />

princ 返回值
label="key1" ;
label="key2" ;
label="key3" ;
label="keyA" ;
label="keyB" ;

啵浪鼓

1291500406 发表于 2019-10-19 20:44
(setq A1 1)
(alert(strcat "label = \"" (vl-princ-to-string A1)"\""))
label = "1"

感谢这个是需要的
之前一直试过无数遍，错误在第一组需要2个双引号

1291500406

(setq A1 1)
(alert(strcat "label = \"" (vl-princ-to-string A1)"\""))
label = "1"

啵浪鼓

有知道的吗？求助

啵浪鼓

困扰好久了，有没有人能解(>﹏<)

cable2004

不知道是不是 set    read

啵浪鼓

需要字符串是这种结果 label=“A1”

啵浪鼓

"A1"是变量的值

啵浪鼓

"A1"是变量的值，如果用strcat得到的是"label=A1"， 而不是想要的"label="A1""

迷失2004

我理解错了，不知道怎么删这个回复 抱歉

啵浪鼓

是的制作对话框功能的，我用repeat循环lst里面的str字符串制作key的值，然后用write-line写成dcl文件