[编程申请]：如何定义本身含双引号的字符串

agang198

问题如下：
想定义一个字符串为－(command  "line"  (list p1 p2) (list p3 p4)  "")，然后把这个字符串写入一个TXT文件。其中p1 、p2、 p3、 p4是程序中的变量。
所定义的字符串本身含有引号，怎办？
谢谢指教。

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        p1 "aaa"
   
4.         p2 "bbb"
   
5.         p3 "ccc"
   
6.         p4 "ddd"
   
7.   )
   
8.   (setq        txt (strcat "(command "
   
9.                     (chr 34)
   
10.                     "line"
    
11.                     (chr 34)
    
12.                     " "
    
13.                     "(list "
    
14.                     p1
    
15.                     " "
    
16.                     p2
    
17.                     ")"
    
18.                     " "
    
19.                     "(list "
    
20.                     p3
    
21.                     " "
    
22.                     p4
    
23.                     ")"
    
24.                     " "
    
25.                     (chr 34)
    
26.                     (chr 34)
    
27.                     ")"
    
28.             )
    
29.   )
    
30.   (princ txt)
    
31.   (princ)
    
32. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        p1 "aaa"<br />         p2 "bbb"<br />         p3 "ccc"<br />         p4 "ddd"<br />   )<br />   (setq        txt (strcat "(command "<br />                     (chr 34)<br />                     "line"<br />                     (chr 34)<br />                     " "<br />                     "(list "<br />                     p1<br />                     " "<br />                     p2<br />                     ")"<br />                     " "<br />                     "(list "<br />                     p3<br />                     " "<br />                     p4<br />                     ")"<br />                     " "<br />                     (chr 34)<br />                     (chr 34)<br />                     ")"<br />             )<br />   )<br />   (princ txt)<br />   (princ)<br /> )[/FONT]

agang198

以下是远行结果：
"(command \"line\" (list aaa bbb) (list ccc ddd) \"\")"
不对，这不能执行的。
谢谢。

xyp1964

写出文件就没有反斜杠了！

2. [FONT=courier new];;;(command "line" (list aaa bbb) (list ccc ddd) "")
   
3. (defun c:test ()
   
4.   (setq        p1  "aaa"
   
5.         p2  "bbb"
   
6.         p3  "ccc"
   
7.         p4  "ddd"
   
8.         ffn (getfiled "\n保存的数据文件" "数据" "txt" 1)
   
9.         ff  (open ffn "w")
   
10.         txt (strcat "(command "
    
11.                     (chr 34)
    
12.                     "line"
    
13.                     (chr 34)
    
14.                     " "
    
15.                     "(list "
    
16.                     p1
    
17.                     " "
    
18.                     p2
    
19.                     ")"
    
20.                     " "
    
21.                     "(list "
    
22.                     p3
    
23.                     " "
    
24.                     p4
    
25.                     ")"
    
26.                     " "
    
27.                     (chr 34)
    
28.                     (chr 34)
    
29.                     ")"
    
30.             )
    
31.   )
    
32.   (write-line txt ff)
    
33.   (close ff)
    
34.   (princ (strcat "\n 坐标写至=>" ffn))
    
35.   (princ)
    
36. )[/FONT]

[FONT=courier new];;;(command "line" (list aaa bbb) (list ccc ddd) "")<br /> (defun c:test ()<br />   (setq        p1  "aaa"<br />         p2  "bbb"<br />         p3  "ccc"<br />         p4  "ddd"<br />         ffn (getfiled "\n保存的数据文件" "数据" "txt" 1)<br />         ff  (open ffn "w")<br />         txt (strcat "(command "<br />                     (chr 34)<br />                     "line"<br />                     (chr 34)<br />                     " "<br />                     "(list "<br />                     p1<br />                     " "<br />                     p2<br />                     ")"<br />                     " "<br />                     "(list "<br />                     p3<br />                     " "<br />                     p4<br />                     ")"<br />                     " "<br />                     (chr 34)<br />                     (chr 34)<br />                     ")"<br />             )<br />   )<br />   (write-line txt ff)<br />   (close ff)<br />   (princ (strcat "\n 坐标写至=>" ffn))<br />   (princ)<br /> )[/FONT]

agang198

完全对了。谢谢。
我在写一个程序，只要选择图元，就自动生成可以绘制那些图元的子程序LISP代码。
这样在其它程序中调用这个子程序就可以绘制那些图元，某些时候这要比插入图块简单。
写好了，我会继续放在这个帖子里。
再谢。

xyp1964

实在太累了！
插入图块应该很简单。如果图块多编程和维护都很费事，不主张这种做法。

agang198

谢谢xyp1964  。
我是有这种情况才想起这么做的：
我的一张施工图里往往会有3种以上规格的卸扣和3种规格以上的花篮，若是用插入图块的方法，那我的程序发布时还要跟着至少6张CAD图形文件（图块放在同一张图形里，LISP调用某一图块时有点麻烦）。而花篮卸扣这类标准件的图块是不存在维护的，它不会有变化。
我的情况有点特殊哦。
再谢。