用vba删除cad的点的问题

[tommerxx]

用多线围合了一个面，在这个围合面内以及围合面以外均有点（point），如何将不在围合面内的点删除？请给个vba的代码，谢谢！

[舉杯邀明月]

不懂CAD，友情Up.........

[mhm0517]

1.先编历图形中的所有点.
2.根据每个点所在的位置X与Y坐标 与多线段外围的点进行比较.

[tommerxx]

2楼的朋友，关键问题是如何进行比较。

[mhm0517]

给你一个示例的算法理论.代码自己写啊.

1. 面是一个三角形 (三点坐标: (X1,Y1) = (3,1) (X2,Y2) = (5,3) (X1,Y1) = (6,2) )

根据X与Y坐标知道.点的X坐标<3或X坐标>6,删除. 点的Y坐标<1或Y坐标>3,删除.

2.连接第一点与第二点,计算直线的斜率. 连接第一点与第三点,计算直线的斜率.
连接第一点与编历点,计算直线的斜率.

3.如果第三个在上面计算的二个斜率之间,刚进行第三次计算.
连接第二点与第三点,计算直线斜率. 连接第三点与编历点.计算直线斜率.
比较再次计算的斜率.可以知道点是否在面里面了.

[mhm0517]

关于多边形的,可以先分解成多个三角形.
其实个人感到分成四边形更合适.

第一先看每个点是否在二个相邻边的斜率之间.
再看是否在另二个边的斜率之间.

如果都在,即在四边形内,有一个不在.就不在四边形内.