多段线顶点消除重复点，重复段

newer · 发表于 2017-6-20 11:29:21

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

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

×

[sell=5]

(defun c:XDTB_PolyLineCompress ( / key ss var)
(defun _keyword (key)
(cond ((= key "T")
(if (setq var (getreal (xdrx_prompt
"\n输入距离精度<"
#xd_var_polyline_dist_tol
">:"
t
)
)
)
(setq #xd_var_polyline_dist_tol var)
)
)
((= key "D")
(if (setq var (getreal (xdrx_prompt
"\n输入角度精度<"
#xd_var_polyline_ang_tol
">:"
t
)
)
)
(setq #xd_var_polyline_ang_tol var)
)
)
)
(_prompt)
)
(defun _prompt ()
(xdrx_prompt
"\n当前设置: 角度精度(" #xd_var_polyline_ang_tol ") / 距离精度("
#xd_var_polyline_dist_tol ")"
)
)
(xdrx_begin)
(if (not #xd_var_polyline_ang_tol)
(setq #xd_var_polyline_ang_tol 0.5)
)
(if (not #xd_var_polyline_dist_tol)
(setq #xd_var_polyline_dist_tol 10.0)
)
(_prompt)
(if (and (xdrx_initget "D T")
(xdrx_initssget
"\n选择处理的多段线[T(距离)/D(角度)]<退出>:"
"D T"
""
"_keyword"
)
(setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
)
(progn (xdrx_document_setprec
#xd_var_polyline_dist_tol
#xd_var_polyline_ang_tol
)
(xdrx_polyline_compress ss t nil)
)
)
(xdrx_end)
(princ)
)

(defun c:XDTB_PolyLineCompress ( / key ss var) 
    (defun _keyword (key) 
        (cond ((= key "T") 
               (if (setq var (getreal (xdrx_prompt 
                                          "\n输入距离精度<" 
                                          #xd_var_polyline_dist_tol 
                                          ">:" 
                                          t 
                                      ) 
                             ) 
                   ) 
                   (setq #xd_var_polyline_dist_tol var) 
               ) 
              ) 
              ((= key "D") 
               (if (setq var (getreal (xdrx_prompt 
                                          "\n输入角度精度<" 
                                          #xd_var_polyline_ang_tol 
                                          ">:" 
                                          t 
                                      ) 
                             ) 
                   ) 
                   (setq #xd_var_polyline_ang_tol var) 
               ) 
              ) 
        ) 
        (_prompt) 
    ) 
    (defun _prompt () 
        (xdrx_prompt 
            "\n当前设置: 角度精度(" #xd_var_polyline_ang_tol ") / 距离精度(" 
            #xd_var_polyline_dist_tol ")" 
           ) 
    ) 
    (xdrx_begin) 
    (if (not #xd_var_polyline_ang_tol) 
        (setq #xd_var_polyline_ang_tol 0.5) 
    ) 
    (if (not #xd_var_polyline_dist_tol) 
        (setq #xd_var_polyline_dist_tol 10.0) 
    ) 
    (_prompt) 
    (if (and (xdrx_initget "D T") 
             (xdrx_initssget 
                 "\n选择处理的多段线[T(距离)/D(角度)]<退出>:" 
                 "D T" 
                 "" 
                 "_keyword" 
             ) 
             (setq ss (xdrx_ssget '((0 . "LWPOLYLINE")))) 
        ) 
        (progn (xdrx_document_setprec 
                   #xd_var_polyline_dist_tol 
                   #xd_var_polyline_ang_tol 
               ) 
               (xdrx_polyline_compress ss t nil) 
        ) 
    ) 
    (xdrx_end) 
    (princ) 
)

[/sell]

tyjtyj19811981 · 发表于 2017-6-20 16:49:48

这么好的功能，怎么没有人下来用用？

sunyukun · 发表于 2017-6-20 17:02:53

不知道怎么付费看的

Lisphk · 发表于 2017-6-20 17:42:22

sunyukun 发表于 2017-6-20 17:02

点击购买就行了。

XU838934774 · 发表于 2017-6-21 09:22:05

sh_h · 发表于 2017-6-21 10:37:43

谢谢楼主分享！！！

liunian0524 · 发表于 2017-6-23 09:53:57

感谢版主分享

jxwfz19740724 · 发表于 2017-7-19 09:10:49

看看这个插件。

wjlddh · 发表于 2017-7-21 21:50:13

不是动态图是不是减少节点的插件

jiaoquangb · 发表于 2017-10-10 18:41:52

可以使用吗？好用吗？

jiaoquangb · 发表于 2017-10-10 18:53:58

运行程序后，图形怎么改变了呢？

sunshineygl · 发表于 2017-12-23 16:44:47

非常好的插件，一直在找，终于找到了

gyq850101 · 发表于 2018-3-19 09:02:02

多谢楼主分享。

lmchgs · 发表于 2018-3-20 09:15:45

我想对边长标注很有用

yansu · 发表于 2018-3-20 09:20:48

感谢版主分享

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

[多段线] 多段线顶点消除重复点，重复段

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