A-A+
CATIA VBA(VBS)二次开发工程图视图位置属性获取和定义
在CATIA VBS(VBA)二次开发中视图Drawingview有4个属性来获取或设置视图的位置和比例,分别是x、y、Angle和Scale。视图的x、y、Angle是视图局部坐标系相对于工程图总体坐标系的位置关系,如下图所示。

视图属性获取示例:
Set Document = CATIA.ActiveDocument
Set Drawingsheets = Document.Sheets
Set Drawingsheet =Drawingsheets.ActiveSheet
Set Drawingviews = Drawingsheet.Views
Set Drawingview = Drawingviews.ActiveView
Dim s,a
s = Drawingview.Scale '获取当前视图的缩放比例
a = Drawingview.Angle '获取当前视图的旋转角度
视图属性设置示例:
Dim myView As Object
Set myView =CATIA.Documents(2).ActiveSheet.ActiveView
myView.x = 260
myView.y = 120
2 条留言 访客:1 条 博主:1 条