Rotates the objects in the select set about the specified point. All of the selected objects must belong to the sheet.
Imports System.Runtime.InteropServices Public Class DraftAutomation 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 End Class
using System; using System.Windows.Forms; using System.Runtime.InteropServices; public class DraftAutomation { private void btnSelectSet_Click(object sender, System.EventArgs e) { SolidEdgeFramework.Application objApplication = null; SolidEdgeDraft.DraftDocument objDraftDoc = null; SolidEdgeDraft.Sheet objSheet = null; SolidEdgeFramework.SelectSet objSelectSet = null; // SolidEdgeFrameworkSupport.Line2d objLine = null; Type objType = null; try { objApplication = Microsoft.VisualBasic.Interaction.GetObject(null, "SolidEdge.Application"); if (objApplication == null) { // 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; } objDraftDoc = objApplication.ActiveDocument; objSheet = objDraftDoc.ActiveSheet; objSelectSet = objApplication.ActiveSelectSet; foreach (SolidEdgeFrameworkSupport.Line2d objLine in objSheet.Lines2d) { objSelectSet.Add(objLine); } objSheet.ScaleSelectSet(2.25, 0.17024, 0.18441); objSheet.MoveSelectSet(0.17024, 0.18441, 0, 0); objSheet.RotateSelectSet(0.7853, 0, 0); } catch (Exception ex) { MessageBox.Show(ex.ToString()); } } }