hexagon logo
Register Sign in
  • Replies 29 replies
  • Subscribers 30 subscribers
  • Views 806 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"
  • in reply to Henniger123
    Weird - the .bas export is obviously knackered.

    However if you change the pop up display in the edit window to 'data type information' and hover over the 'Icon' field, you can see that they type index is indeed 3
Reply Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement