Code:
Imports System.Runtime.InteropServices
Imports ProductStructureTypeLib
Imports INFITF
Imports MECMOD
Imports HybridShapeTypeLib
Public Class Form1
Dim CATIA As INFITF.Application
CATIA = GetObject("CATIA.Application")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim partDocument1 As PartDocument
partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
part1 = partDocument1.Part
Dim hybridShapeFactory1 As HybridShapeFactory
hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridShapePointCoord1 As HybridShapePointCoord
hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(10.0#, 10.0#, 0.0#)
Dim hybridBodies1 As HybridBodies
hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
hybridBody1.AppendHybridShape(hybridShapePointCoord1)
part1.InWorkObject = hybridShapePointCoord1
part1.Update()
Dim hybridShapePointCoord2 As HybridShapePointCoord
hybridShapePointCoord2 = hybridShapeFactory1.AddNewPointCoord(10.0#, 10.0#, 10.0#)
hybridBody1.AppendHybridShape(hybridShapePointCoord2)
part1.InWorkObject = hybridShapePointCoord2
part1.Update()
Dim reference1 As Reference
reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord2)
Dim reference2 As Reference
reference2 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
Dim hybridShapeLinePtPt1 As HybridShapeLinePtPt
hybridShapeLinePtPt1 = hybridShapeFactory1.AddNewLinePtPt(reference1, reference2)
hybridBody1.AppendHybridShape(hybridShapeLinePtPt1)
part1.InWorkObject = hybridShapeLinePtPt1
part1.Update()
Dim originElements1 As OriginElements
originElements1 = part1.OriginElements
Dim hybridShapePlaneExplicit1 As HybridShapePlaneExplicit
hybridShapePlaneExplicit1 = originElements1.PlaneZX
Dim reference3 As Reference
reference3 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)
Dim hybridShapeDirection1 As HybridShapeDirection
hybridShapeDirection1 = hybridShapeFactory1.AddNewDirection(reference3)
Dim reference4 As Reference
reference4 = part1.CreateReferenceFromObject(hybridShapeLinePtPt1)
Dim hybridShapeExtrude1 As HybridShapeExtrude
hybridShapeExtrude1 = hybridShapeFactory1.AddNewExtrude(reference4, 20.0#, 0.0#, hybridShapeDirection1)
hybridBody1.AppendHybridShape(hybridShapeExtrude1)
part1.InWorkObject = hybridShapeExtrude1
part1.Update()
End Sub
End Class