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

liliming · 发表于 2004-6-2 10:10:00

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

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

zzz8662 · 发表于 2004-6-2 10:29:00

可能是实体并集有问题

liliming · 发表于 2004-6-2 10:46:00

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

雪山飞狐_lzh · 发表于 2004-6-2 15:02:00

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

liliming · 发表于 2004-6-3 18:20:00

能不能在具体一点
我不大会

雪山飞狐_lzh · 发表于 2004-6-3 18:50:00

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) = ""
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub
选择起点和终点横坐标为10的竖线

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

发表回复

精选推荐

浏览过的版块