hexagon logo
Register Sign in
  • Replies 29 replies
  • Subscribers 30 subscribers
  • Views 904 views
  • Users 0 members are here
Options
Related

Settogglestring

gitalife
Hello all,
Is there some documentation on the settogglestring method.
I am curious about the parameter values and how to set them
accordingly.
Thanks in advance for any help or info.
Parents
  • Hi,
    based on tip, i tryed again

    with 1 and 2 it is not working ?
    but it seems that a 3 do it ^^ 
    DmisCommand.SetToggleString (6, SHOW_IDS, 3)

    is this complete random ? how strange 


    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


    with pcDMIS 2020 R1 this will work,
    you only have to alter "LOC1"
Reply
  • Hi,
    based on tip, i tryed again

    with 1 and 2 it is not working ?
    but it seems that a 3 do it ^^ 
    DmisCommand.SetToggleString (6, SHOW_IDS, 3)

    is this complete random ? how strange 


    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


    with pcDMIS 2020 R1 this will work,
    you only have to alter "LOC1"
Children
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement