Private Sub btnSelectSet_Click(sender As System.Object, e As System.EventArgs) Handles btnSelectSet.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDraftDoc As SolidEdgeDraft.DraftDocument = Nothing
Dim objSheet As SolidEdgeDraft.Sheet = Nothing
Dim objSelectSet As SolidEdgeFramework.SelectSet = Nothing
Dim objLine As SolidEdgeFrameworkSupport.Line2d = Nothing
Dim objType As Type = Nothing
Try
objApplication = GetObject(, "SolidEdge.Application")
If objApplication Is Nothing Then
' Get the type from the Solid Edge ProgID
objType = Type.GetTypeFromProgID("SolidEdge.Application")
' Start Solid Edge
objApplication = Activator.CreateInstance(objType)
' Make Solid Edge visible
objApplication.Visible = True
End If
objdraftDoc = objApplication.ActiveDocument
objSheet = objdraftDoc.ActiveSheet
objSelectSet = objApplication.ActiveSelectSet
For Each objLine In objSheet.Lines2d
Call objSelectSet.Add(objLine)
Next
Call objSheet.ScaleSelectSet(2.25, 0.17024, 0.18441)
Call objSheet.MoveSelectSet(0.17024, 0.18441, 0, 0)
Call objSheet.RotateSelectSet(0.7853, 0, 0)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub