[求助]新手编程遇到问题了，高手帮帮～

svikiyong

我用lisp编写了个展点的程序

看不出有什么问题，但是实际用时，我用两个数据文件实验，用第一个时程序读入文件第一行数据，再读时就只读了个双引号，后面的程序就不能继续运行了；用第２个时，好象数据类型又出错了．自己又老是调不好，不知道问题出在哪了，自己没找明白

高手帮帮啊～～帮我看一下怎么回事呢？

程序和数据文件我都上传在这了～～

十分感谢哦～～！

 

 

svikiyong

第２个数据文件格式不正确，不应该有＂，＂的，我弄错了，第１个我不知道是为什么，程序老是不对

帮帮我哦

ZZXXQQ

简单改了一下程序以支持第一个数据文件。

3. (defun c:zd()
4.   ;;;;;;;;;;;;;;;;;;;;;数据格式为:;;;;;;;;;;;;;;;;;;;;;
5.   ;;;X坐标 Y坐标 高程                               ;;;
6.   ;;;...                                            ;;;
7.   ;;;X坐标 Y坐标 高程                               ;;;
8.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9.   (setq ff (open (getfiled "请选择要展点的数据文件" "" "txt;dat" 2) "r");ff为打开文件的描述符;
10.     cm (getvar "cmdecho");控制在 AutoLISP 的 command 函数运行时 AutoCAD 是否回显提示和输入.0 关闭1 打开;
11.     os (getvar "osmode");osmode对象捕捉;
12.     tcm1 "高程注记"
13.     tcm2 "点记"
14.     )
15.   (setvar "cmdecho" 0);关闭回显
16.   (setvar "osmode" 0);关闭对象捕捉
17.   (if (= (tblsearch "layer" tcm1) nil) (command "layer" "n" tcm1 ""));建立图层
18.   (if (= (tblsearch "layer" tcm2) nil) (command "layer" "n"  tcm2 ""))
19.   (setq x0 nil x1 nil y0 nil y1 nil)
20.   (while
21.     (setq zb (read-line ff));读取数据
22.     (if (/= zb "") (progn
23.      (setq fbh (read (strcat "(" zb ")")))
24.      (setq e1 (car fbh)
25.            e2 (cadr fbh))
26.      (if (< e1 x0)(setq x0 e1)
27.       (progn (if (> e1 x1) (setq x1 e1)))
28.       )
29.      (if (< e2 y0)(setq y0 e2)
30.       (progn (if (> e2 y1) (setq y1 e2)))
31.       )
32.      (setq zfc (rtos (last fbh) 2)
33.            pt  (list (car fbh)(cadr fbh)))
34.      (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") '(62 . 1) '(40 . 2.5) '(50 . 0.0)
35.            (cons 8 tcm1)   (cons 1 zfc)  (cons 10 (mapcar '+ pt  '(1.5 -1.25))))
36.          )
37.     (entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(100 . "AcDbPoint")'(62 . 2)
38.                    (cons 8 tcm2)  (cons 10 pt));cons构造表;
39.          )
40.      ));end if
41.     );while
42.   (close ff)
43.   (command "zoom" "w" (list x0 y0) (list x1 y1));指定窗口角点
44.   (setvar "cmdecho" cm)(setvar "osmode" os)
45.   (princ)
46.   )

(defun c:zd()   ;;;;;;;;;;;;;;;;;;;;;数据格式为:;;;;;;;;;;;;;;;;;;;;;   ;;;X坐标 Y坐标 高程                               ;;;   ;;;...                                            ;;;   ;;;X坐标 Y坐标 高程                               ;;;   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   (setq ff (open (getfiled "请选择要展点的数据文件" "" "txt;dat" 2) "r");ff为打开文件的描述符;     cm (getvar "cmdecho");控制在 AutoLISP 的 command 函数运行时 AutoCAD 是否回显提示和输入.0 关闭1 打开;     os (getvar "osmode");osmode对象捕捉;     tcm1 "高程注记"     tcm2 "点记"     )   (setvar "cmdecho" 0);关闭回显   (setvar "osmode" 0);关闭对象捕捉   (if (= (tblsearch "layer" tcm1) nil) (command "layer" "n" tcm1 ""));建立图层   (if (= (tblsearch "layer" tcm2) nil) (command "layer" "n"  tcm2 ""))   (setq x0 nil x1 nil y0 nil y1 nil)   (while     (setq zb (read-line ff));读取数据     (if (/= zb "") (progn      (setq fbh (read (strcat "(" zb ")")))      (setq e1 (car fbh)            e2 (cadr fbh))      (if (< e1 x0)(setq x0 e1)       (progn (if (> e1 x1) (setq x1 e1)))       )      (if (< e2 y0)(setq y0 e2)       (progn (if (> e2 y1) (setq y1 e2)))       )      (setq zfc (rtos (last fbh) 2)            pt  (list (car fbh)(cadr fbh)))      (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") '(62 . 1) '(40 . 2.5) '(50 . 0.0)            (cons 8 tcm1)   (cons 1 zfc)  (cons 10 (mapcar '+ pt  '(1.5 -1.25))))          )     (entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(100 . "AcDbPoint")'(62 . 2)                    (cons 8 tcm2)  (cons 10 pt));cons构造表;          )      ));end if     );while   (close ff)   (command "zoom" "w" (list x0 y0) (list x1 y1));指定窗口角点   (setvar "cmdecho" cm)(setvar "osmode" os)   (princ)   )

svikiyong

真是太感谢了，我这几天弄程序弄的头脑都短路了，怎么就没想到了？多谢多谢～！

svikiyong

我试了试，好象还是有问题，读不出数据来，再帮我看看怎么回事好吗？