CATIA软件版本：CATIA V5R21。

VisualStudio软件版本：VisualStudio Ultimate 2010。

一、项目创建与CATIA Autimation API类库引用

参考上一期中《CATIA软件二次开拓：焊点数据导出工具运用程序编写》章节的干系内容在VisualStudio Ultimate 2010软件中创建“Windows窗口运用程序”模板项目，项目名称为焊点小球天生工具。
项目创建完成后为项目添加CATIA Autimation API类库引用。

二、窗体支配与属性设置

1.设置Form1窗体属性。

CATIA软件二次开拓教程焊点小球生成对象应用轨范编写

2.在Form1窗体中添加两个Label控件、1个TextBox控件、1个Button控件，添加完成后分别设置控件属性。

3.控件属性设置完成，拖动Form1窗体至得当大小，并将各个控件进行合理摆放。

三、VBA代码编写

1.参考上一期中《CATIA软件二次开拓：焊点数据导出工具运用程序编写》章节的干系内容，在 Form1窗体代码编辑区中添加CATIA API类库引用代码。

2.为Form1窗口的Load事宜添加CATIA软件掌握判断代码。

3.为“天生”按钮的Click事宜编写焊点小球批量自动天生代码。

完全程序代码如下所示。

'添加CATIA API引用Imports SURFACEMACHININGImports CATStrSettingsTypeLibImports StrTypeLibImports SPATypeLibImports SMTypeLibImports SimulationTypeLibImports SIMImports CATRsc2Imports ProductStructureTypeLibImports PRISMATICMACHININGImports PPRImports PCBITFImports PARTITFImports OSMInterfacesTypeLibImports NavigatorTypeLibImports MECMODImports MANUFACTURINGImports KnowledgewareTypeLibImports KinTypeLibImports INFITFImports HybridShapeTypeLibImports GenKweImports FittingTypeLibImports ElectricalTypeLibImports ElecSchematicTypeLibImports DRAFTINGITFImports LAYOUT2DITFImports DNBSimulationImports DNBSimIOImports DNBSimActImports DNBRobotImports DNBIgpResourceProgramImports DNBReportingImports DNBMHIItfImports DNBManufacturingLayoutItfImports DNBIgripSimImports DNBIgpTagPathImports SWKHumanModelingItfImports DNBPertImports DNBFastenerImports DNBDpmItfImports DNBBIWImports DNBDeviceImports DNBDeviceActivityImports DNBD5IImports DNBASYImports PROCESSITFImports ComponentsCatalogsTypeLibImports AnnotationTypeLibImports CATToolingImports CATStkImports CATSmInterfacesTypeLibImports CATSmarTeamIntegImports SHEITFImports CATSdeSettingImports CATSchematicTypeLibImports CATRscImports CATRmaImports CATRpmReporterTypeLibImports CATRdgImports CATPspPlantShipTypeLibImports CATOBMImports CATMultiCADImports CATMatImports DNBIPDImports CATInstantCollabItfImports CATImmImports CATIdeSettingsImports CATV4IInteropTypeLibImports CATHumanPackagingImports CATFunctSystemImports CATEdbTypeLibImports CATDrmRmsSettingsImports CATDataExchImports BehaviorTypeLibImports CATAssemblyTypeLibImports CATArrangementTypeLibImports SAMITFImports CAT3DXmlImports CATCompositesMatImports AECRTypeLibPublic Class Form1 '声明CATIA COM工具 Dim CATIA As Object Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Try '获取CATIA COM 工具 CATIA = GetObject(, \"大众CATIA.Application\"大众) Catch ex As Exception '未打开CATI时提示打开CATIA软件 MsgBox(\公众请先启动CATIA软件。
\"大众) End End Try End Sub Private Sub CmdCreateSpehre_Click(sender As System.Object, e As System.EventArgs) Handles CmdCreateSpehre.Click '获取当前激活的文件 Dim partDocument1 As PartDocument Try partDocument1 = CATIA.ActiveDocument Catch ex As Exception '未打开零件文件提示 MsgBox(\公众请先打开一个包含焊点信息的零件（.Part）文件。
\"大众) End End Try '获取零件文档顶层工具<根文件> Dim part1 As Part part1 = partDocument1.Part '获取零件中的几何图形集凑集 Dim hybridBodies1 As HybridBodies hybridBodies1 = part1.HybridBodies '添加几何图形集并进行命名 Dim hybridBody1 As HybridBody hybridBody1 = hybridBodies1.Add() hybridBody1.Name = \"大众Joints info, add at \"大众 & Now '更新视图 part1.Update() '获取几何图形集凑集中的第一个几何图形集 Dim hybridBody2 As HybridBody hybridBody2 = hybridBodies1.Item(1) '定义稠浊曲面工厂 Dim hybridShapeFactory1 As HybridShapeFactory hybridShapeFactory1 = part1.HybridShapeFactory '获取输入的小球半径 Dim iRadius As Double iRadius = Val(SphereRadiusTextBox.Text) '遍历第一个几何图形集中的点信息并创建小球 Dim iPoint As Reference '定义小球中央点参考 For Each iPoint In hybridBody2.HybridShapes '遍历第一个几何图形集中的点信息 Dim hybridShapeSphere1 As HybridShapeSphere '定义球体 hybridShapeSphere1 = hybridShapeFactory1.AddNewSphere(iPoint, Nothing, iRadius, -45.0, 45.0, 0.0, 180.0) '创建小球 hybridShapeSphere1.Limitation = 1 '设置球面限定(0:角度,1:整球) hybridBody1.AppendHybridShape(hybridShapeSphere1) '把创建的小球放置到指定几何图形集下 hybridShapeSphere1.Name = iPoint.Name & \"大众_Joint\"大众 '小球命名规则 part1.InWorkObject = hybridShapeSphere1 '定义当前工为难刁难象,实行时此行代码可有可无 Next part1.Update() End SubEnd Class四、运行测试

1.启动CATIA软件，并打开一个含有焊点信息的零件文件。

2.点击“启动调试”工具按钮，稍等少焉自动弹出焊点小球天生工具对话框，输入小球半径值，然后点击“天生”按钮，焊点小球随之天生。

3.同样，在项目文件夹的Debug目录下可以找到编译天生了“焊点小球天生工具”运用程序，直接双击打开利用，效果与调试程序同等。

The End

上一篇：CATIA软件二次开拓：焊点数据导出工具运用程序编写