按最近点批量框选提取高程点【已解决】

3114637 · 发表于 2020-3-29 11:07:28

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

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

×

本帖最后由 3114637 于 2020-4-1 15:11 编辑

按最近点批量框选提取高程点，CASS自带随机提取想要按距离最近的点按顺序提取高程点到dat文件

pxr201419 · 发表于 2020-3-31 07:49:06

(defun c:tt  (/ ss pt i lst fl)
(prompt "\n选取高程点")
(setq ss (ssget '((0 . "insert")))
      pt (getpoint "\n点取最近点"))
(if (and ss pt)
   (progn
      (setq i 0
            lst '())
      (while (< i (sslength ss))
         (setq lst (cons (cdr (assoc 10 (entget (ssname ss i)))) lst)
               i (1+ i)))
      (setq lst (vl-sort lst '(lambda (x y) (< (distance x pt) (distance y pt)))))
      (setq fl (open "d:/123.dat" "w"))
      (setq i 0)
      (while (< i (length lst))
         (write-line (strcat (rtos (1+ i) 2 0) ",,"
                              (rtos (car (nth i lst)) 2 3) ","
                              (rtos (cadr (nth i lst)) 2 3) ","
                              (rtos (last (nth i lst)) 2 3))
                     fl)
         (setq i (1+ i)))
      (close fl)
      (startapp "notepad" "d:/123.dat"))))

JHX948954875 · 发表于 2020-12-30 10:42:52

谢谢楼主分享

qq787116960 · 发表于 2022-9-20 22:24:21

版主大大太厉害了，谢谢

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

[已解决] 按最近点批量框选提取高程点【已解决】

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