（XD::Pnts:RemovePits）删除多段线（点表）里面的凹点，变成凸多边形

Lispboy · 发表于 2017-9-18 16:45:40

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

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

×

游客，如果您要查看本帖隐藏内容请回复

dyjwyqz5221 · 发表于 2021-5-24 21:43:26

本帖最后由 dyjwyqz5221 于 2021-5-24 22:03 编辑

考虑到多段线的复杂性，仅删除多段线中凹点的话，下面这个函数可能是目前较为合适的。
(defun XD::poly:RemovePits(e / lst)    (xdrx-polyline-compress e 7)
      (while (setq lst (xdrx-getpropertyvalue e "AllOuterAngles"))
            (mapcar
                     '(lambda(x)
                              (xdrx-polyline-removevertexat e x)
                     )
                     lst
            )
      )
)

炫翔 · 发表于 2017-9-18 19:35:35

回复学习，看看思路

434939575 · 发表于 2017-9-18 20:55:01

回复学习，不知道有啥用！

liuyj · 发表于 2017-9-19 00:25:39

看看能用在哪里

yoyoho · 发表于 2017-9-19 06:55:52

感谢分享学习！！！

sh_h · 发表于 2017-9-19 07:10:31

回复学习，楼主辛苦了！！！

hiONE · 发表于 2017-9-19 11:08:41

我是来学习的

liulisheng · 发表于 2017-9-19 12:43:46

bonny123 · 发表于 2017-9-21 15:05:24

这个怎么学习的

livine · 发表于 2017-9-23 20:13:15

这个找了好久了~太感谢了~

VBAVBAA · 发表于 2017-9-24 00:06:24

巡逻，学习学习

taoyi0727 · 发表于 2017-11-23 11:03:31

感谢分享学习！！！

ewqszh · 发表于 2017-11-27 08:44:12

我来测试一下，行不行

xinxirong · 发表于 2017-11-27 18:23:35

牛b应该很有用

lifei18 · 发表于 2017-11-28 11:33:35

看看能用在哪里

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

[点表] （XD::Pnts:RemovePits）删除多段线（点表）里面的凹点，变成凸多边形

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

评分