[求助][讨论]请高手重新看一下这个问题

wwy810327

<p>大家好，请问如何将大段代码一样的字符串赋值给变量，如下截图所示：<br/>另外，我知道特殊字符可用chr函数转换，但如何知道某一字符chr参数的实数值，如后面的问号(chr ?)</p><p>是否有整段转义的函数？</p><p>谢谢！</p>

wwy810327

我只是打个比方

jxh2003zfr

看看这个

3. ;cmdlist '(("a" "arc")("d" "ddim") ("t" "mtext") ("r" "REDRAW"))
4. (defun abc (cmdlist)  
5.   (mapcar
6.    '(lambda (cmd / cmddefun cmdline)      
7.         (setq cmddefun (strcat "C:" (car cmd))
8.        cmdline (cadr cmd))
9. (strcat "(defun " cmddefun "( )"
10.   "(command "" cmdline "")"
11.   "(PRINC)" ")"))
12.    cmdlist)
13. )
14. (setq qq (abc
15.     '(("a" "arc")("d" "ddim") ("t" "mtext") ("r" "REDRAW")))
16.       )

;cmdlist '(("a" "arc")("d" "ddim") ("t" "mtext") ("r" "REDRAW")) (defun abc (cmdlist)     (mapcar    '(lambda (cmd / cmddefun cmdline)               (setq cmddefun (strcat "C:" (car cmd))        cmdline (cadr cmd)) (strcat "(defun " cmddefun "( )"   "(command "" cmdline "")"   "(PRINC)" ")"))    cmdlist) ) (setq qq (abc     '(("a" "arc")("d" "ddim") ("t" "mtext") ("r" "REDRAW")))       )

wwy810327

<p>感谢楼上的回答，谢谢</p>

sailorcwx

括号、斜杠照输入，反斜杠和引号前面加都要加反斜杠