图2 创建宏
2.运行宏
首先选择宏,因为宏可保存于内部文件,也可保存于外部文件,所以首先在宏窗口的左下角的下拉框中选择是内部文件还是外部文件。如果是内部文件,则在宏窗口的文本框中会显示已创建的一系列宏,选择需要的宏,按下Run按钮,宏结果就可显示于窗口内。如果是外部文件,则选择宏窗口左侧的Select按钮,选择宏所在的文件目录,按下Run按钮,同样,宏结果也显示于窗口内。
四、宏在CATIA中的应用
1.利用宏输入数据
宏在CATIA中的应用非常广泛,它与CATIA的内核及内部函数的调用集成得很好。例如,在一个部件上打一系列的孔,从装配件上提取材料清单等等。在实际工作中,飞机的外形数据存于Excel文件中,利用宏来读取Excel文件中的数据。如果数据以其他文件格式保存,如dat文件格式,可转换为Excel文件格式,或者直接更改代码,从其他文件中直接读取。代码如下:
Language="VBSCRIPT" '因为本操作系统是 windows2000,所以 此宏是用'vbscript编 写的
Sub CATMain()
Dim partDocument1 As Document '创建文件
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part '创建部件
Set part1 = partDocument1.Part
dim excel as object ' 调用excel对象
set excel=getobject("d: \外形数据.xls") '飞机外形数据存于d: \外形数据.xls文'件下
'利用循环,读入excel中的数据。此数据为飞机外形上的一些点的坐标值,这些'值分别存于excel的表单1中的B、C、D中,把这些值分别赋给变量x,y,z
i=1
do while x<>””
x=excel.worksheets(1).cells.range("B" & trim(cstr(i))).value
y=excel.worksheets(1).cells.range("C" & trim(cstr(i))).value
z=excel.worksheets(1).cells.range("D" & trim(cstr(i))).value
·
·
·
'定义点坐标
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(x,y,z)
·
·
·
'输入点
hybridBody1.AppendHybridShape hybridShapePointCoord1
part1.InWorkObject = hybridShapePointCoord1
i=i+1
loop
part1.Update
End sub
按照创建和运行宏的步骤,把以上代码输入到自定义的一个宏的代码区中,保存并运行。这样,“外形数据.xls”文件中的所有飞机外形数据都被读取出来。CATIA系统为这些点自动编号,设计人员可从当前界面左侧最下一项Open Body.1的树形扩展目录中看到所有的点。
图3就是用此宏输入的机翼上的点。保存此CATIA文件为jiyi.CATpart。
图3 宏输入数据
2.利用宏处理数据
为了得到飞机的外形,我们需要对已输入的点进行处理,即把这些点用Spline命令连成若干条样条曲线,再对这些样条曲线进行处理。在这项任务中,把点连成线是一项繁重的重复性工作,而用宏可以很快地自动完成。宏代码如下:
Language="VBSCRIPT"
Sub CATMain()
'宏初始化
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As Document
Set partDocument1 = documents1.Item("art1.CATPart")
·
·
·
'根据飞机外形要求,设置两个嵌套循环,内部循环完成一条样条曲线的点与点 '的连接,外部循环完成多条样条曲线的连接。
dim j as integer
for j=1 to const1
'样条曲线的定义和设置
Dim hybridShapeSpline1 As HybridShapeSpline
Set hybridShapeSpline1 = hybridShapeFactory1.AddNewSpline()
hybridShapeSpline1.SetSplineType 0
hybridShapeSpline1.SetClosing 1
·
·
·
dim i as integer
for i=1 to const2
Dim hybridShapePointCoord1 As HybridShape
Set hybridShapePointCoord1= hybridShapes1.Item(i+const2*(j-1))
·
·
·
hybridShapeSpline1.AddControlPoint hybridShapeControlPoint1
next
hybridBody1.AppendHybridShape hybridShapeSpline1
part1.InWorkObject = hybridShapeSpline1
part1.Update
next
part1.Update
End Sub
同样,按照创建和运行宏的步骤,把以上代码输入到自定义的另一宏的代码区中,保存并运行,结果如图4所示。
CATIA源于航空工业,是业界无可争辩的领袖.以其精确安全,可靠性满足商业 、 防御和航空领域各种应用的需要,CATIA引以自豪的几个主要项目(例如波音777,737)均成功地用100%数字模型无纸加工完成。这在航空工业中从来没有过。CATIA与STEP完全兼容,为航空提供的解决方案,包括管道系统(Piping and Tabling),组装、结构、内部负荷分析(业界第一)、电路布线和综合利用。