[原创]：数据转换（xyz to cass）

sony123

;--碎步采集数据计算成果到流水号连线数据格式和南方cass展点数据文件--
;于此同时并提供计算碎步数据的程序
;4-!nVade<3#>的板凳，2007年7月22日 14:02
;------sub------

(defun flz()
        (setq i0 ii)
        (while (or (= zc ",") (= zc " "))
               (setq i0 (1+ i0))
               (setq zc (substr ll i0 1))
        )
        (setq ii i0)
        (while (> zc ",")
        (setq ii (1+ ii))
        (setq zc (substr ll ii 1))
        )
        (setq le (- ii i0))
)
;------main------
(defun C:dtod( / t0 t1 dt1 ff f fo fi wj ll i0 ii BL dh lx  x y z kzm pcode )
        (setvar "cmdecho" 0)
        (setvar "osmode" 0)
        (setq t0 (getvar "cdate"))                                      ;取得系统时间
        (setq ff (open "c:\\123\\newcass.dat" "w"))                     ;打开待新写入的文件,保持与cass软件展点一致（非专业测绘人员容易理解坐标系统）
        (setq f (open "c:\\123\\newno.xyz" "w"))                        ;打开待新写入的文件,只适用于流水号连线方式（半野外数字化适用）   
        (setq wj (getstring "请输入文件名(路径为:c:\\123\\*.xyz:"))    ;读取数据文件路径
        ;*.xyz 的格式为:点号  x  y  z  属性
        (princ "正在转换待定数据格式")
        (setq kzm (strcat "c:\\123\\" wj ".xyz"))
        (setq fo (open  kzm "r"))
        (setq LL (read-line fo))
        (setq p1 (list 0 0))
        (while (and ll (/= ll ""))
                (setq i0 1 ii 1)
                (setq zc (substr ll 1 1))
                (flz) (setq dh (substr ll i0 le))
                (flz) (setq x  (substr ll i0 le))
                (flz) (setq y  (substr ll i0 le))                           
                (flz) (setq z  (substr ll i0 le))                                                     
                (flz) (setq pcode (substr ll i0 le))
                (setq newno (strcat dh "-" pcode "   " x "   " y "   " z))  ;定义新的数据格式，非cass格式的数据转换
                ; (princ newno)(princ "\n")                                 ;屏幕打印出新的数据格式，非cass格式的数据转换
                (write-line newno f)                                        ;行数据写入文件newno

                (setq newcass (strcat dh ",," y "," x "," z))         ;定义新的数据格式，cass格式的数据转换
                ; (princ newcass)(princ "\n")                         ;屏幕打印出新的数据格式，cass格式的数据转换
                (write-line newcass ff)                               ;行数据写入文件newcass

                (setq ll (read-line fO))
        )
        (setq t1 (getvar "cdate"))  
        (setq dt1 (* 1000000 (- t1 t0)))
        (setq dt1 (rtos dt1 2 3))
        (princ (strcat "数据转换共耗时：" dt1  "秒"))
        (setq s (ssget '(0 0)))
        (setvar "cmdecho" 1); (setvar "cecolor" cc)
        (close fo)
        (setq C:dtod nil)                     ;取消函数定义，函数只能运行一次
)


附件有列子和计算程序

nt_cgh

这方法还是蛮好的，值得使用。

dwjb

EXCEL手工导快

sony123

呵呵 楼上的说的很正确 不过excel数据多的时候很麻烦
这个只是个列子  大家可以随意修改需要的数据组合

————————————————————

sony123

呵呵 楼上的说的很正确 不过excel数据多的时候很麻烦
这个只是个列子  大家可以随意修改需要的数据组合

————————————————————

lyz200223

试试

nt_cgh

转换方法自由、灵活。

sony123

(setq newno (strcat dh "-" pcode " " x " " y " " z))
这个地方大家可以设置自己需要的格式，就ok拉！

dashixiong

谢谢下来试试

zhang200335

我们一直在努力!!

af888

谢谢下来试试,好不好用。

namejg

谢谢发，下来试试,以前都是手改，好麻烦

41957979

谢谢，下来学习学习。

ntwzym

以前都是手改，好麻烦

lyf910

这方法还是蛮好的，值得使用。