catia 二次开发：获得投影视图

最新推荐文章于 2024-07-12 08:34:33 发布

煮酒Shae

最新推荐文章于 2024-07-12 08:34:33 发布

阅读量3k

点赞数 2

分类专栏： catia 文章标签： catia二次开发

本文链接：https://blog.csdn.net/qq_27597629/article/details/125518234

版权

catia 专栏收录该内容

19 篇文章 10 订阅

订阅专栏

该博客详细介绍了如何使用CATIA软件创建工程图文档，包括添加新页面、设置页面参数、创建主视图和投影视图，并对视图进行定位、对齐和更新。此外，还展示了如何将3D模型关联到视图中，以及复制主视图的关联关系到投影视图上。

摘要由CSDN通过智能技术生成

在这里插入图片描述

Sub kj()
Dim oDrawingDoc As DrawingDocument
Set oDrawingDoc = CATIA.Documents.Add("Drawing") '创建工程图文档

Dim oSheet As DrawingSheet
Set oSheet = oDrawingDoc.Sheets.Add("FirstSheet") '创建一个页面
'页面设置
'oDrawingDoc.Standard = catISO
'oSheet.PaperSize = catPaperA1
'oSheet.Scale2 = 1
'oSheet.Orientation = catPaperLandscape
oSheet.[Scale] = 1
Dim oFrontView As DrawingView
'主视图的操作------------
Set oFrontView = oSheet.Views.Add("FrontView") '添加视图对象
'Set oFrontView = oSheet.Views.ActiveView
Dim oFrontViewGB As DrawingViewGenerativeBehavior
Set oFrontViewGB = oFrontView.GenerativeBehavior

Dim PartToDraw As PartDocument
Set PartToDraw = CATIA.Documents.Item("bolt.CATPart")
oFrontViewGB.Document = PartToDraw 'GenerativeBehavior的document属性关联3D模型
oFrontViewGB.DefineFrontView 0, 0, 1, 0, 1, 0 '定义主视图
'oFrontView.x = 550
'oFrontView.y = 425
'更新主视图
oFrontViewGB.Update

'在主视图的基础上的投影视图的操作-----------
Dim oLeftView As DrawingView
Set oLeftView = oSheet.Views.Add("leftView")
Dim oLeftViewGB As DrawingViewGenerativeBehavior
Set oLeftViewGB = oLeftView.GenerativeBehavior
oLeftViewGB.DefineProjectionView oFrontViewGB, catLeftView

Dim oFrontViewLinks As DrawingViewGenerativeLinks
Set oFrontViewLinks = oFrontView.GenerativeLinks
Dim oLeftViewLinks As DrawingViewGenerativeLinks
Set oLeftViewLinks = oLeftView.GenerativeLinks '各种获取links
oFrontViewLinks.CopyLinksTo oLeftViewLinks '主视图和零件的关联关系复制给左视图:
oLeftViewGB.Update

oLeftView.ReferenceView = oFrontView
oLeftView.AlignedWithReferenceView '对齐关系

oLeftView.x = 100
'oLeftView.y = 100 '水平对齐后，y方向就没必要移动了
End Sub