Details
How to Get Bullet Number List?
Solution
Imports System.IO
Imports System.Runtime.InteropServices
Imports SolidEdgeAssembly
Imports SolidEdgeFramework
Imports SolidEdgeConstants
Module Module1
Sub Main()
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDocument As SolidEdgeFramework.SolidEdgeDocument = Nothing
Dim objDraft As SolidEdgeDraft.DraftDocument = Nothing
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objDocument = objApplication.ActiveDocument
objDraft = objDocument
Dim sheet As SolidEdgeDraft.Sheet = objDraft.ActiveSheet
Dim textBoxes As SolidEdgeFrameworkSupport.TextBoxes = sheet.TextBoxes
Dim textBox As SolidEdgeFrameworkSupport.TextBox = textBoxes(0)
Dim textEdit As SolidEdgeFrameworkSupport.TextEdit = textBox.Edit
Dim isNumberList As Boolean
Dim textNumberType As SolidEdgeConstants.TextNumberTypeConstants
Dim textNumberFormat As SolidEdgeConstants.TextNumberFormatConstants
Dim textNumberJustificaction As SolidEdgeConstants.TextNumberJustificationConstants
textEdit.SetSelect(33, 34, SolidEdgeFrameworkSupport.TextSelectConstants.seTextSelectRange)
textEdit.Color = 255
Dim startIdx As Integer = Nothing
Dim endIdx As Integer = Nothing
textEdit.GetSelect(startIdx, endIdx)
textEdit.GetNumberList(isNumberList, textNumberType, textNumberFormat, textNumberJustificaction)
If (isNumberList) Then
Dim numberStart As Integer = textEdit.NumberingStartValue
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
End Try
End Sub
End Module
Hardware/Software Configuration
Platform: AMD64
OS: window
OS Version: 764
Product: SOLID_EDGE
Application: AUTOMATION
Version: V219.0
Function: API_DOCUMENT
Ref: 002-8014223