如何将列表中的原子转换成字符型的？

bdwzx

我有这样一个pinfro.txt：(1 齿轮 1  45)
　　　　　　　　　　　(2  轴  1  45)

我用下面的程序将数据读入：

(defun c:data2(/ xh mc cl bz );
  (setq data_list '())
  (setq f (open "g:/pinfro.txt" "r"))
  (setq data (read-line f))
  (while data
  (setq data_list (cons data data_list))
  (setq data (read-line f)))
       (setq ldata(read(nth 1 data_list)))
(setq xh(nth 0 ldata))
(setq mc(nth 1 ldata))
  (setq sl(nth 2 ldata))
  (setq clbz(nth 3 ldata))
  (close f))

现在的问题是：我用(command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2)0 xh)在矩形中写xh所代表的文字＂１＂，为什么写不上？请指教！

liu_kunlun

简单的办法是在文本文件中，作为字符用的用引号括起来，如

     (1 "齿轮" "1"  "45")
　 (2  "轴"  "1" " 45")

这样，读出来之后用read就将一行转变为表。

如果文本文件内容太多，处理困难，则读出来之后，只能依靠空格符将字符串分开，这样各项都是字符串。

ljpnb

2. (defun c:data2 (/ xh mc cl bz)  ;
3.   (setq data_list '())
4.   (setq f (open "g:/pinfro.txt" "r"))
5.   (setq data (read-line f))
6.   (while data
7.     (setq ldata (car(read (strcat "(" data ")"))))
8.     (setq data (read-line f))
9.   )  
10.   (setq xh (nth 0 ldata))
11.   (setq mc (nth 1 ldata))
12.   (setq sl (nth 2 ldata))
13.   (setq clbz (nth 3 ldata))
14.   (close f)
15.   ..........
16.   (command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2)0 xh)
17. )

(defun c:data2 (/ xh mc cl bz)  ;   (setq data_list '())   (setq f (open "g:/pinfro.txt" "r"))   (setq data (read-line f))   (while data     (setq ldata (car(read (strcat "(" data ")"))))     (setq data (read-line f))   )     (setq xh (nth 0 ldata))   (setq mc (nth 1 ldata))   (setq sl (nth 2 ldata))   (setq clbz (nth 3 ldata))   (close f)   ..........   (command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2)0 xh) )

bdwzx

能详细说明一下读出来之后，如何将依靠空格符将字符串分开？

ljpnb

3楼的程序读TXT文件内容的格式为(2  轴  1  45)就行了

Andyhon

(command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2) 0 (itoa xh))

bdwzx

如果xh代表的是＂轴＂，用什么转换？

Andyhon

vl-symbol-name