Autocad VBA中的ModelSpace、PaperSpace和Layout

最新推荐文章于 2026-06-12 13:15:29 发布
原创 最新推荐文章于 2026-06-12 13:15:29 发布 · 1k 阅读 · 1 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#autocad #二次开发

在Autocad中，下面会有3个标签，即模型、布局1、布局2。如果通过下面语句，则模型处于当前激活状态：

ThisDrawing.ActiveSpace = acModelSpace

通过下面语句，则使页面空间处于激活状态：

ThisDrawing.ActiveSpace = acPaperSpace

当页面空间处于激活时，会发现要么布局1，要么布局2处于激活状态。

这里需要搞明白页面空间和各个布局的关系。

当使用ThisDrawing.ActiveSpace = acPaperSpace激活页面空间时，呈激活状态的是布局，但并不是最后一个布局，而是上一次处于激话状态的布局。

如果使用下面的语句直接指定激活布局，那就不是上一次激活布局作为默认了：

'序号，从1开始，并非从0开始
ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item(1)

'布局名称
ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("布局2")
AutoCAD对象模型笔记（二）（vba）
wuxingren888的博客
01-14 4297
AutoCAD对象模型及属性方法 1 Application 应用程序 1-1 Preferences 1-2 Documents 图形文档集合 1-2-1 Document 图形文档对象 1-2-1-1 ModelSpace 1-2-1-1-1 3DFace 三维三角形或四边形平面剖面 Class Name:Acad3DFace Create Using: ModelSpace.Add3DFace PaperSpace.Add3DFace Block.Add3DFace Access Via: Mo
03-04 创建和编辑AutoCAD实体（四） 编辑二维命名对象 （3）
Sunny的专栏
08-05 2443
主要内容：5、变换对象，包括移动对象、旋转对象、镜像对象、缩放对象等。
C# CAD二次开发之基本图形
Chiva Studio
10-09 8888
autoCAD二次开发之基本图形（二） 图形数据库 直线 进一步封装 圆和圆弧 多段线 凸度 面域 文字 总结 本文章基础知识： C# 基础 面向对象编程 事务概念 本文章开发环境： autoCAD 2016 VS2017 .NET 4.5 在上一篇文章中介绍了最基本的CAD开发的概念，工具，和写了一个Hello World程序，在这一篇文章中将做一些真正有趣，看得见的东西...
在VBA中调用AUTOCAD打印文件
bwsabc的专栏
07-20 4608
花了一下午完成了一个初步的示范的例子,看来解决图纸统一管理有了解决的办法了.下一步用jacob封装在java中调用,在服务器上控制打印管理.做个记号再慢慢完善.取得当前文档对象(vba中的方法,如果是在VB中时需要从顶层对象开始引用取得)Dim currentDoc As AcadDocumentSet currentDoc = ThisDrawing文档的模型空间Dim sp As Acad
ObjectArx块操作封装
滴水穿石的博客
01-11 1588
       开发过程中为方便对cad块的操作，所以对ObjectArx接口进行了封装。大家可以参考和使用，如果有问题可以告诉我，互帮互阻，一起进步。 目录1、得到块定义中的所有实体id（通过块名和数据库指针）2、得到块定义中的所有实体id（通过块定义id）3、得到块定义id（通过块名和数据库指针）4、得到块定义id（通过块参照id）5、得到块定义id（通过图纸、块名和数据库指针；如果数据库中没有该块定义，就从目标图纸中拷贝到指定数据库中）6、得到所有的块定义名（得到
别再手动导图了！用Excel VBA一键打开并另存CAD图纸（附完整代码）
最新发布
dayanwu2842的博客
06-12 481
处理大量文件时，这些技巧可以显著提升速度：禁用屏幕刷新延迟事件处理内存管理：定期释放对象变量并行处理：对多核CPU利用的API调用' 优化后的文件处理流程' 开始优化设置' 处理代码...' 恢复设置cadApp.Visible = True ' 最后再显示窗口End Sub将常用功能模块化，构建自己的CAD自动化工具箱：' 在标准模块中定义这些实用函数Err.ClearEnd IfEnd IfErr.ClearEnd If。
第二课：访问AutoCAD图纸模型空间
a274266042的博客
08-07 861
课程目的：本节课教大家在上节课(搭建二次开发环境)的基础上学习如何访问AutoCAD图纸的模型空间，获取下图所示模型空间中的一条直线的起点和终点坐标：
模型空间、图纸空间、布局（Layout）之间联系——CAD c#二次开发
山水CAD 二次开发
03-20 1985
**访问方式** | `BlockTableRecord.ModelSpace` | `LayoutManager` + `Layout` || **场景** | **模型空间** | **图纸空间（布局）** |- **每个布局有自己的图纸空间块表记录**，例如 `Layout1` 的图纸空间与 `Layout2` 的图纸空间是独立的。// 1:100 比例。
CAD二次开发--2.向当前空间添加图元
yeyonghui123的博客
05-14 651
/// <summary> /// 向当前操作的空间(ModelSpace/PaperSpace)中添加图元 /// </summary> /// <param name="ent"></param> /// <returns></returns> public ObjectId InsertEnt(Entity ent) ...
autocad.net中数据结构(blocktable,blocktablerecord,blockreference,layout,ModelSpace,PaperSpace)
weixin_30488313的博客
03-24 1070
database是第1级，就是相当于一个DWG文件，它下面主要包含symbol table和各种dictionary symbol table是第2级，它包含blocktable、dimstyletable、layertable等 dictionary是第2级，它下面包含第3级有名词典，它包含所有acad_color、acad_layout、acad_group等第4级词典 blockt...
015集——CAD vba 填充(hatch)及挖空
山水CAD 二次开发
03-06 1755
形成封闭边界的对象或对象数组。如果使用是的对象数组，它们的端点必须首尾相连以形成回路。生成图案填充边界的顶点数组中的索引位置。索引必须从 0 开始的正整数。Variant[变体] (对象或对象数组);最后在填充中阵列一些小圆，并挖空小圆中的填充。再画个外围正方形，内围圆，填充中间部分。AcLoopType 常数;Integer[整数];
autocad中用VBA读取块的属性
landem的专栏
01-06 3944
Sub getAttributes() Dim objBlock As AcadBlock Dim objBlocks As AcadBlocks Dim objBlockRef As AcadBlockReference Dim modelSpac As AcadModelSpace Dim objAttributes As Variant Dim objAttRef As AcadAttributeReference Dim indexValue As String Dim theLineValue
CAD VBA实现平面综合图分幅
Xiaok的专栏
02-11 2087
最近遇到一个场区测量项目，好多年没有遇到类似的项目了。 场区成果图完成以后，需要按照调查比例尺进行分幅，以前的项目的图幅数比较少，顶多几十幅，手工切分就可以了。一般是硬切分，就想CASS分幅一样的。 以下是CASS分幅： 检查生成的矩形，把矩形内没有地形的矩形删除掉。然后把矩形内坐标更改为图幅名，如果图幅内有地名的话，可以使用地名作为图幅名。也可以以数字来做为图幅名，以数字做为图幅名应该把按顺序先标第一横排，接着第二横排这样标。 ...
011集——vba获取CAD图中图元类名objectname
山水CAD 二次开发
03-03 2337
是AutoCAD的数据库API（通常是.NET API或ObjectARX API）中的一个类，用于表示存储在数据库中的二维多段线数据。这个类提供了对多段线数据的底层访问，允许你进行更复杂的操作，比如直接操作数据库中的多段线数据。请注意，随着AutoCAD版本的更新，新的对象类型可能会被添加，而旧的对象类型可能会被弃用或替换。需要注意的是，AutoCAD的API和VBA环境可能会随着软件版本的更新而发生变化，因此建议查阅你正在使用的AutoCAD版本的官方文档以获取最准确的信息。在AutoCAD中，
cad vba二次开发 AddText 方法 AddLine 方法 AddPolyline 方法 AddCircle 方法
weixin_43931979的博客
07-16 1165
cad vba二次开发 AddText 方法 AddLine 方法 AddPolyline 方法 AddCircle 方法
AutoCAD对象模型笔记（一）（vba）
wuxingren888的博客
01-12 3269
autocad对象模型及属性方法 Application 应用程序 Preferences Documents 图形文档集合 Document 图形文档对象 Class Name ：AcadDocument 方法 Activate 活动 AuditInfo 检查图纸完整性 Close 关闭文档 CopyObjects 复制多个对象（深度克隆）。 EndUndoMark 标记操作块的结束 Export 导出 GetVariable 获取AutoCAD系统变量的当前设
AcDbBlockTableRecord+AcDbBlockReference AcDbAttribute+AcDbAttributeDefination 项目总结
Alexander_Frank的博客
08-15 6001
AcDbBlockTableRecord：块表记录或块定义   AcDbBlockReference：块引用 意味着这个变量指向的是一个真正的块。 概念辨析：在CAD中，块和块表记录是不同的概念。类比于类与对象。而块中的实体又类似于对象中的成员变量。 所以，AcDbBlockTableRecord为块表记录，类似于一个模板，所有的块都是仿照这个模板构造的。需要显示的实体都需要添加到AcDb_M
objectARX自用总结
weixin_74488585的博客
10-28 1231
【代码】objectARX自用总结。
AutoCAD多页图纸页码快速编码方法
测量老覃 的博客
04-15 8489
AutoCAD出图前要按比例添加图框，通常图框内都会对图纸添加页码，比如当前是第几页，总共多少页等。图纸页数少时手动添加修改倒还可以，但当图纸多达几十上百页，手动调整设置页码也将是非常浪费时间的。现介绍多页图纸图框快速编码的方法，不管多少页，都可快速设定。
Autocad二次开发vba教程第十课
IDLlanguage的专栏
11-07 2017
 第十课:画多段线和样条线 画二维多段线语句这样写：set lobj= ThisDrawing.ModelSpace.AddLightweightPolyline(fitpoint)AddLightweightPolyline后面需一个参数，存放顶点坐标的数组画三维多段线语句这样写：Set lobj = ThisDrawing.ModelSpace.Add3DPoly(fitpoint
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

伍德春

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值