论坛 › 开源函数库 › （XD::Pnts:RemovePits）删除多段线（点表）里面的凹点，变成凸多边形

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

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

**** Hidden Message *****

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

{:1_12:}{:1_12:}{:1_12:}{:1_12:}{:1_12:}{:1_12:}

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）删除多段线（点表）里面的凹点，变成凸多边形