How to copy selected item style to another item in Solid Edge? - vb.net

Question

I'm developing a macro for Solid Edge which is stores values of things like font size, width etc. and applies them to another object. Both functions are executable by button click. First button is saving the property values and second applies them to another object. The problem is that I have no clue which methods or functions should I use to store the values.
Public Class Form1
Dim solidedge As SolidEdge.Framework.Interop.Application
Dim line As SolidEdge.Framework.Interop.SelectSet
Dim item As SolidEdge.FrameworkSupport.Interop.Line2d
Dim style As SolidEdge.FrameworkSupport.Interop.GeometryStyle2d
Dim breite As Double
Dim dashname As String
Dim autophase As Boolean
Dim dashgapcount As Integer
Dim dashstrokepercent As Double
Dim color As Integer
Dim linearname As String
Dim units As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
solidedge = GetObject(, "SolidEdge.Application")
line = solidedge.ActiveSelectSet
item = line.Item(1)
style = item.Style
breite = style.Width
autophase = style.AutoPhase
dashgapcount = style.DashGapCount
dashstrokepercent = style.DashStrokePercent
color = style.LinearColor
linearname = style.LinearName
units = style.Units
dashname = style.DashName
End Sub
End Class
Example: I want make the black line look like the pink line by copying format:

Answer 1

I am not familiar with Solid Edge, but based on the code you posted, you could try something like this:
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
solidedge = GetObject(, "SolidEdge.Application")
line = solidedge.ActiveSelectSet
item = line.Item(2)
item.Style = style
End Sub