[求助]：如何用lisp编连点程序？

tongjiqt

用电子全站仪测量某一点位可以得到如下测量数据，例如：
12 398.364 456.235 45.987 DB
13 234.435 435.781 34.545 DM
14 234.353 565.454 56.345 DE
...

这样一组数据保存在.txt文本里

其中12为点号，就是某次测量的第12个点
中间三位为X，Y，Z坐标值
DB为code ,也就是编码，可以在测每一个点时人工输入

怎样编写lisp 编程，利用某些编码，把特定点自动连线

比如测量一条路的其中一边，在开始第一点设code为DB，D代表道路，B代表开始；此后中间点的code一律用DM；到最后一个点，用DE


我想每次读入一行数据，检验到code为DB的点就开始连线，连到code 为DM的点继续，到code 为DE的点九停止连线。因为我在测量时是沿着某条路的一边一直跑的，所以点号是连续的。也就是说从读第一行开始，到结束连线的那一行数据，其间所有的数据都是路这一边的。所以尽管路的另一边我也用相同的code 设置方法，如果按这个思路连线，应该不会窜连吧？

另一种想法是把所有点都展绘到图上（这个我已经用Lisp编程实现），然后编写另一个Lisp程序按上述code 捕捉特定的点进行连线

请问哪个思路可行？请帮忙编一个lisp 程序

yshf

请致电“hrycly@126.com”。

zxq0220

2. 
   
3. (DEFUN C:MYPLINE ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (SETQ OLDOS (GETVAR "OSMODE"))
   
6. (SETVAR "OSMODE" 0)
   
7. (SETQ NMM (IF NMM NMM ""))
   
8. (SETQ NMM (GETFILED "File Name :" NMM "txt" 8))
   
9. (IF (SETQ F (OPEN NMM "r")) (PROGN
   
10.   (WHILE (SETQ MLST (READ-LINE F))
    
11.    (SETQ MLST (READ (STRCAT "(" MLST ")")))
    
12.    (SETQ PT (REVERSE (CDR (REVERSE (CDR MLST)))))
    
13.    (SETQ IFST (LAST MLST))
    
14.    (IF (= IFST 'DB)
    
15.     (COMMAND "PLINE" PT)
    
16.     (COMMAND PT)
    
17.    )
    
18.    (IF (= IFST 'DE) (COMMAND ""))
    
19.   )
    
20.   (CLOSE F)
    
21. ))
    
22. (SETVAR "OSMODE" OLDOS)
    
23. (SETVAR "CMDECHO" 1)
    
24. (PRINC)
    
25. )
    

<br /> (DEFUN C:MYPLINE ()<br /> (SETVAR "CMDECHO" 0)<br /> (SETQ OLDOS (GETVAR "OSMODE"))<br /> (SETVAR "OSMODE" 0)<br /> (SETQ NMM (IF NMM NMM ""))<br /> (SETQ NMM (GETFILED "File Name :" NMM "txt" 8))<br /> (IF (SETQ F (OPEN NMM "r")) (PROGN<br />   (WHILE (SETQ MLST (READ-LINE F))<br />    (SETQ MLST (READ (STRCAT "(" MLST ")")))<br />    (SETQ PT (REVERSE (CDR (REVERSE (CDR MLST)))))<br />    (SETQ IFST (LAST MLST))<br />    (IF (= IFST 'DB)<br />     (COMMAND "PLINE" PT)<br />     (COMMAND PT)<br />    )<br />    (IF (= IFST 'DE) (COMMAND ""))<br />   )<br />   (CLOSE F)<br /> ))<br /> (SETVAR "OSMODE" OLDOS)<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />

yshf

;1. 将下载的展点连线程序“ddlx0.fas”
;   存入G盘的ddlx目录下，如存入其它地址，
;   则修改程序中“(load "g:/ddlx/ddlx0.fas")”
;   使之相符。
;2. 使用以下示例程序，即可展点连线。
;3. 数据文件各数据项用“空格”分隔，也可以用
;   英文状态的“,"号或者中文状态“，”号作分隔。
(defun c:cc()
   (if (null ddlx)(load "G:/ddlx/ddlx0.fas"))
   (ddlx (setq ff (getfiled "请选择要展点的数据文件" "" "txt" 2)))
   (princ)
)

tongjiqt

非常感谢两位的帮助！2楼的楼主人很好，有点像严谨的老师，我要好好学习啦！3楼楼主的程序getfile函数写错了，虽然我没有运行成功，不过也学到了东西