13648893846 发表于 2018-8-18 23:07:40

读取CASS DAT文件转换为点表

;;[功能]读取CASS DAT文件转换为点表
;;[用法](LC:read-CASS-dat-list)
;;[作者]BY 老仓测绘上班记
(defun LC:read-CASS-dat-list (/ FILE PTSLST STRLENGTH I F1 STR1 STRLST)
(setq FILE (getfiled "选择原始地貌.dat文件" "" "dat" 4))
(setq ptslst '()
       strlength (length strlst);表长度
       i 0
)

(setq F1 (open FILE "r"))
    (repeat (BF-File-Length FILE);行数长度
      (setq STR1 (read-line F1)
         strlst (cdr (read (strcat "(" (XD::String:Replace "," " " STR1) ")")))
   );前后补上括号然后read把字符串变表
      (nth i strlst);
      (setq ptslst (append ptslst (list strlst)))
      (setq i (1+ i))
    )
ptslst
)

13648893846 发表于 2018-8-19 00:02:13

欠缺的函数论坛里面下载

snight523 发表于 2018-8-19 19:38:48

不会用 弄不明白

xujinhua 发表于 2018-8-19 20:55:26

测绘同行，谢谢啊

snight523 发表于 2018-11-8 11:31:19

楼主能不能给小白们科普一下怎么使用，研究了好久都没弄明白。

13648893846 发表于 2018-11-8 14:35:26

读取CASS里程文件把偏距和高程转成点表生成断面线

13648893846 发表于 2018-11-8 14:36:17

你用点表生成多段线试试
页: [1]
查看完整版本: 读取CASS DAT文件转换为点表