[求助]为什么一加入循环就出错了呢?

sorrel

问题如题,当程序为一个数值时可以得到想要的结果 (setq NLen (strlen nums)
pn 0
Rpoints '()

) ;初始化数据
(setq m (nth pn Rpoint))
(if (=(nth 0 CLpoint) (nth 0 m))
(progn
(setq rpoint (list (list (atof( nth 1 m ))(atof (nth 2 m)))));提取坐标并将一组坐标放在一个表中
(setq Rpoints (append Rpoints rpoint));将点号对应的坐标按点号的顺序放在一个表中 )
) 但加入下面的循环时就出现了的错误提示"; 错误: 参数类型错误: consp nil",这是什么原因 (setq NLen (strlen nums)
j 0
pn 0
Rpoints '()
) ;初始化数据
(while (< j Nlen)
(while(< pn 6 )
(setq m (nth pn Rpoint))
(if ( = (nth j CLpoint)(nth 0 m))
(progn
(setq rpoint (list (list (atof( nth 1 m ))(atof (nth 2 m)))))
(setq Rpoints (append Rpoints rpoint));将点号对应的坐标按点号的顺序放在一个表中
)
)
(setq pn (+ pn 1))
)
(setq j (+ j 1))
) 具体程序和所需文件也同时附上

xyp1964

可以试试这个“利用已有数据画线”的程序：

2. (load "xyp_lib");加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 通用函数下载地址:
11. dispbbs.asp?boardID=3&ID=37554&page=1
12. |; ;;;利用已有数据画线
13. (defun c:test ()
14.    (cmdla0)
15.    (alert (strcat "数据格式 : "
16.      "\n点位号 X坐标 Y坐标 Z坐标"
17.      "\n点位号 X坐标 Y坐标 Z坐标"
18.      "\n点位号 X坐标 Y坐标 Z坐标"
19.      "\n..."
20.      "\n..."
21.      "\n..."
22.     )
23.    )
24.    (prompt "\n稍候 : ")
25.    (MKLA "建筑-红线" 1)
26.    (while (not
27.        (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
28.    )
29.    )
30.    (setq  fle       (findfile tn)
31.   pt-lst '()
32.    )
33.    (if (not fle)
34.        (setq fle (getfiled "请选择坐标数据文件" "" "txt;dat;*" 8))
35.    )
36.    (if fle
37.        (progn
38.            (setq fn (open fle "r")
39.          n   0
40.            )
41.            (command "pline")
42.            (while (setq pt (read-line fn))
43.   (setq pt         (cdr (read (strcat "(" pt ")")))
44.              pt-lst (cons pt pt-lst)
45.              n           (1+ n)
46.   )
47.   (command pt)
48.   (princ ".")
49.            )
50.            (command "")
51.            (close fn)
52.            (jzhz);加载汉字
53.            (MKLA "坐标" 3)
54.            (mapcar '(lambda (#pt) (x_zb #pt)) pt-lst) ;标注顶点坐标
55.            (princ "共输入和标注 ")
56.            (princ n)
57.            (princ " 个坐标点!")
58.        )
59.        (princ "\n未选择数据文件，退出")
60.    )
61.    (cmdla1)
62. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 通用函数下载地址: dispbbs.asp?boardID=3&ID=37554&page=1 |; ;;;利用已有数据画线 (defun c:test ()    (cmdla0)    (alert (strcat "数据格式 : "      "\n点位号 X坐标 Y坐标 Z坐标"      "\n点位号 X坐标 Y坐标 Z坐标"      "\n点位号 X坐标 Y坐标 Z坐标"      "\n..."      "\n..."      "\n..."     )    )    (prompt "\n稍候 : ")    (MKLA "建筑-红线" 1)    (while (not        (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))    )    )    (setq  fle       (findfile tn)   pt-lst '()    )    (if (not fle)        (setq fle (getfiled "请选择坐标数据文件" "" "txt;dat;*" 8))    )    (if fle        (progn            (setq fn (open fle "r")          n   0            )            (command "pline")            (while (setq pt (read-line fn))   (setq pt         (cdr (read (strcat "(" pt ")")))              pt-lst (cons pt pt-lst)              n           (1+ n)   )   (command pt)   (princ ".")            )            (command "")            (close fn)            (jzhz);加载汉字            (MKLA "坐标" 3)            (mapcar '(lambda (#pt) (x_zb #pt)) pt-lst) ;标注顶点坐标            (princ "共输入和标注 ")            (princ n)            (princ " 个坐标点!")        )        (princ "\n未选择数据文件，退出")    )    (cmdla1) )

sorrel

程序看过了,你画线的核心算法跟我的差不多


但是因为我的数据文件结构是"点号,X坐标,Y坐标,高程"


我的目的是通过数据点号来对应坐标,那个循环就是用来处理这部分的,对应上就把坐标作成一个表然后放在一起

xyp1964

程序思路有点罗嗦！ “坐标作成一个表”基本无用，读一行写一个点更方便。“点位号 X坐标 Y坐标 Z坐标”与“点号 X坐标 Y坐标 高程”没有区别。程序核心：

2. (command "pline")
3. (while (setq pt (read-line fn))
4.    (setq  pt         (cdr (read (strcat "(" pt ")")))
5.   pt-lst (cons pt pt-lst)
6.   n           (1+ n)
7.    )
8.    (command pt)
9.    (princ ".")
10. )
11. (command "")

(command "pline") (while (setq pt (read-line fn))    (setq  pt         (cdr (read (strcat "(" pt ")")))   pt-lst (cons pt pt-lst)   n           (1+ n)    )    (command pt)    (princ ".") ) (command "")

sorrel

可我并不是每一个点都需要"pline"命令,只有输入点号所对应的坐标才需要,因而需要有个判断,来决定是否读入这个点的坐标,所以才将部分点号放在一个表与所有数据的点号进行比较.


你的程序应该是每个点都是线上的一个点,所以可以读一个画一个吧?


是不是这样?因为估计只看了几天lisp,所以比较菜

xyp1964

不是线上的点放到数据文件中有何用？所以说“程序思路有点罗嗦！”


有时间用程序进行判断，不如直接修改数据文件更简洁、省事！

sorrel

我除了画线还有地物标注,面积图案填充等程序,为了画地图,数据文件是一个总体


都从其中提取

xyp1964

这样做每次既要分析数据文件，还要改程序，很辛苦！呵呵……

sorrel

是呀!但老师就提了这种要求,没办法!


好,那我自己继续努力,希望可以有结果!谢谢你


对了,; 错误: 参数类型错误: consp nil,你知不知道是哪种类型的变量值被附为空了吗?这样改起来还有点头绪

xyp1964

错误: 参数类型错误: consp nil表示


点对表错误！