获取模型空间图纸空间的ObjectId的几种方法

本文介绍了三种获取AutoCAD中模型空间和图纸空间ObjectId的方法,包括使用SymbolUtilityServices库函数和BlockTable对象来直接获取。
部署运行你感兴趣的模型镜像

获取模型空间ObjectId的方法:

方法一:

Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.Database

Dim ModelSpaceID As ObjectId = SymbolUtilityServices.GetBlockModelSpaceId(ZcDB)


方法二:

Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.Database

Dim ZcBLT As BlockTable = DirectCast(ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead), BlockTable)

Dim ModelSpaceID As ObjectId = ZcBLT(BlockTableRecord.ModelSpace)


方法三:

Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.Database

Dim ZcBLT As BlockTable = DirectCast(ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead), BlockTable)

Dim ModelSpaceID As ObjectId = ZcBLT(“*Model_Space")


获取图纸空间ObjectId的方法:

方法一:

Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.Database

Dim PaperSpaceID As ObjectId = SymbolUtilityServices.GetBlockModelSpaceId(ZcDB)


方法二:

Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.Database

Dim ZcBLT As BlockTable = DirectCast(ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead), BlockTable)

Dim PaperSpaceID As ObjectId = ZcBLT(BlockTableRecord.PaperSpace)


方法三:

Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.Database

Dim ZcBLT As BlockTable = DirectCast(ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead), BlockTable)

Dim PaperSpaceID As ObjectId = ZcBLT(“*Paper_Space")



您可能感兴趣的与本文相关的镜像

ACE-Step

ACE-Step

音乐合成
ACE-Step

ACE-Step是由中国团队阶跃星辰(StepFun)与ACE Studio联手打造的开源音乐生成模型。 它拥有3.5B参数量,支持快速高质量生成、强可控性和易于拓展的特点。 最厉害的是,它可以生成多种语言的歌曲,包括但不限于中文、英文、日文等19种语言

Using trans As Transaction = db.TransactionManager.StartTransaction() ' 在模型空间选择多段线 Dim polylineId As ObjectId = SelectPolylineFromModelSpace(ed, "请在模型空间选择多段线作为裁剪边界") If polylineId.IsNull Then ed.WriteMessage(vbLf & "未选择多段线,操作取消") Return End If ' 切换到图纸空间 Application.SetSystemVariable("TILEMODE", 0) Dim blockTable As BlockTable = TryCast(trans.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable) Dim paperSpace As BlockTableRecord = TryCast(trans.GetObject(blockTable(BlockTableRecord.PaperSpace), OpenMode.ForWrite), BlockTableRecord) ' 获取模型空间的多段线 Dim modelPolyline As Polyline = TryCast(trans.GetObject(polylineId, OpenMode.ForRead), Polyline) ' 克隆多段线到图纸空间作为裁剪边界 Dim clipPolyline As Polyline = TryCast(modelPolyline.Clone(), Polyline) Dim extents As Extents3d = clipPolyline.GeometricExtents Dim maxPoint As Point3d = extents.MaxPoint Dim minPoint As Point3d = extents.MinPoint ' 计算中心点和范围 Dim centerPoint As New Point3d((maxPoint.X + minPoint.X) / 2, (maxPoint.Y + minPoint.Y) / 2, 0) Dim width As Double = maxPoint.X - minPoint.X Dim height As Double = maxPoint.Y - minPoint.Y ' 设置裁剪边界属性 clipPolyline.Closed = True ' 将裁剪边界添加到图纸空间 paperSpace.AppendEntity(clipPolyline) trans.AddNewlyCreatedDBObject(clipPolyline, True) ' 创建视口 Dim viewport As New Viewport() paperSpace.AppendEntity(viewport) trans.AddNewlyCreatedDBObject(viewport, True) ' 配置视口属性以实现精确裁剪 viewport.NonRectClipEntityId = clipPolyline.ObjectId viewport.CenterPoint = centerPoint viewport.ViewCenter = New Point2d(centerPoint.X, centerPoint.Y) viewport.ViewHeight = height viewport.Height = viewportScale * viewport.ViewHeight viewport.Width = viewportScale * width ' 关键设置:启用非矩形裁剪 viewport.NonRectClipOn = True viewport.Locked = True viewport.On = True ' 设置视口显示范围 viewport.ViewDirection = New Vector3d(0, 0, 1) viewport.TwistAngle = 0 ' 强制重生成视口以应用裁剪 viewport.UpdateDisplay() trans.Commit() ed.WriteMessage(vbLf & "非矩形视口创建成功!裁剪边界已设置为多段线范围。") End Using 这部分代码运行后裁剪不成功,请分析问题所在
最新发布
11-08
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值