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
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objTableStyles As SolidEdgeFrameworkSupport.TableStyles
Dim objTableStyle As SolidEdgeFrameworkSupport.TableStyle
Try
objApp = Marshal.GetActiveObject("SolidEdge.Application")
objDoc = objApp.ActiveDocument
objTableStyles = objDoc.TableStyles
objTableStyle = objTableStyles.Add("testStyle", "Normal")
' Title / Header / Data - text styles
objTableStyle.TitleTextStyle = "Normal"
objTableStyle.HeaderTextStyle = "Normal"
objTableStyle.DataTextStyle = "Normal"
' line colors
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = 16711680 'blue
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = 16711680
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = 16711680
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = 16711680
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 16711680
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = 16711680
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = 16711680
' line dash type
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = "Continuous"
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = "Dash"
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = "Chain"
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = "Centered Chain"
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = "Double Chain"
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = "Dot"
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = "Dash Dot"
' line width
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = 0.001
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = 0.0005
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleHeaderSeparator) = 0.0005
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator ) = 0.0005
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 0.0005
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = 0.0005
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = 0.0005
For Each objTableStyle In objTableStyles
Debug.Print(objTableStyle.Name)
Debug.Print(objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder))
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
using System.Windows.Forms;
using System.Runtime.InteropServices;
public class Form1
{
private void Button1_Click(object sender, EventArgs e)
{
SolidEdgeFramework.Application objApp = null;
SolidEdgeDraft.DraftDocument objDoc = null;
SolidEdgeFrameworkSupport.TableStyles objTableStyles = null;
SolidEdgeFrameworkSupport.TableStyle objTableStyle = null;
try
{
objApp = (SolidEdgeFramework.Application)Marshal.GetActiveObject("SolidEdge.Application");
objDoc = objApp.ActiveDocument;
objTableStyles = objDoc.TableStyles;
objTableStyle = objTableStyles.Add("testStyle", "Normal");
// Title / Header / Data - text styles
objTableStyle.TitleTextStyle = "Normal";
objTableStyle.HeaderTextStyle = "Normal";
objTableStyle.DataTextStyle = "Normal";
// line colors
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = 16711680; //blue
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = 16711680;
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = 16711680;
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = 16711680;
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 16711680;
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = 16711680;
objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = 16711680;
// line dash type
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = "Continuous";
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = "Dash";
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = "Chain";
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = "Centered Chain";
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = "Double Chain";
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = "Dot";
objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = "Dash Dot";
// line width
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = 0.001;
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = 0.0005;
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleHeaderSeparator) = 0.0005;
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 0.0005;
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 0.0005;
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = 0.0005;
objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = 0.0005;
foreach (SolidEdgeFrameworkSupport.TableStyle objTableStyleWithinLoop in objTableStyles)
{
objTableStyle = objTableStyleWithinLoop;
Debug.Print(objTableStyleWithinLoop.Name);
Debug.Print(objTableStyleWithinLoop.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder));
}
}
catch (Exception ex)
{
MessageBox.Show(ex.ToString());
}
}
public Form1()
{
SubscribeToEvents();
}
private bool EventsSubscribed = false;
private void SubscribeToEvents()
{
if (EventsSubscribed)
return;
else
EventsSubscribed = true;
Button1.Click += Button1_Click;
}
}