读取CASS DAT文件转换为点表

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

;;[功能]读取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

欠缺的函数论坛里面下载

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

不会用弄不明白

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

测绘同行，谢谢啊

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

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

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

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

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

你用点表生成多段线试试

账号		自动登录	找回密码
密码			注册

[函数] 读取CASS DAT文件转换为点表