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

Remove feature ID from DIMINFO command

gitalife
Hello all,
I have a script that generates diminfo if the total deviation is out of tolerance. (see below)
But for the life of me, I can't get the DIMINFO to NOT have the FEATID.
Tried every SettoggleString combination I could come up with, but no cigar.
I'll settle for another script that just removes FEATID after the first script
generates the following DIMINFO.
I'm sure a "code guru" has what I need at the top of his head.
Any help would be appreciated.
Thanks in advance.

DIMINFO/LOC726; , ,FEATID,VERT,HORIZ, ,$
, ;DEV, , , , , , , , ,$
T, , , , , , , , , , , , , , , , ,
DIMINFO/LOC729; , ,FEATID,VERT,HORIZ, ,$
, ;DEV, , , , , , , , ,$
T, , , , , , , , , , , , , , , , ,
DIMINFO/LOC730; , ,FEATID,VERT,HORIZ, ,$
, ;DEV, , , , , , , , ,$
T, , , , , , , , , , , , , , , , ,
Parents
  • Thanks vtp.se,
    I tried that once again and the FeatID was replaced by an ICON.

    First section of code from .bas is when FeatID was checked.
    Second section is when FeatID was not checked.

    As you can see the only difference is the second SetToggleString has a 3
    when FeatID is generated, and a 6 when the FeatID is not generated.
    but and ICON is generated. Strange!!


    Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, TRUE)
    DmisCommand.Marked = TRUE
    ' Set Reference Id = LOC1
    retval = DmisCommand.PutText ("LOC1", REF_ID, 0)
    ' Set Show Ids Item 1 =
    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)
    ' Set Show Ids Item 2 = FEATID
    retval = DmisCommand.SetToggleString (3, SHOW_IDS, 2)
    ' Set Show Headings =
    retval = DmisCommand.SetToggleString (1, SHOW_HEADINGS, 0)
    ' Set Graph Option =
    retval = DmisCommand.SetToggleString (1, GRAPH_OPTION, 0)
    ' Set Dimension Info Order Item 1 = DEV
    retval = DmisCommand.SetToggleString (4, DIM_INFO_ORDER, 1)
    ' Set Dimension Info Location Item 1 = T
    retval = DmisCommand.SetToggleString (14, DIM_INFO_LOC, 1)


    Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, TRUE)
    DmisCommand.Marked = TRUE
    ' Set Reference Id = LOC1
    retval = DmisCommand.PutText ("LOC1", REF_ID, 0)
    ' Set Show Ids Item 1 =
    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)
    ' Set Show Ids Item 2 =
    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 2)
    ' Set Show Headings =
    retval = DmisCommand.SetToggleString (1, SHOW_HEADINGS, 0)
    ' Set Graph Option =
    retval = DmisCommand.SetToggleString (1, GRAPH_OPTION, 0)
    ' Set Dimension Info Order Item 1 = DEV
    retval = DmisCommand.SetToggleString (4, DIM_INFO_ORDER, 1)
    ' Set Dimension Info Location Item 1 = T
    retval = DmisCommand.SetToggleString (14, DIM_INFO_LOC, 1)
Reply
  • Thanks vtp.se,
    I tried that once again and the FeatID was replaced by an ICON.

    First section of code from .bas is when FeatID was checked.
    Second section is when FeatID was not checked.

    As you can see the only difference is the second SetToggleString has a 3
    when FeatID is generated, and a 6 when the FeatID is not generated.
    but and ICON is generated. Strange!!


    Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, TRUE)
    DmisCommand.Marked = TRUE
    ' Set Reference Id = LOC1
    retval = DmisCommand.PutText ("LOC1", REF_ID, 0)
    ' Set Show Ids Item 1 =
    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)
    ' Set Show Ids Item 2 = FEATID
    retval = DmisCommand.SetToggleString (3, SHOW_IDS, 2)
    ' Set Show Headings =
    retval = DmisCommand.SetToggleString (1, SHOW_HEADINGS, 0)
    ' Set Graph Option =
    retval = DmisCommand.SetToggleString (1, GRAPH_OPTION, 0)
    ' Set Dimension Info Order Item 1 = DEV
    retval = DmisCommand.SetToggleString (4, DIM_INFO_ORDER, 1)
    ' Set Dimension Info Location Item 1 = T
    retval = DmisCommand.SetToggleString (14, DIM_INFO_LOC, 1)


    Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, TRUE)
    DmisCommand.Marked = TRUE
    ' Set Reference Id = LOC1
    retval = DmisCommand.PutText ("LOC1", REF_ID, 0)
    ' Set Show Ids Item 1 =
    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)
    ' Set Show Ids Item 2 =
    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 2)
    ' Set Show Headings =
    retval = DmisCommand.SetToggleString (1, SHOW_HEADINGS, 0)
    ' Set Graph Option =
    retval = DmisCommand.SetToggleString (1, GRAPH_OPTION, 0)
    ' Set Dimension Info Order Item 1 = DEV
    retval = DmisCommand.SetToggleString (4, DIM_INFO_ORDER, 1)
    ' Set Dimension Info Location Item 1 = T
    retval = DmisCommand.SetToggleString (14, DIM_INFO_LOC, 1)
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement