读取CASS DAT文件转换为点表
热度 1已有 1195 次阅读2018-8-18 23:08
|系统分类:应用|
文件转换, 原始, 地貌, 选择, 长度
;;[功能]读取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
)