What Is Missing At The End of This Macro?

Discussion in 'Microstation' started by Mark.Madsen, Apr 11, 2005.

  1. Mark.Madsen

    Mark.Madsen Guest

    Sub main


    MbeCurrentTransform.dgnUnits
    IF MbeSettings.TextLineLength = 101 THEN
    PROC1
    IF MbeSettings.TextLineLength = 102 THEN
    PROC2
    IF MbeSettings.TextLineLength = 103 THEN
    PROC3
    IF MbeSettings.TextLineLength = 104 THEN
    PROC4
    IF MbeSettings.TextLineLength = 105 THEN
    PROC5

    PROC1:
    MbeSendKeyin "LV=6"
    GoTo LABEL_NEXT
    PROC2:
    MbeSendKeyin "LV=19"
    GoTo LABEL_NEXT
    PROC3:
    MbeSendKeyin "LV=31"
    GoTo LABEL_NEXT
    PROC4:
    MbeSendKeyin "LV=44"
    GoTo LABEL_NEXT
    PROC5:
    MbeSendKeyin "LV=56"

    LABEL_NEXT:
    MbeSendKeyin "CO=0"
    MbeSendKeyin "WT=0"
    MbeSendKeyin "LC=0"
    MbeSendKeyin "RC=PROC.CEL"
    MbeSendKeyin "AC=PV"
    MbeSendCommand "/PACELR"

    End Sub
     
    Mark.Madsen, Apr 11, 2005
    #1
  2. Mark.Madsen

    carver33 Guest

    End If
    End If
    End If
    End If
    End If
    HTH
    Bill
     
    carver33, Apr 11, 2005
    #2
  3. Mark.Madsen

    Mark.Madsen Guest

     
    Mark.Madsen, Apr 12, 2005
    #3
  4. Mark.Madsen

    Mark.Madsen Guest

    Thanks for your help.
     
    Mark.Madsen, Apr 12, 2005
    #4
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. adding elements to the end of the list

  2. Virtuoso: missing solder...not missing

  3. What does this message "The geometry which serves as the origin of the detailed view "A", on sheet X

  4. What Does a High vs Low End Graphics Card Buy You?

  5. What is the best practice for doing this (Assembly configuration question)

  6. SW2008 BOM - Missing Items - missing?

  7. Macro to retrieve start and end points of lines in 3d sketch

  8. creating linetypes without the long piece at the end.

Loading...