Imports System.Runtime.InteropServices
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objDoc As SolidEdgePart.PartDocument = Nothing
        Dim objKeypointCurve As SolidEdgePart.KeyPointCurve = Nothing
        Dim objKeypointCurves As SolidEdgePart.KeyPointCurves = Nothing
        Dim objConstructions As SolidEdgePart.Constructions = Nothing
        Dim aobj As Object = Nothing
        Dim ConstraintDirection As SolidEdgePart.SEFixedLengthConstraintDirection = Nothing
        Dim objarray As Object = Nothing
        Dim doubleValue As Double

        Try
            objApp = Marshal.GetActiveObject("SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            objConstructions = objDoc.Constructions
            objKeypointCurve = objConstructions.KeyPointCurves.Item(1)
            objKeypointCurve.SetFixedLength(1, SolidEdgePart.SEFixedLengthConstraintDirection.igConstraintDirectionXAxis, aobj)
            objKeypointCurve.GetFixedLength(doubleValue, ConstraintDirection, objarray)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class