How to insert dimension locations and specify advanced parameters?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • How to insert dimension locations and specify advanced parameters?

    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, , , , , , , , , , , , , , , , ,
    ==================

  • #2
    1. Find out the name of the points to evaluate and maybe put them in an array (parse the part program).

    2. Make a for-loop that runs for the total number of points in the array and create the evaluation within the for-loop for the entire array.

    If you don't know how the code for the LOC-command looks like, find a part program that has the LOCation command exactly as you want it and export that as BASIC.
    PC-DMIS CAD++ 2o19 R1 SP4

    Comment


    • quentin66
      quentin66 commented
      Editing a comment
      thank you vpt.
      which command should i use to create the evaluation,any demo code?

  • #3
    how to insert DIM LOC1 command?

    Comment


    • #4
      Got it,thank you vpt

      Comment


      • #5
        No problem, if you wouldn't mind, please post your solution as that will help others.
        PC-DMIS CAD++ 2o19 R1 SP4

        Comment


        • #6
          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)

          Comment

          Related Topics

          Collapse

          Working...
          X