（XD::KML:ReadCoordinates）读GIS KML文件坐标信息到表

newer · 发表于 2017-11-27 13:22:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2017-11-27 13:26 编辑

[JavaScript] 纯文本查看 复制代码

(defun XD::KML:ReadCoordinates (fn / lst str)
  (if (and
        (setq fn (findfile fn))
        (setq lst (xd::list:fromfile fn))
        (setq lst (apply
                    'strcat
                    lst
                  )
        )
        (setq str (xdrx_string_regexps "(?<=\\<coordinates\\>).*(?=<\\/coordinates>"
                                       lst
                  )
        )
      )
    (progn
      (mapcar
        '(lambda (x)
           (xdrx_string_split x " ")
         )
        str
      )
    )
  )
)

KML:

命令: (XD::KML:READCOORDINATES "d:\\1.kml")
(("123.87788772583008,41.876535415649414"
"123.91385078430176,41.876535415649414" "123.91385078430176,41.850185394287109"
"123.87788772583008,41.850185394287109" "123.87788772583008,41.876535415649414"))

renyonghua2014 · 发表于 2018-9-23 01:10:19

这个实用啊，学习楼主。

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

[[coior=red]文档类] （XD::KML:ReadCoordinates）读GIS KML文件坐标信息到表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。