[求助]关于变量转换

danding198

本人想做一个测量点标注的程序，目的如下：首先建立三个图层和文字标注。在从文本文件txt1.txt中读取数据，将点绘制在图上，然后在旁边标上点名称和相应高程。

问题：1、 在标注测量点名称时出错，我在出错的地方设置了断点，原因是 r21 不是字符串 即不是"r21" 请问有什么方法转变没有。

           2、在使用dxf数据格式时，如创建图层中用如下格式

        (entmake (list
                      '(0 . "LAYER")
                      '(100 . "AcDbSymbolTableRecord")
                      '(100 . "AcDbLayerTableRecord")
                      '(6 . "CONTINUOUS") ;线型
                      '(62 . 3)           ;颜色
                      '(70 . 0)           ;图层状态
                       (cons 2 "测量点")  ;图层名
                  )
        )

可是（100 . AcDbSymbolTableRecord）并未列入到layer 的dxf 的组码中，到底使用dxf的组码的方法是什么，哪些是必须使用的，如'(70 . 0) 是否可以省略 ，省略在dxf 参考中是如何区别的 请告知。如有实例或相关资料请发出来。我先谢了。

ZZXXQQ

只要一层循环就可以了。仅贴出循环部分。

3. ......
4.   (setq fn (open fle "r"))
5.        ;----------------------------------
6.        ;在测量点图层中绘制测量点
7.   (while (setq pt (read-line fn))
8.    (setq textdate (substr pt 1 3))
9.    (setq pt (strcat "(" pt ")"))
10.    (setq pointdate (cdr (read pt)))
11.    (command "-layer" "s" "测量点" "")
12.    (command "point" pointdate) "circle" pointdate 1)
13.    (command "text" "s" "测量点名称" "j" "tl" pointdate 2.5 0 textdate)
14.    (command "layer" "m" "测量点名称" "")
15.    (setq pb (polar (reverse (cdr (reverse pointdate))) 0 offdist))
16.    (setq textdate (strcat "%%u" (rtos (last pointdate) 2 3)))
17.    (command "text" "s" "测量点高程" "j" "bl" pointdate texthigh textangel textdate)
18.   )
19.   (close fn)
20. ......

......   (setq fn (open fle "r"))        ;----------------------------------        ;在测量点图层中绘制测量点   (while (setq pt (read-line fn))    (setq textdate (substr pt 1 3))    (setq pt (strcat "(" pt ")"))    (setq pointdate (cdr (read pt)))    (command "-layer" "s" "测量点" "")    (command "point" pointdate) "circle" pointdate 1)    (command "text" "s" "测量点名称" "j" "tl" pointdate 2.5 0 textdate)    (command "layer" "m" "测量点名称" "")    (setq pb (polar (reverse (cdr (reverse pointdate))) 0 offdist))    (setq textdate (strcat "%%u" (rtos (last pointdate) 2 3)))    (command "text" "s" "测量点高程" "j" "bl" pointdate texthigh textangel textdate)   )   (close fn) ......