ScaleSelectSet Method

Description

Scales the objects in the select set about the specified point. All of the selected objects must belong to the sheet.

Syntax

Visual Basic
Public Sub ScaleSelectSet( _ ByVal dScale As Double, _ ByVal AboutPt_x As Double, _ ByVal AboutPt_y As Double _ )

Parameters

dScale
AboutPt_x
AboutPt_y

Example

Example (VB.NET)
Example (C#)

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());
        }
    }

}