Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objFolder As DirectoryInfo
        Dim objFileInfo As FileInfo
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objPartDoc As SolidEdgePart.PartDocument = Nothing

        Dim FilletWelds As SolidEdgePart.PartFilletWelds = Nothing
        Dim FilletWeld As SolidEdgePart.PartFilletWeld = Nothing
        Dim objDocuments As SolidEdgeFramework.Documents = Nothing
        Dim iNumBaseFaces As Integer
        Dim iNumTargetFaces As Integer
        Dim dBaseThickness As Double
        Dim dTargetThickness As Double
        Dim eSetbackType As SolidEdgePart.FilletWeldSetbackConstants
        Dim objBaseFaces(0) As SolidEdgeGeometry.Face
        Dim objTargetFaces(0) As SolidEdgeGeometry.Face
        Dim objFaceArray(0) As SolidEdgeGeometry.Face
        Dim objExtProt1 As SolidEdgePart.ExtrudedProtrusion = Nothing
        Dim objRib As SolidEdgePart.Rib = Nothing
        Dim objFaces As SolidEdgeGeometry.Faces = Nothing
        Dim objFace As SolidEdgeGeometry.Face = Nothing

        Dim objModel As SolidEdgePart.Model  
        Dim LabelWeldDC As SolidEdgePart.LabelWeldDataCollection
        Dim LabelWeldObject As SolidEdgePart.LabelWeldData
        
        Dim FilletEdges As SolidEdgeGeometry.Edges
        Dim FilletEdge(0) As SolidEdgeGeometry.Edge
        Dim FilletEdgeVertex(0) As SolidEdgeGeometry.Vertex

        Dim iNumOfFillets As Integer = 0
        Dim OrientingEdgeProxy(1) As Object
        Dim OrientingSides(1) As SolidEdgePart.FeaturePropertyConstants
        Dim dStartOffset As Double
        Dim dEndOffset As Double
        Dim dGapLength As Double
        Dim dBeadLength As Double
        Dim StitchWelds As SolidEdgePart.PartStitchWelds
        Dim StitchWeld As SolidEdgePart.PartStitchWeld
        Dim eOrientingSide As SolidEdgePart.FeaturePropertyConstants
        Dim eWeldType As SolidEdgePart.StitchWeldType
        Dim eAnnotFormat As SolidEdgePart.StitchWeldAnnotationFormat
        Dim iNumSkipPaths As Integer
        Dim strStyleName As String

        Try
            objFolder = GetTrainingFolder()
            objFileInfo = New FileInfo(Path.Combine(objFolder.FullName, "support1.par"))
            objApp = Marshal.GetActiveObject("SolidEdge.Application")      
            objApp.Visible = True
            objDocuments = objApp.Documents
            ' First open the test case document from training folder
            objPartDoc = objDocuments.Open(objFileInfo.FullName)
            objPartDoc.ModelingMode = SolidEdgePart.ModelingModeConstants.seModelingModeOrdered
            ' Get model handle
            objModel = objPartDoc.Models.Item(1)

            'Get Label Weld Data object
            LabelWeldDC = objPartDoc.LabelWeldDataCollection
            LabelWeldObject = LabelWeldDC.Add(ZSymbol:=0, Tail:=0, DashLine:=0, WeldInField:=0, OffsetTopBottom:=0, WeldAllAround:=0, Symmetrical:=0, TopNote1:="Test1", TopNote2:="Test2", TopTreatmentType:=0, TopType:=0, TopNote3:="Test3", TopNoteZ:="", TailNote:="", BottomNote1:="", BottomNote2:="", BottomTreatmentType:=0, BottomType:=0, BottomNote3:="", BottomNoteZ:="", TopTypeCompound:=0, BottomTypeCompound:=0, CenterType:=0, CrossSectionArea:=0, TailNote2:="", TopNoteCSize:="", BottomNoteCSize:="", TopNoteAngle:="", BottomNoteAngle:="", TopNoteDepth:="", BottomNoteDepth:="", TopPosOffset:=0, BottomPosOffset:=0)

            'Get Fillet weld collection
            FilletWelds = objModel.PartFilletWelds

            ' Get Protrusion 1
            objExtProt1 = objModel.ExtrudedProtrusions.Item(2)

            ' Get all base faces collection
            objFaces = objExtProt1.Faces(SolidEdgeGeometry.FeatureTopologyQueryTypeConstants.igQueryAll)

            ' Collect INPUT Base faces
            objBaseFaces(0) = objFaces.Item(3)
           
            'Get Rib
            objRib = objModel.Ribs.Item(2)

            ' Get all target faces collection
            objFaces = objRib.Faces(SolidEdgeGeometry.FeatureTopologyQueryTypeConstants.igQueryAll)
           
            ' Collect INPUT Target faces
            objTargetFaces(0) = objFaces.Item(3)

            'Apply face styles to selected faces for identification
            objBaseFaces(0).Style = objPartDoc.FaceStyles("red")
            objTargetFaces(0).Style = objPartDoc.FaceStyles("red")

            ' Initialize all inputs
            iNumBaseFaces = 1
            iNumTargetFaces = 1
            eSetbackType = SolidEdgePart.FilletWeldSetbackConstants.seFilletWeldThickness
            dBaseThickness = 0.00235
            dTargetThickness = 0.0025

            ' Add a  new Fillet weld
            FilletWeld = FilletWelds.Add(iNumBaseFaces,
                                         objTargetFaces,
                                         iNumTargetFaces,
                                         objBaseFaces,
                                         LabelWeldObject,
                                         eSetbackType,
                                         dBaseThickness,
                                         dTargetThickness)

            
            ' Get all base faces collection
            FilletEdges = FilletWeld.Edges(SolidEdgeGeometry.FeatureTopologyQueryTypeConstants.igQueryAll)
           

            ' Collect INPUT edge
            FilletEdge(0) = FilletEdges.Item(8)

            'Input vertex
            FilletEdgeVertex(0) = FilletEdge(0).StartVertex

            ' Initialize all inputs
            iNumSkipPaths = 1

            ' Orientation side
            OrientingSides(0) = eOrientingSide

            'Weld Type
            eWeldType = SolidEdgePart.StitchWeldType.seStitchOnly

            'Annotation type
            eAnnotFormat = SolidEdgePart.StitchWeldAnnotationFormat.seLengthPitch

            ' Distance values
            dStartOffset = 0.0
            dEndOffset = 0.0
            dBeadLength = 0.003
            dGapLength = 0.004

            ' Dimension Style
            strStyleName = "ISO (mm)"
            StitchWelds = objModel.PartStitchWelds
            ' Add a  new Fillet weld
            StitchWeld = StitchWelds.Add(iNumSkipPaths,
                                         FilletEdge,
                                         FilletEdgeVertex,
                                         OrientingEdgeProxy,
                                         OrientingSides,
                                         eWeldType,
                                         eAnnotFormat,
                                         dStartOffset,
                                         dEndOffset,
                                         dBeadLength,
                                         dGapLength,
                                         strStyleName)

            If Err.Number() Or StitchWeld Is Nothing Then
                MsgBox("Could not create a stitch weld with the inputs.")
                
            End If

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally

            If Not objPartDoc Is Nothing Then
                LabelWeldObject = Nothing
                LabelWeldDC = Nothing
                FilletWeld = Nothing
                FilletWelds = Nothing
                objPartDoc.Close()
                objPartDoc = Nothing
            End If

            objApp = Nothing
        End Try
    End Sub
    
    Function GetTrainingFolder() As DirectoryInfo
        Dim objInstallData As SEInstallDataLib.SEInstallData = Nothing
        Dim objInstallFolder As DirectoryInfo = Nothing
        Dim objTrainingFolder As DirectoryInfo = Nothing

        Try
            objInstallData = New SEInstallDataLib.SEInstallData
            objInstallFolder = New DirectoryInfo(objInstallData.GetInstalledPath())
            objTrainingFolder = New DirectoryInfo(Path.Combine(objInstallFolder.Parent.FullName, "Training"))
        Catch
        Finally
            If Not (objInstallData Is Nothing) Then
                Marshal.FinalReleaseComObject(objInstallData)
                objInstallData = Nothing
            End If
        End Try

        Return objTrainingFolder
    End Function
End Class