高手们！看看我的程序！提提意见吧!

liliming

大家看一下，下面这个图中所附带的宏，我本意使用它的到多个长方体叠加的立体图的，我发现对所有的两个长方体叠加，出来的立体图都是对的。可是用到图中所示的三个长方体的叠加时的类似情况，出来的图就不行了。还望各位高手能提一下意见

zzz8662

可能是实体并集有问题

liliming

我知道问题主要出在两点连线的地方。我在两点连线时所采用的条件是只要力两个点有两个坐标相等就连线，我不知道什么样的条件是最好的，帮忙想一下吧


谢谢

雪山飞狐_lzh

可以用选择集+过滤器判断有起点和终点两个坐标相等(等于某一个值)的直线是否存在

liliming

能不能在具体一点


我不大会

雪山飞狐_lzh

Sub test()
Dim ss As AcadSelectionSet
Dim pnt(2) As Double
pnt(0) = 10
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
Dim ft(6) As Integer, fd(6)
ft(0) = 0: fd(0) = "Line"
ft(1) = -4: fd(1) = "<And"
ft(2) = -4: fd(2) = "=,*,*"
ft(3) = 10: fd(3) = pnt
ft(4) = -4: fd(4) = "=,*,*"
ft(5) = 11: fd(5) = pnt
ft(6) = -4: fd(6) = "And>"
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub
选择起点和终点横坐标为10的竖线