基于CATIA和EXCEL二次開發自動生成質保計劃的研究

李成華，周盼盼

（中航工業成都飛機工業（集團）有限責任公司，成都 610092）

基于CATIA和EXCEL二次開發自動生成質保計劃的研究

李成華，周盼盼

（中航工業成都飛機工業（集團）有限責任公司，成都 610092）

飛機零件結構特征復雜，機械加工完成后都需要上測量機檢測零件合格性，測量現場需要提供指導測量的質保計劃。目前，質保計劃依靠工藝人員手工編制，效率低下，標準化差。對CATIA，Excel二次開發進行了研究，開發基于CATIA測量數模自動生成質保計劃的工具軟件，通過CATIA向預先定制好Excel質保計劃模板中輸出數據自動生成質保計劃，改變了目前依靠人工編制質保計劃的局面，提高了工作效率。

測量數模；二次開發；CATIA；Excel；自動；質保計劃

0　引言

隨著計算機輔助設計（CAD）技術的發展，三維輔助設計軟件在產品設計領域的應用越來越廣泛。CATIA是法國達索（Dassault）公司開發的一款集CAD/CAM/ CAE于一體的三維設計軟件，現已廣泛運用于航空航天，機械設計，汽車船舶，電子等各行業中［1］。

目前，飛機產品設計主要基于CATIA平臺進行。工藝依據設計數模完成零件制造，質量控制要求對零件的正確性做檢查；對于型面等非傳統方式可測量的特征需要上測量機進行測量，以驗證零件的合格性。測量機依據測量數據對零件進行測量?；贑ATIA二次開發零件點位提取相關的研究可以參考［3］。本文主要對依據測量數模自動生成質保計劃進行研究。改善目前人工編制質保計劃效率低的問題。

1　CATIA二次開發簡介

CATIA二次開發可以通過三種方式進行［2］。

1）宏（Macro）

CATIA提供了VBScript和CATIAScript兩種語言來進行宏編寫，簡單方便，無需額外開發環境。但此種方法人機交互性差，無法做出界面，只適用于簡單過程的實現。

2）CAA C++技術

CAA技術是CATIA一套C++函數庫，該函數在CATIA運行時加載，用戶可以通過RADE模塊在VC++編程環境下編寫程序，與CATIA進行通信，這種方法效率高，但入門困難，在國內這方面的技術資料少見。

3）Automation技術

此種方法通過VB、VC等高級編程語言，利用Automation技術訪問CATIA對象的方法和屬性來獲取，設置及處理數據，這種方法入門相對簡單，開發速度更快。

基于上述三種方法的特點，本次采用Automation技術，利用VB對CATIA進行二次開發。

2　程序設計與描述

2.1總體思路

依據點位測量數模（*.CATPart）文件，提取與質保計劃相關的零件圖號，測量數據名，點位分布圖片等信息，向預先定制好的Excel模板中輸入數據，自動生成當前零件的質保計劃。程序流程圖如圖1所示。

2.2信息的提取

依據質保計劃要求提取零件圖號，測量坐標系，測量區域等描述信息以及零件測量點位分布圖。描述信息提取的核心偽代碼如下：

Private Sub GetInformation（）

‘獲取輔助信息

On Error Resume Next’錯誤處理

‘定義變量

圖1　程序流程圖

Dim myPartDocument As Document

Dim myPart As Part

Dim myHybridBodies As HybridBodies

Dim i As Long

‘給變量賦值

Set myPartDocument=CATIA.ActiveDocument

Set myPart=myPartDocument.Part

Set myHybridBodies=myPart. HybridBodies

myPartName=myPart.Name

‘提取零件模型名稱

For i=1 To myHybridBodies.Count

myInformation（i）=myHybridBodies.Item（i）.Name

‘獲取相關描述信息

Next

End Sub

質保計劃需要零件測量點位分布圖，通過截屏獲取圖形。由于質保計劃會打印輸出，因此，圖片需要白底背景。

截屏核心偽代碼如下：

Private Sub CaptureScreen（）

‘捕捉屏幕

On Error Resume Next’錯誤處理

Dim myViewer As Viewer3D

Set myViewer=CATIA.ActiveWindow.ActiveViewer

myViewer.Reframe’視圖全部適應

myViewer.Update’視圖更新

myViewer.PutBackgroundColor Array（1，1，1）

’背景色設置為白色

myViewer.CaptureToFile catCaptureFormatJPEG，”F: test.jpg”

’截取圖片另存為jpg格式

Set settingControllers1=CATIA. SettingControllers

Set visualizationSettingAtt1=settingControllers1.Item（“CATVizVisualizationSettingCtr1”）

visualizationSettingAtt1.ColorBackgroundMode=True

visualizationSettingAtt1.SaveRepository

‘重新設置背景色為系統默認顏色

End Sub

2.3Excel輸出質保計劃

Excel具有強大的報表輸出功能，將質保計劃在Excel中做好模板，并將文件另存為.xltx的模板格式。質保計劃輸出是會調用模板，按照模板格式輸出質保計劃。由于要向Excel輸入數據，在做模板時有兩個技巧，第一，給需要填入數據的單元格重新取名，便于編程時調用；第二，模板中內容相同的單元格，預先在模板中定義公式，簡化編程。

質保計劃輸出函數核心偽代碼如下：

Private Sub ExportToExcelTemplate（）

Dim xlApp As Application

Dim xlbook As Workbook

Dim xlSheet As WorkSheet

‘獲取正在運行的Excel程序

Set xlApp=GetObject（，”EXCEL.Application”）

If xlApp Is Nothing Then

‘新建一個Excel程序

Set xlApp=CreateObject（，”EXCEL.Application”）

End If

Set xlbook=xlApp.Workbooks.Add Template:=”F:質保計劃模板.xltx”

‘調用模板生成工作簿

‘給Excel的單元格賦值

ExcelPartName=myPartName

ExcelTime=Now（）’給時間單元格賦值

‘調入圖片并居中顯示。

Sheet3.Pictures.Insert（“F: est.jpg”）.Select

Set Rng=Sheet3.Range（“A6:A14”）

With Selection

.Top=Rng.Top+2

.Left=Rng.Left+2

.Width=Rng.Width-2

.Height=Rng.Height -2

End With

‘更多詳細過程略

‘

xlSheet.Cells.EntireColumn.AutoFit

xlApp.Visible=True’顯示Excel界面

End Sub

最后生成質保計劃如圖2所示。

圖2　質保計劃

3　結束語

本項目通過CATIA、Excel二次開發相結合，實現了依據測量數模自動生成質保計劃的目標，減少了人力勞動，提高了工作效率。本文提供的方法和步驟具有普適性，在類似的二次開發項目中都可以舉一反三使用，具有很高的推廣運用價值。

［1］ 劉順濤.基于CATIA二次開發的數模信息提取及組織技術的研究［J］.航空制造技術，2014，19.

［2］ 胡挺，吳立軍.CATIA二次開發技術基礎［M］.北京:電子工業出版社，2006.

［3］ 王勇.基于CATIA的測點自動生成技術的研究［D］.沈陽航空航天大學，2013.

Research on automatical generating of quality assurance plan based on CATIA and EXCEL secondary development

LI Cheng-hua，ZHOU Pan-pan

TP311.56

A

1009-0134（2016）09-0135-03

2016-07-21

李成華（1989 -），男，重慶人，工程師，碩士研究生，主要從事機械制造技術及制造業信息化的工作。