Solid Edge How to use the GetBulletList on drafting file having bullet?

How to use the GetBulletList on drafting file having bullet?

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 startIndex As Integer = 0
            Dim flag As Boolean
            Dim value As SolidEdgeConstants.TextBulletTypeConstants
            textEdit.SetSelect(9, 11, SolidEdgeFrameworkSupport.TextSelectConstants.seTextSelectRange)
            textEdit.Color = 33023
            Dim startIdx As Integer = Nothing
            Dim endIdx As Integer = Nothing
            textEdit.GetSelect(startIdx, endIdx)
            textEdit.GetBulletList(flag, value)
            MsgBox(value.ToString())


        Catch ex As Exception
            Console.WriteLine(ex.Message)
        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-8014221