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

510438061 · 发表于 2020-11-20 20:46:32

125107089 · 发表于 2020-11-25 13:31:33

学习

a117034423 · 发表于 2020-11-30 13:55:42

学习了试一下谢谢分享

wzjck01 · 发表于 2021-1-13 16:07:23

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

xujinhua · 发表于 2021-2-3 14:56:37

有点不太懂是什么意思

鬼子兵 · 发表于 2021-5-8 11:20:05

学习学习，谢谢分享！

lgh04212 · 发表于 2021-5-13 17:10:04

感谢楼主分享学习了

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
            )
      )
)

sevenhaj · 发表于 2021-12-2 20:40:08

感谢，学习！

yangjian001 · 发表于 2021-12-3 00:03:55

做一个热心并受欢迎的人

jxg1986j · 发表于 2022-10-31 11:31:34

回复学习，看看思路

kingering125 · 发表于 2022-11-2 10:53:29

谢谢楼主的分享！

guosheyang2 · 发表于 2022-11-2 22:38:05

谢谢楼主的分享！

15989144277 · 发表于 2022-11-7 16:02:08

谢谢分享，很有用

yanshengjiang · 发表于 2022-11-29 16:03:31

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

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

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