多段线抽稀工具

Lispboy · 发表于 2016-10-27 22:57:46

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

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

×

顶点过密会造成图形显示缓慢，做边界填充不了，填充出错等等，本工具能根据你输入的精度对多段线顶点抽稀。

如果你觉得工具不错，请评分，评分不扣你的D豆。

插件需要XDRX API 2016.10.28+版本支持。

[sell]

(defun c:XDTB_POLYCX (/ dis keyword nums nums1 ss x)
  (defun _tongji (ss)
    (apply
      '+
      (mapcar
        '(lambda (x)
           (xdrx_getpropertyvalue x "numverts")
         )
        (xdrx_pickset->ents ss)
      )
    )
  )
  (defun _keyword (keyword)
    (cond
      ((= keyword "BE")
        (if (setq dis (getreal (xdrx_prompt "\n长度容差<" #poly_cxdistol
                                            ">:" t
                               )
                      )
            )
          (setq #poly_cxdistol dis)
        )
      )
      ((= keyword "SE")
        (if (setq dis (getreal (xdrx_prompt "\n角度容差<" #poly_cxangletol
                                            ">:" t
                               )
                      )
            )
          (setq #poly_cxangletol dis)
        )
      )
    )
    (xdrx_document_setprec #poly_cxdistol #poly_cxangletol)
    (xdrx_prompt "\n当前设置：长度容差= " #poly_cxdistol "，角度容差="
                 #poly_cxangletol
    )
  )
  (if (not #poly_cxdistol)
    (setq #poly_cxdistol 10.)
  )
  (if (not #poly_cxangletol)
    (setq #poly_cxangletol 1)
  )
  (xdrx_begin)
  (xdrx_document_setprec #poly_cxdistol #poly_cxangletol)
  (xdrx_prompt "\n当前设置：长度容差= " #poly_cxdistol "，角度容差="
               #poly_cxangletol
  )
  (xdrx_initssget "\n选取要抽稀的多段线[长度容差(BE)/角度容差(SE)]<退出>:"
                  "BE SE" "" "_keyword" ""
  )
  (if (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
    (progn
      (xdrx_polyline_convertfrom ss)
      (setq nums (_tongji ss))
      (xdrx_polyline_compress ss t)
      (setq nums1 (_tongji ss))
      (xdrx_prompt "\n总共顶点数 " nums " , 抽稀后顶点数 " nums1 " ,删除了 "
                   (- nums nums1) " 个顶点."
      )
    )
  )
  (xdrx_end)
  (princ)
)

[/sell]

qqqincccken · 发表于 2016-10-28 00:18:45

这是个不错的功能，谢谢提供！！

yoyoho · 发表于 2016-10-28 07:27:45

啥也不说了，感谢 Lispboy 楼主分享程序！

lj524917100 · 发表于 2016-10-28 08:25:00

啥也不说了，感谢楼主分享哇！

守仁格竹GM · 发表于 2016-10-28 08:39:00

回的人少，我来小顶一下

wyldd · 发表于 2016-10-28 09:02:09

这是个不错的功能，谢谢提供！！

longer1000 · 发表于 2016-10-28 09:42:07

啥也不说了，感谢楼主分享哇！

gg5120 · 发表于 2016-10-29 09:11:56

看看这个怎么样

yanchao316 · 发表于 2016-11-1 09:27:32

啥也不说了，感谢楼主分享哇！

lzj511 · 发表于 2016-11-1 11:34:23

好东西,正需要!!!!!!!!!!!

869894166 · 发表于 2017-4-27 18:56:23

正好可以用上，谢谢

xiaoone · 发表于 2017-5-5 12:24:56

谢谢楼主啦~~~新手穷，买不起

xiaoone · 发表于 2017-5-5 12:26:14

我好穷。。。买不起了。。

tiandi2738311 · 发表于 2017-5-25 23:20:07

好东西，谢谢啦

oscarbobo · 发表于 2017-12-1 15:52:37

找这个功能很久了，谢谢楼主分享！

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

[多段线] 多段线抽稀工具

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

评分