cass插件LSP，每隔一定距离提取一个点的坐标

544551616 · 发表于 2019-6-23 16:39:11

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

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

×

有没有大神有思路，就是选中一条线，选择线上点之间要间隔的距离，比如5米、10米、20米的选择。选择后按照间隔的距离生成X Y坐标文件。

王鹏_pBZlo · 发表于 2019-6-23 17:34:22

本帖最后由王鹏_pBZlo 于 2019-6-23 18:35 编辑

(defun c:tt( / sset dis ent ptlist)
      (if (setq sset (ssget "x" (list (cons 0 "point")))) (command "erase" sset ""))
      (setq dis (getreal "\n输入间隔距离(mm):"))
      (prompt "在靠近起点处选择线条:")
      (command "measure" pause dis)
      (setq sset (ssget "x" (list (cons 0 "point"))))
      (setq ptlist nil i -1)
      (while (setq ent (ssname sset (setq i (1+ i))))
            (setq ptlist (append ptlist (list (cdr (assoc 10 (entget ent))))))
      )       (command "erase" sset "") (prompt "\n")
      ptlist
)

544551616 · 发表于 2019-6-23 18:01:50

王鹏_pBZlo 发表于 2019-6-23 17:34
measure命令加点,然后提取点的坐标

太麻烦了，在地形图中不就这一条线，还好多地形地物，选中一条线很方便的。而且measure命令是生成的是独立的点，不是在线上的节点。框选不方便。

王鹏_pBZlo · 发表于 2019-6-23 18:34:54

544551616 发表于 2019-6-23 18:01
太麻烦了，在地形图中不就这一条线，还好多地形地物，选中一条线很方便的。而且measure命令是生成的是独 ...

不用选点啊,得到的点列表你可以处理成你需要的坐标文件

1917732332 · 发表于 2019-6-25 08:12:33

这个还可以啊

txd720127 · 发表于 2019-6-25 09:15:00

虽然不会处理，但感觉不错！支持！

newer · 发表于 2020-7-11 16:42:52

你求助是选中一条线，人家帮你写了，你又说选一条不方便
求助时候就把工作中情况都说明好
图文并茂，因为这里面不是都和你一个专业的

f4800 · 发表于 2020-8-12 14:37:24

王鹏_pBZlo 发表于 2019-6-23 17:34
(defun c:tt( / sset dis ent ptlist)
(if (setq sset (ssget "x" (list (cons 0 "point")))) (co ...

好用感谢。。分享

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

[求助] cass插件LSP，每隔一定距离提取一个点的坐标

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

点评

点评