注册 登录
明经CAD社区 返回首页

13648893846的个人空间 http://www.mjtd.com/?7322544 [收藏] [复制] [分享] [RSS]

日志

读取CASS DAT文件转换为点表

热度 1已有 323 次阅读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
)

路过

雷人

握手
1

鲜花

鸡蛋

刚表态过的朋友 (1 人)

发表评论 评论 (3 个评论)

回复 fanqinwei 2018-9-6 20:24
怎么会出现错误: no function definition: BF-FILE-LENGTH
回复 fanqinwei 2018-9-18 15:53
谢谢提供源代码,能做个演示吗?
回复 fanqinwei 2018-10-4 11:29
BF-File-Length FILE,这个BF是什么

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-10-16 23:11 , Processed in 0.120199 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部