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

How to insert dimension locations and specify advanced parameters?

quentin66
dear bros:

insert/dimension/location->
now i wanna insert dimension location command(LOC1) which bind to my vector points(PNT1),how to make that come true.and how to set the advanced parameters?just like below:

==================
DIM LOC1
T 0.000
END OF DIMENSION LOC1
DIMINFO/LOC1; , , , , , ,$
, ;DEV, , , , , , , , ,$
T, , , , , , , , , , , , , , , , ,
==================
Parents
  • Set DmisCommand = DmisCommands.Add(DIMENSION_START_LOCATION, TRUE)
    DmisCommand.Marked = TRUE

    retval = DmisCommand.PutText ("LOC2", ID, 0)

    retval = DmisCommand.PutText ("PT2", REF_ID, 0)

    retval = DmisCommand.SetToggleString (1, GRAPH_ANALYSIS, 0)

    retval = DmisCommand.SetToggleString (1, TEXT_ANALYSIS, 0)

    retval = DmisCommand.PutText ("10.000000", ARROW_MULTIPLIER, 0)

    retval = DmisCommand.SetToggleString (3, OUTPUT_TYPE, 0)

    retval = DmisCommand.SetToggleString (2, UNIT_TYPE, 0)

    retval = DmisCommand.PutText ("0.000000", STANDARD_DEVIATION, 0)

    retval = DmisCommand.SetToggleString (1, DIM_HALF_ANGLE, 0)

    Set DmisCommand = DmisCommands.Add(DIMENSION_T_LOCATION, TRUE)
    DmisCommand.Marked = TRUE

    retval = DmisCommand.PutText ("T", AXIS, 0)

    retval = DmisCommand.PutText (" 0.000", NOMINAL, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_MEASURED, 0)

    retval = DmisCommand.PutText (" 0.020", F_PLUS_TOL, 0)

    retval = DmisCommand.PutText (" 0.020", F_MINUS_TOL, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_MAX, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_MIN, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_DEVIATION, 0)

    retval = DmisCommand.PutText ("0.055", DIM_OUTTOL, 0)

    retval = DmisCommand.SetToggleString (2, OUTPUT_TO_REPORT, 0)

    Set DmisCommand = DmisCommands.Add(DIMENSION_END_LOCATION, TRUE)
    DmisCommand.Marked = TRUE

    Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, TRUE)
    DmisCommand.Marked = TRUE

    retval = DmisCommand.PutText ("LOC2", REF_ID, 0)

    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)

    retval = DmisCommand.SetToggleString (6, 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)
Reply
  • Set DmisCommand = DmisCommands.Add(DIMENSION_START_LOCATION, TRUE)
    DmisCommand.Marked = TRUE

    retval = DmisCommand.PutText ("LOC2", ID, 0)

    retval = DmisCommand.PutText ("PT2", REF_ID, 0)

    retval = DmisCommand.SetToggleString (1, GRAPH_ANALYSIS, 0)

    retval = DmisCommand.SetToggleString (1, TEXT_ANALYSIS, 0)

    retval = DmisCommand.PutText ("10.000000", ARROW_MULTIPLIER, 0)

    retval = DmisCommand.SetToggleString (3, OUTPUT_TYPE, 0)

    retval = DmisCommand.SetToggleString (2, UNIT_TYPE, 0)

    retval = DmisCommand.PutText ("0.000000", STANDARD_DEVIATION, 0)

    retval = DmisCommand.SetToggleString (1, DIM_HALF_ANGLE, 0)

    Set DmisCommand = DmisCommands.Add(DIMENSION_T_LOCATION, TRUE)
    DmisCommand.Marked = TRUE

    retval = DmisCommand.PutText ("T", AXIS, 0)

    retval = DmisCommand.PutText (" 0.000", NOMINAL, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_MEASURED, 0)

    retval = DmisCommand.PutText (" 0.020", F_PLUS_TOL, 0)

    retval = DmisCommand.PutText (" 0.020", F_MINUS_TOL, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_MAX, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_MIN, 0)

    retval = DmisCommand.PutText (" -0.075", DIM_DEVIATION, 0)

    retval = DmisCommand.PutText ("0.055", DIM_OUTTOL, 0)

    retval = DmisCommand.SetToggleString (2, OUTPUT_TO_REPORT, 0)

    Set DmisCommand = DmisCommands.Add(DIMENSION_END_LOCATION, TRUE)
    DmisCommand.Marked = TRUE

    Set DmisCommand = DmisCommands.Add(DIMENSION_INFORMATION, TRUE)
    DmisCommand.Marked = TRUE

    retval = DmisCommand.PutText ("LOC2", REF_ID, 0)

    retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)

    retval = DmisCommand.SetToggleString (6, 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)
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement