Settogglestring

DmisCommand.SetToggleString (6, SHOW_IDS, 3)

Sub Main
Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object


Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set DmisCommands = DmisPart.Commands
CommandCount = DmisCommands.Count
Set DmisCommand = DmisCommands.Item(CommandCount)
DmisCommands.InsertionPointAfter DmisCommand


Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, True)
DmisCommand.Marked = True
retval = DmisCommand.PutText ("LOC1", REF_ID, 0)

retval = DmisCommand.SetToggleString (6, SHOW_IDS, 3)
retval = DmisCommand.SetToggleString (0, SHOW_IDS, 1)
retval = DmisCommand.SetToggleString (0, SHOW_IDS, 2)
retval = DmisCommand.SetToggleString (1, SHOW_HEADINGS, 0)
retval = DmisCommand.SetToggleString (1, GRAPH_OPTION, 0)
retval = DmisCommand.SetToggleString (4, DIM_INFO_ORDER, 1)
retval = DmisCommand.SetToggleString (14, DIM_INFO_LOC, 1)
End Sub