乐筑天下

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

我的代码帮助

[复制链接]

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-3-19 05:58:39 | 显示全部楼层
我已经有了一个很好的开始,事实上搜索一点也不花太长时间
我使用的方法不是搜索整个dwg&将实体与选定点进行比较,而是从选定点开始搜索,以设定的距离创建一个选择集&使用循环,如果没有找到任何东西,则增加面积,直到找到实体。这很有效&到目前为止很快。然而,当发现多个实体时,我必须添加一个测试&如果找到了多个实体,则比较它们以选择最接近的实体
选择实体后,从该实体开始,所有实体都将向下移动,获取z坐标,将插入点重置为所需的高程(z坐标),并创建树对象。
回复

使用道具 举报

5

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
34
发表于 2004-3-19 08:14:01 | 显示全部楼层
只是不要为她做所有的工作,特雷夫。我相信这是她学校论文的一部分。
回复

使用道具 举报

0

主题

27

帖子

2

银币

初来乍到

Rank: 1

铜币
27
发表于 2004-3-22 14:10:38 | 显示全部楼层
我使用下面的代码:
Thsi one 只为一个盒子工作,在 ceratain 条件下
选项 显式
公共子 LandLW_inter()
Dim myline 作为 AcadLine
Dim mysel 作为 AcadSelectionSet
Dim selset 作为 AcadSelectionSet Dim selset 作为 AcadSelectionSet
Dim mypl 作为 AcadLWPolyline
Dim ptst(0 to 2) 作为 Double
Dim ptend(0 to 2) 作为 Double
Dim FilterType(0 to 0) 作为 Integer
Dim FilterData(0 to 0) 作为 Variant
DimIntPnts 作为 Variant
Dim cnt As Integer
Dimi As Integer
cnt = 0
Set selsets = ThisDrawing.SelectionSets
' for one
block'points that make the house
ptst(0) = 742: ptst(1) = 1029: ptst(2) = 0
ptend(0) = 769: ptend(1) = 1058: ptend(2) =
0'draw the line for effect
Set myline = ThisDrawing.ModelSpace.AddLine(ptst, ptend)
myline.颜色 = acRed
对于每个 mysel 在 selsets
If mysel.名称 = “我的” 然后是
mysel。

如果
下一个 mysel
Set mysel = ThisDrawing.SelectionSets.Add(“mine”)
FilterType(0) = 0: FilterData(0) = “LWPolyline” ' filter on type - lwpolylines
mysel.选择 acSelectionSetCrossing, ptst, ptend, FilterType,
FilterData's select 所有越过我们行边界框
的东西'过滤掉除 lwpolyline Debug 之外的所有内容
。打印“与 ”和 mysel 相交”。Count & “ lwpolylines”
For Each mypl In mysel
cnt = cnt + 1
Debug.Print “ Intersection : ” & cnt & “ with Contour ” & mypl.海拔
ptst(2) = mypl.海拔高度: ptend(2) = mypl.海拔

'画线效果 - 不是真的需要这个
' 设置我的线= ThisDrawing.ModelSpace.AddLine(ptst,ptend)
'myline。Color = acRed

varIntPnts = myline.IntersectWith(mypl, acExtendNone)

For i = 0 To UBound(varIntPnts)
Debug.Print varIntPnts(i)
Next i
Next mypl
End Sub
Daron ..不要在特雷夫的脑海中种下这样可怕的想法。嘿嘿,
这仅仅是个开始......对他来说至少还有95%......或任何想从事这项工作的人
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 14:15 , Processed in 0.453190 second(s), 56 queries .

© 2020-2025 乐筑天下

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