CATIA V6 - AUTOMATION FUNDAMENTALS - VBA - PART 8 - HybridShapeFactory - AddNewPointCoord скачать в хорошем качестве

CATIA V6 - AUTOMATION FUNDAMENTALS - VBA - PART 8 - HybridShapeFactory - AddNewPointCoord

CATIA V6 - AUTOMATION FUNDAMENTALS - VBA - PART 8 - HybridShapeFactory - AddNewPointCoord How to create a point with coordinates with CATIA V6 VBA. The easiest way to start is to first record a macro when creating a standard point with coordinates. Then this recorded code will be modified to make it more suitable. Sub CATMain() Dim editor1 As Editor Set editor1 = CATIA.ActiveEditor Dim part1 As Part Set part1 = editor1.ActiveObject Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim NumberHybridBodies As Integer NumberHybridBodies = hybridBodies1.Count MsgBox ("There are currently " & NumberHybridBodies & " Geometrical Set(s).") Dim hybridBody1 As HybridBody If NumberHybridBodies = 0 Then MsgBox ("Since the are no existing Geometrical Sets, a new one will be added.") Set hybridBody1 = hybridBodies1.Add() End If 'we are setting the geometrical set as the in work object instead of adding new sets each time Set hybridBody1 = part1.InWorkObject Dim hybridShapeFactory1 As HybridShapeFactory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim hybridShapePointCoord1 As HybridShapePointCoord Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0#, 0#, 0#) hybridBody1.AppendHybridShape hybridShapePointCoord1 part1.InWorkObject = hybridShapePointCoord1 part1.Update End Sub