当前位置：首页 > article >正文

【CATIA的二次开发22】关于抽象对象Document概念详细总结

article 2025/8/14 5:12:10

在CATIA VBA开发中，Document对象是最核心、最基础的对象之一。它代表了当前在CATIA会话中打开的一个文档（文件）。
几乎所有与文件操作、模型访问相关的操作都始于获取一个Document对象。

一、Document对象概述

1、获取Document对象:

当前活动文档：最常见的方式是获取用户当前正在操作的文档。

Dim activeDoc As Document
Set activeDoc = CATIA.ActiveDocument ' 获取当前激活的文档

通过Documents集合： CATIA.Documents集合包含了所有当前在CATIA会话中打开的文档。你可以通过索引或名称来获取特定的Document对象。

Dim allDocs As Documents
Set allDocs = CATIA.Documents' 通过索引获取
Dim doc1 As Document
Set doc1 = allDocs.Item(1) ' 获取集合中的第一个文档' 通过名称获取（不包含路径的文件名）
Dim docPart As Document
Set docPart = allDocs.Item("MyPart.CATPart")

打开文档： Documents集合的Open方法会返回新打开的文档对象。

Dim newDoc As Document
Set newDoc = CATIA.Documents.Open("C:\Users\Name\Desktop\Assembly.CATProduct")

新建文档： Documents集合的Add方法会返回新创建的文档对象。你需要指定文档类型常量。

Dim newPart As Document
Set newPart = CATIA.Documents.Add("Part") ' 新建一个零件文档
' 常用文档类型常量:
'   "Part" - CATPart
'   "Product" - CATProduct
'   "Drawing" - CATDrawing
'   "FunctionalSystem" - CATfct (功能系统)

2、Document对象的类型：

在 CATIA VBA 开发中，Document 对象根据文件内容的不同，可分为八种主要类型。
每种类型对应特定的设计模块和功能，理解这些类型对于高效开发至关重要。
1. PartDocument（零件文档）
  - 文件扩展名: .CATPart
  - 核心对象: Part
  - 功能描述:
    - 用于零件设计（Part Design）
    - 包含几何特征、草图、实体等
  - VBA 访问:
```
If doc.Type = "Part" ThenDim partDoc As PartDocumentSet partDoc = docSet part = partDoc.Part
End If
```
  - 关键属性/方法:
    - part.Bodies：几何体集合
    - part.HybridBodies：混合几何体集合
    - part.ShapeFactory：特征创建工厂
2. ProductDocument（装配文档）
  - 文件扩展名: .CATProduct
  - 核心对象: Product
  - 功能描述:
    - 用于装配设计（Assembly Design）
    - 管理组件关系和约束
  - VBA 访问:
```
If doc.Type = "Product" ThenDim prodDoc As ProductDocumentSet prodDoc = docSet product = prodDoc.Product
End If
```
  - 关键属性/方法:
    - product.Products：子组件集合
    - product.Connections：装配约束
    - product.AddComponent()：添加新组件
3. DrawingDocument（工程图文档）
  - 文件扩展名: .CATDrawing
  - 核心对象: Sheets（图纸集合）
  - 功能描述:
    - 用于创建二维工程图纸
    - 包含视图、标注、注释等
  - VBA 访问
```
If doc.Type = "Drawing" ThenDim drawDoc As DrawingDocumentSet drawDoc = docSet sheet = drawDoc.Sheets.Item(1)
End If
```
  - 关键属性/方法:
    - drawDoc.Sheets：图纸页集合
    - sheet.Views：视图集合
    - sheet.Frames：图框对象
4. FunctionalSystemDocument（功能系统文档）
  - 文件扩展名: .CATfct (功能系统)
  - 核心对象: FunctionalSystem
  - 功能描述:
    - 用于系统功能建模
    - 包含功能逻辑和系统关系
  - VBA 访问
```
If doc.Type = "FunctionalSystem" ThenDim funcDoc As FunctionalSystemDocumentSet funcDoc = docSet fSystem = funcDoc.System
End If
```
  - 典型应用:
    - 电气线路设计
    - 液压/气动系统
    - 逻辑控制流程
5. MaterialLibraryDocument（材料库文档）
  - 文件扩展名: .CATMaterial
  - 核心对象: MaterialLibrary
  - 功能描述:
    - 存储和管理材料属性
    - 用于零件材料分配
  - VBA 访问
```
If doc.Type = "MaterialLibrary" ThenDim matDoc As MaterialLibraryDocumentSet matDoc = docSet matLib = matDoc.MaterialLibrary
End If
```
  - 关键方法:
    - matLib.AddMaterial()：添加新材料
    - matLib.GetMaterial()：获取材料对象
    - matLib.Save()：保存材料库
6. CatalogDocument（目录文档）
  - 文件扩展名: .CATCatalog
  - 核心对象: Catalog
  - 功能描述:
    - 创建和管理标准件库
    - 用于装配中的标准件调用
  - VBA 访问
```
If doc.Type = "Catalog" ThenDim catDoc As CatalogDocumentSet catDoc = docSet catalog = catDoc.Catalog
End If
```
  - 关键操作:
```
' 添加新零件到目录
catalog.AddComponentFromDocument "Bolt", CATIA.Documents.Item("Bolt.CATPart")&
```