AutoCAD对象模型笔记（二）（vba）

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:
ModelSpace.Item
PaperSpace.Item
Block.Item
SelectionSet.Item
Group.Item 

• 方法
  • ArrayPolar 创建极轴阵列
  • ArrayRectangular 创建对象的二维或三维矩形阵列
  • Copy 复制对象到同一位置
  • Delete 删除对象
  • GetBoundingBox 获取包围指定对象的框的两点

    角点以WCS坐标返回，框边平行于WCS X、Y和Z轴。
    

  • GetExtensionDictionary 获取与对象关联的扩展字典
  • GetInvisibleEdge 获取给定索引处3DFace对象的边的可见性设置
  • GetXData 获取与对象关联的扩展数据
  • Highlight 高亮显示
  • IntersectWith 获取图形中一个对象与另一个对象相交的点
  • Mirror 围绕轴创建平面对象的镜像副本
  • Mirror3D 创建给定对象关于平面的镜像
  • Move 沿向量移动对象
  • Rotate 围绕基点旋转对象
  • Rotate3D 围绕三维轴旋转对象。点1和点2定义成为旋转轴的直线

    object.Rotate3D Point1, Point2, RotationAngle

  • ScaleEntity 在X、Y和Z方向上均匀缩放对象
  • SetInvisibleEdge 在给定索引处设置边的可见性状态
  • SetXData 设置与对象关联的扩展数据
  • TransformBy 移动、缩放或旋转给定4x4变换矩阵的对象
  • Update 对象更新到图形屏幕
• 属性
  • Application
  • Coordinate 指定对象中单个顶点的坐标
  • Coordinates 指定对象中每个顶点的坐标
  • Document 所属文档
  • EntityTransparency 指定实体的透明度值
  • Handle 句柄
  • HasExtensionDictionary
  • Hyperlinks 获取实体的超链接集合
  • Layer 对象所在图层
  • Linetype 指定对象的线型
  • LinetypeScale 指定对象的线型比例
  • Lineweight 指定单个对象的线宽或图形的默认线宽
  • Material 指定材质的名称
  • ObjectID
  • ObjectName
  • OwnerID
  • PlotStyleName 指定对象、对象组或图层的打印样式名称
  • TrueColor 指定对象的真实颜色
  • VisibilityEdge1 指定3DFace边1的可见性
  • VisibilityEdge2 指定3DFace边2的可见性
  • VisibilityEdge3 指定3DFace边3的可见性
  • VisibilityEdge4 指定3DFace边4的可见性
  • Visible 指定对象的可见性

1-2-1-1-2 3DPolyline 直线线段的三维折线

Class Name：Acad3DPolyline
Create Using：
VBA
ModelSpace.Add3DPoly
PaperSpace.Add3DPoly
Block.Add3DPoly
Access Via：
VBA
ModelSpace.Item
PaperSpace.Item
Block.Item
SelectionSet.Item
Group.Item

• 方法
  • AppendVertex
  • ArrayPolar
  • ArrayRectangular
  • Copy
  • Delete
  • Explode 将复合对象分解为子实体
  • GetBoundingBox
  • GetExtensionDictionary
  • GetXData
  • Highlight
  • IntersectWith 获取与另一个对象的交点
  • Mirror 镜像
  • Mirror3D 三维镜像
  • Move
  • Rotate 旋转
  • Rotate3D 三维旋转
  • ScaleEntity 等比例缩放
  • SetXData
  • TransformBy
  • Update
• 属性
  • Application
  • Closed 指定三维多段线、轻型多段线、放样曲面、多段线或样条曲线是打开的还是闭合的
  • Coordinate 指定对象中单个顶点的坐标
  • Coordinates
  • Document
  • EntityTransparency 实体的透明度
  • Handle
  • HasExtensionDictionary
  • Hyperlinks
  • Layer
  • Length
  • Linetype
  • LinetypeScale
  • Lineweight
  • Material
  • ObjectID
  • ObjectName
  • OwnerID
  • PlotStyleName
  • TrueColor
  • Type
  • Visible

1-2-1-1-3 3DSolid 具有自由曲面支撑的实体对象

Class Name：Acad3DSolid

• 方法
  • ArrayPolar
  • ArrayRectangular 创建对象的二维或三维矩形阵列
  • Boolean 在对象和另一个三维实体或面域对象之间执行布尔运算（并集、相交或相减）
  • CheckInterference 检查两个实体之间的干涉，如果指定，则从干涉创建实体
  • Copy
  • Delete
  • GetBoundingBox
  • GetExtensionDictionary
  • GetXData
  • Highlight
  • IntersectWith
  • Mirror
  • Mirror3D
  • Move
  • Rotate
  • Rotate
  • ScaleEntity
  • SectionSolid 创建一个区域，该区域表示由三个点定义的平面与实体的交点
  • SetXData
  • SliceSolid
  • TransformBy
  • Update
• 属性
  • Application
  • Centroid 获取区域或实体的面积或质量中心
  • Document
  • EntityTransparency
  • Handle
  • HasExtensionDictionary
  • History
  • Hyperlinks
  • Layer
  • Linetype
  • LinetypeScale
  • Lineweight
  • Material
  • MomentOfInertia 获取实体的惯性矩
  • ObjectID
  • ObjectName
  • OwnerID
  • PlotStyleName
  • Position 指定基准中心或实体中心的X、Y、Z坐标，或位置标记、螺旋线或参考底图的原点
  • PrincipalDirections 获取实体或区域的主方向
  • PrincipalMoments 获取实体或区域的主矩属性
  • ProductOfInertia 获取实体或区域的惯性积
  • RadiiOfGyration 获取实体或区域的旋转半径
  • ShowHistory 指定是否显示实体的历史记录
  • SolidType 指示实体的类型
  • TrueColor
  • Visible
  • Volume 获取实体的体积

1-2-1-1-4 Arc 圆弧

Class Name:AcadArc
Create Using
VBA
ModelSpace.AddArc
PaperSpace.AddArc
Block.AddArc
Access Via
VBA
ModelSpace.Item
PaperSpace.Item
Block.Item
SelectionSet.Item
Group.Item

• 方法
  ArrayPolar ArrayRectangular Copy Delete GetBoundingBox GetExtensionDictionary GetXData Highlight IntersectWith Mirror Mirror3D Move Offset：（在与现有对象的指定偏移距离处创建新对象） Rotate Rotate3D ScaleEntity SetXData TransformBy Update
• 属性
  Application ArcLength：获取弧的长度 Area：指定圆弧、圆、椭圆、图案填充、轻型多段线、多段线、面域或平面闭合样条线的封闭区域。 Center Document EndAngle ：指定圆弧或椭圆的结束角度。 EndPoint 指定圆弧、直线或椭圆的端点。 EntityTransparency Handle HasExtensionDictionary Hyperlinks Layer Linetype LinetypeScale ：指定对象的线型比例。 Lineweight Material Normal ：指定对象的三维法线单位向量。 ObjectID ObjectName OwnerID PlotStyleName Radius ：指定圆弧、圆或位置标记的半径。 StartAngle ：指定圆弧或椭圆的起始角度。 StartPoint ：指定圆弧、直线或椭圆的起点。 Thickness ：指定二维AutoCAD对象在其标高上方或下方拉伸的距离。 TotalAngle ：获取圆弧的总角度。 TrueColor Visible

1-2-1-1-5 Circle 圆

Class Name：AcadCircle
Create Using
VBA
ModelSpace.AddCircle
PaperSpace.AddCircle
Block.AddCircle
Access Via
VBA
ModelSpace.Item
PaperSpace.Item
Block.Item
SelectionSet.Item
Group.Item

• 方法
  ArrayPolar ArrayRectangular Copy Delete GetBoundingBox GetExtensionDictionary GetXData Highlight IntersectWith Mirror Mirror3D Move Offset Rotate Rotate3D ScaleEntity SetXData TransformBy Update
• 属性
  Application Area Center Circumference :指定圆的周长。 Diameter ：指定圆的直径。 Document EntityTransparency Handle HasExtensionDictionary Hyperlinks Layer Linetype LinetypeScale Lineweight Material Normal ObjectID ObjectName OwnerID PlotStyleName Radius ：圆的半径。 Thickness ：二维对象拉伸距离。 TrueColor Visible

1-2-1-1-6 Attribute 显示为文本字符串的对象，用于描述属性引用的特征

Class Name: AcadAttribute

• 方法
  ArrayPolar ArrayRectangular Copy Delete GetBoundingBox GetExtensionDictionary GetXData Highlight IntersectWith Mirror Mirror3D Move Rotate Rotate3D ScaleEntity SetXData TransformBy Update U