[求助]求助横断面格式转换lsp程序

hao3ren

;;;多行格式
0+100 
-10,1110.474
-8,1109.589
-5,1108.375
0,1107.932
4.1,1107.981
8.1,1109.686
12.1,1110.859
15,1110.725

0+200

........

........

2+400

;;;三行格式
0+100,1107.932
-5.000,1108.375,-8.000,1109.589,-10.000,1110.474,
4.100,1107.981,8.100,1109.686,12.100,1110.859,15,1110.725

0+200

........

........

2+400
;;;单行格式
0+100,0,1107.932,-5,1108.375,-8,1109.589,-10,1110.474,4.1,1107.981,8.1,1109.686,12.1,1110.859,15,1110.725

 

0+200

........

........

2+400

 

求助横断面格式转换lsp程序，因为各个软件要求格式不一样，怎么可以使上面三种格式互相转换呢，数据为文本格式，里面有多个横断面，每个横断面的点数可能不一样多，困扰多时求各位兄弟帮忙解决

004

以前写了纬地和cass断面的互转.

1. ;;0042hd-cass-123.lsp  wkq004 2011-05-05
   
2. 
   
3. (defun c:zh (/ F F2 F3 H PJGC WZ X YGC YPJ ZGC ZLIST ZPJ ZZ ZZN)
   
4. ;;;  (command "osmode" "0")
   
5.   (setq f2 (open "e:\\002.hdm" "w"))
   
6.   (setq f3 (open "e:\\003.txt" "w"))
   
7.   (setq        f
   
8.          (open (strcat
   
9.                  (getfiled "选择文件==>"
   
10.                            "e:\\"
    
11.                            "dmx"
    
12.                            8
    
13.                  )
    
14.                )
    
15.                "r"
    
16.                
    
17.          )
    
18.   )
    
19.   
    
20.   (setq h (read-line f))
    
21.   (setq h (read-line f))
    
22.   (setq h (read-line f))
    
23. 
    
24.   (setq zzn 1)
    
25.   (setq zz (read-line f))
    
26.   (while zz
    
27.     (write-line (strcat "BEGIN," zz ":" (itoa zzn)) f2)
    
28.     (setq gaocheng (getreal (strcat "输入" zz "高程:")))
    
29.     (setq zlist (list))
    
30.     (setq h (read-line f)) ;_hang
    
31.     (while h
    
32.       (setq wz (vl-string-search "        " h)) ;_wei zhi
    
33.       (setq zpj (substr h 1 wz)) ;_ping ju
    
34.       (setq h (substr h (+ 2 wz)))
    
35.       (if (setq wz (vl-string-search "," h))
    
36.         (progn
    
37.           (setq zgc (substr h 1 wz)) ;_gao cha
    
38.           (setq h (substr h (+ 3 wz)))
    
39.         )
    
40.         (progn
    
41.           (setq zgc h)
    
42.           (setq h nil)
    
43.         )
    
44.       )
    
45.       (setq pjgc (strcat "-" zpj "," (rtos  (- gaocheng (atof zgc)) 2 3)));ping ju gao cha
    
46.       (setq zlist (cons pjgc zlist))
    
47.     )
    
48.     (mapcar '(lambda (x)
    
49.                (write-line x f2)
    
50.              )
    
51.             zlist
    
52.     )
    
53.     (write-line (strcat"0.000," (rtos gaocheng 2 3)) f2)
    
54.     (setq h (read-line f)) ;_hang
    
55.     (while h
    
56.       (setq wz (vl-string-search "        " h)) ;_wei zhi
    
57.       (setq ypj (substr h 1 wz)) ;_ping ju
    
58.       (setq h (substr h (+ 2 wz)))
    
59.       (if (setq wz (vl-string-search "," h))
    
60.         (progn
    
61.           (setq ygc (substr h 1 wz)) ;_gao cha
    
62.           (setq h (substr h (+ 3 wz)))
    
63.         )
    
64.         (progn
    
65.           (setq ygc h)
    
66.           (setq h nil)
    
67.         )
    
68.       )
    
69.       (write-line (strcat "" ypj "," (rtos (- gaocheng (atof ygc)) 2 3)) f2)
    
70.     )
    
71.     (setq zz (read-line f))
    
72.     (setq zzn (+ 1 zzn))
    
73.   )
    
74.   (close f)
    
75.   (close f2)
    
76.   (close f3)
    
77.   (princ)
    
78. )

;;0042hd-cass-123.lsp  wkq004 2011-05-05<br /> <br /> (defun c:zh (/ F F2 F3 H PJGC WZ X YGC YPJ ZGC ZLIST ZPJ ZZ ZZN)<br /> ;;;  (command "osmode" "0")<br />   (setq f2 (open "e:\\002.hdm" "w"))<br />   (setq f3 (open "e:\\003.txt" "w"))<br />   (setq        f<br />          (open (strcat<br />                  (getfiled "选择文件==>"<br />                            "e:\\"<br />                            "dmx"<br />                            8<br />                  )<br />                )<br />                "r"<br />                <br />          )<br />   )<br />   <br />   (setq h (read-line f))<br />   (setq h (read-line f))<br />   (setq h (read-line f))<br /> <br />   (setq zzn 1)<br />   (setq zz (read-line f))<br />   (while zz<br />     (write-line (strcat "BEGIN," zz ":" (itoa zzn)) f2)<br />     (setq gaocheng (getreal (strcat "输入" zz "高程:")))<br />     (setq zlist (list))<br />     (setq h (read-line f)) ;_hang<br />     (while h<br />       (setq wz (vl-string-search "        " h)) ;_wei zhi<br />       (setq zpj (substr h 1 wz)) ;_ping ju<br />       (setq h (substr h (+ 2 wz)))<br />       (if (setq wz (vl-string-search "," h))<br />         (progn<br />           (setq zgc (substr h 1 wz)) ;_gao cha<br />           (setq h (substr h (+ 3 wz)))<br />         )<br />         (progn<br />           (setq zgc h)<br />           (setq h nil)<br />         )<br />       )<br />       (setq pjgc (strcat "-" zpj "," (rtos  (- gaocheng (atof zgc)) 2 3)));ping ju gao cha <br />       (setq zlist (cons pjgc zlist))<br />     )<br />     (mapcar '(lambda (x)<br />                (write-line x f2)<br />              )<br />             zlist<br />     )<br />     (write-line (strcat"0.000," (rtos gaocheng 2 3)) f2)<br />     (setq h (read-line f)) ;_hang<br />     (while h<br />       (setq wz (vl-string-search "        " h)) ;_wei zhi<br />       (setq ypj (substr h 1 wz)) ;_ping ju<br />       (setq h (substr h (+ 2 wz)))<br />       (if (setq wz (vl-string-search "," h))<br />         (progn<br />           (setq ygc (substr h 1 wz)) ;_gao cha<br />           (setq h (substr h (+ 3 wz)))<br />         )<br />         (progn<br />           (setq ygc h)<br />           (setq h nil)<br />         )<br />       )<br />       (write-line (strcat "" ypj "," (rtos (- gaocheng (atof ygc)) 2 3)) f2)<br />     )<br />     (setq zz (read-line f))<br />     (setq zzn (+ 1 zzn))<br />   )<br />   (close f)<br />   (close f2)<br />   (close f3)<br />   (princ)<br /> )

1. ;;0045cass-hd-123.lsp   wkq004 2011-05-05
   
2. (defun c:tt (/ D1 D2 F F2 YB ZB ZH D1 D2 F H WZ)
   
3.   (command "osmode" "0")
   
4.   (setq f2 (open "e:\\002.dmx" "w"))
   
5.   (setq        f
   
6.          (open (strcat
   
7.                  (getfiled "选择文件==>"
   
8.                            "e:\\"
   
9.                            "hdm"
   
10.                            8
    
11.                  )
    
12.                )
    
13.                "r"
    
14.          )
    
15.   )
    
16.   (write-line "//平距和高差都相对中桩坐标" f2)
    
17.   (write-line "//数据顺序为:  先平距后高差" f2)
    
18.   (write-line
    
19.     "//////////////////////////////////////////////////////////////////////////"
    
20.     f2
    
21.   )
    
22.   (setq yb "")
    
23.   (setq zb "")
    
24.   (while (dh)
    
25.     (cond ((= d1 "BEGIN")
    
26.            (progn (setq zh (substr d2 1 (vl-string-search ":" d2)))
    
27.                   (if (/= "" yb)
    
28.                     (write-line (substr yb 1 (- (strlen yb) 2)) f2)
    
29.                   )
    
30.                   (setq yb "")
    
31.                   (write-line zh f2)
    
32.            )
    
33.           )
    
34.           ((= d1 "0.000")
    
35.            (progn (if (/= "" zb)
    
36.                     (write-line (substr zb 1 (- (strlen zb) 2)) f2)
    
37.                   )
    
38.                   (setq zb "")
    
39.            )
    
40.           )
    
41.           ((= "-" (substr d1 1 1))
    
42.            (setq zb (strcat (substr d1 2) "        " d2 "," "        " zb))
    
43.           )
    
44.           (t (setq yb (strcat yb d1 "        " d2 "," "        ")))
    
45.     )
    
46.   )
    
47.   (if yb
    
48.     (write-line (substr yb 1 (- (strlen yb) 2)) f2)
    
49.   )
    
50.   (close f)
    
51.   (close f2)
    
52.   (princ)
    
53. )
    
54. (defun dh ()
    
55.   (if (setq h (read-line f))
    
56.     (progn (setq wz (vl-string-search "," h)) ;_wei zhi
    
57.            (setq d1 (substr h 1 wz)) ;_ping ju
    
58.            (setq d2 (substr h (+ 2 wz)))
    
59.     )
    
60.   )
    
61. )
    

;;0045cass-hd-123.lsp   wkq004 2011-05-05<br /> (defun c:tt (/ D1 D2 F F2 YB ZB ZH D1 D2 F H WZ)<br />   (command "osmode" "0")<br />   (setq f2 (open "e:\\002.dmx" "w"))<br />   (setq        f<br />          (open (strcat<br />                  (getfiled "选择文件==>"<br />                            "e:\\"<br />                            "hdm"<br />                            8<br />                  )<br />                )<br />                "r"<br />          )<br />   )<br />   (write-line "//平距和高差都相对中桩坐标" f2)<br />   (write-line "//数据顺序为:  先平距后高差" f2)<br />   (write-line<br />     "//////////////////////////////////////////////////////////////////////////"<br />     f2<br />   )<br />   (setq yb "")<br />   (setq zb "")<br />   (while (dh)<br />     (cond ((= d1 "BEGIN")<br />            (progn (setq zh (substr d2 1 (vl-string-search ":" d2)))<br />                   (if (/= "" yb)<br />                     (write-line (substr yb 1 (- (strlen yb) 2)) f2)<br />                   )<br />                   (setq yb "")<br />                   (write-line zh f2)<br />            )<br />           )<br />           ((= d1 "0.000")<br />            (progn (if (/= "" zb)<br />                     (write-line (substr zb 1 (- (strlen zb) 2)) f2)<br />                   )<br />                   (setq zb "")<br />            )<br />           )<br />           ((= "-" (substr d1 1 1))<br />            (setq zb (strcat (substr d1 2) "        " d2 "," "        " zb))<br />           )<br />           (t (setq yb (strcat yb d1 "        " d2 "," "        ")))<br />     )<br />   )<br />   (if yb<br />     (write-line (substr yb 1 (- (strlen yb) 2)) f2)<br />   )<br />   (close f)<br />   (close f2)<br />   (princ)<br /> )<br /> (defun dh ()<br />   (if (setq h (read-line f))<br />     (progn (setq wz (vl-string-search "," h)) ;_wei zhi<br />            (setq d1 (substr h 1 wz)) ;_ping ju<br />            (setq d2 (substr h (+ 2 wz)))<br />     )<br />   )<br /> )<br />

236004

你这是把CASS的断面转成纬地数据格式的断面嘛？

236004

你这是把CASS的断面转成纬地数据格式的断面嘛？

hao3ren

楼上的兄弟用的什么软件啊，可否告知啊

guican

用的是什么软件呀

遢绅~^士

用的是什么软件啊？

gzxl

没用过纬地，给楼上鼓掌

szh888

纬地不知道好不好用？

暮雨寒阳

236004 发表于 2010-11-26 12:39
你这是把CASS的断面转成纬地数据格式的断面嘛？

用的什么软件？