[VBA程序]：如何求与给定直线相交的对象

xwyfx · 发表于 2004-9-14 13:25:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教高手：如何求出与给定直线相交的对象

雪山飞狐(lzh) · 发表于 2004-9-14 13:52:23

Sub test()
Dim pObj As AcadEntity
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ThisDrawing.Utility.GetEntity pObj, pnt
pObj.GetBoundingBox p1, p2
ss.Select acSelectionSetCrossing, p1, p2
For Each i In ss
If IsArray(pObj.IntersectWith(i, acExtendNone)) And Not pObj Is i Then
MsgBox i.Handle
End If
Next i
End Sub

xwyfx · 发表于 2004-9-14 16:43:09

我正在做一个画剖面的小工具，这个过程很关键，有了楼上的很快就可以完工了，谢谢斑竹赐教

再请教一下 AcadSelectionSet的clear方法，delete方法，erase方法有什么不同呀

雪山飞狐(lzh) · 发表于 2004-9-14 20:57:59

http://www.xdcad.net/forum/showt ... pagenumber=1&s=

雪山飞狐(lzh) · 发表于 2004-9-15 11:22:58

写完没怎么调试，这里应该改一下
If IsArray(pObj.IntersectWith(i, acExtendNone)) And Not pObj Is i Then
改为
If UBound(pObj.IntersectWith(i, acExtendNone)) <> -1 And Not pObj Is i Then

xwyfx · 发表于 2004-9-15 13:10:13

请问斑竹，上面的语句为什么要那么改呀

为什么有时我用IntersectWith求得的交点坐标，和在图中测量得的不一样呀（差很多）

VBA里有没有现成的函数求出两点间的距离

winabcd · 发表于 2004-9-20 09:31:50

程序中没要求指定直线, 如图形中有多条直线, 会出现什么结果?

雪山飞狐(lzh) · 发表于 2004-9-20 10:32:02

请看清题意，他要的是给定直线的，就是说，程序里已经得到了该直线，我只是做一个演示

两点间距离的函数可以自己编麽，很简单

下里巴人 · 发表于 2004-10-15 15:29:40

不好意思，我想学习vba,问一下，那个i是啥？是个点？
怎么得到交点，下面的代码是？
我试了一下，Isarry和ubound的运行结果一样啊，两者的区别？

ntchjie · 发表于 2004-10-15 16:54:31

老大，这句能否解释一下：
If UBound(pObj.IntersectWith(i, acExtendNone)) <> -1 And Not pObj Is i Then

雪山飞狐(lzh) · 发表于 2004-10-15 19:42:29

依次与选择集内实体求交点

下里巴人 · 发表于 2004-10-18 14:38:14

对三维,用If UBound(pObj.IntersectWith(i, acExtendNone)) <> -1 And Not pObj Is i Then
是不是就求不出交点了,因为,三维点坐标不一样,不在一个面,怎么处理?

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

[VBA程序]：如何求与给定直线相交的对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子