乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 68|回复: 4

请教多段线相交问题

[复制链接]

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2006-9-5 20:15:00 | 显示全部楼层 |阅读模式
假设图内有大量的多段落线,任取其中一根,如何快速确定其它的多段线是否与所选这根相交?当然不能采用一根根试的办法
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2006-9-5 20:40:00 | 显示全部楼层
先用GetBoundingBox返回对象边框的最大和最小点,再。。。
回复

使用道具 举报

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2006-9-5 21:03:00 | 显示全部楼层
"先用GetBoundingBox返回对象边框的最大和最小点,再。。。"
是用最大和最小点做框选,然后再一根根与框选到的实体比较吗?这样做只是缩小了范围,还有没有其它办法
回复

使用道具 举报

20

主题

115

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2006-9-6 08:11:00 | 显示全部楼层
用这种方法可以做到的
Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")
     
    ' Add all the entities that lie within a fence to the selection set
    Dim mode As Integer
    Dim pointsArray(0 To 11) As Double
    mode = acSelectionSetFence
    pointsArray(0) = 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0
    pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0
    pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0
    pointsArray(9) = 28: pointsArray(10) = -3: pointsArray(11) = 0
   
    ssetObj.SelectByPolygon mode, pointsArray
回复

使用道具 举报

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2006-9-9 16:31:00 | 显示全部楼层
没看明白,好象回答的不是我的问题
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 13:00 , Processed in 0.661309 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表