Drawing Elements not Synching to ByLevel - uStn XM (08.09.04.88)

All

After converting a DWG to DGN then running our clean-up macro which sets colors, weights, styles, freezes as per our project standard.  All drawing elements remain color 0 & weight 0 until everything is selected and reset with the "change element attributes" tool.

I have add the line DGNAPPS > synchbylevel to the UCF.  Is there another global setting I am missing???

Win 7

uStn XM 08.09.04.88

  • in the view attributes dialog - is the level symbology option selected ?



  • Tim

    This only shows up on XM.  The v8(2004) & v8i(SS3) don't see the issue.

    I ran a quick check on a line element properties before and after the macro.

       

    Attached is a copy of the macro for review.

    CleanDGN.txt
    ' Macro to clean up converted DWG -> DGN files.
    
    Sub main
    
        Dim startPoint As MbePoint
        Dim point As MbePoint, point2 As MbePoint
    
        MbeSendKeyin "levelmanager dialog open "
        MbeSendCommand "levelmanager level SELECTALL "
        MbeSendKeyin "LEVEL SET LOCK OFF  ""*"""
        MbeSendKeyin "LEVEL SET DISPLAY ON  ""*"""
        MbeSendKeyin "LEVELMANAGER LEVEL ACTIVE 0 "
        MbeSendKeyin "levelmanager dialog close "
    
        MbeSendKeyin "choose all"
        MbeSendKeyin "change unlock "
        MbeSendDataPoint point, 1%
        MbeWriteMessage "All Elements Unlocked"
    
        MbeSendKeyin "choose all"
        MbeSendKeyin "change tags droptext "
        MbeSendDataPoint point, 1%
        MbeWriteMessage "All Tags dropped to Text"
    
        MbeSendKeyin "choose all"
        MbeSendCommand "DROP ELEMENT "
    ' Values for the options 0& = off, 1& = on, -1& = turn off default
        MbeSetAppVariable "DROP", "dropOptions.complex", 1&
        MbeSetAppVariable "DROP", "dropOptions.dimensions", 0&
        MbeSetAppVariable "DROP", "dropOptions.strings", 1&
        MbeSetAppVariable "DROP", "dropOptions.mlines", 1&
        MbeSetAppVariable "DROP", "dropOptions.sharedCells", 1&
        MbeSetAppVariable "DROP", "dropOptions.sharedToNormal", 1&
        MbeSetAppVariable "DROP", "dropOptions.text", 0&
        MbeSendDataPoint point, 1%
        MbeWriteMessage "Elements Droppped - Complex - Strings - Multi-Lines - Shared Cells"
    
        MbeSendCommand "CHOOSE ALL "
        MbeSendCommand "Change Element Extended "
            MbeSetAppVariable "CHANGEBY", "tcb->msToolSettings.changeElement.level", 0&
            MbeSetAppVariable "CHANGEBY", "tcb->msToolSettings.changeElement.color", 1&
            MbeSetAppVariable "CHANGEBY", "changeElementInfo.current.Color", -1&
            MbeSetAppVariable "CHANGEBY", "tcb->msToolSettings.changeElement.style", 0&
            MbeSetAppVariable "CHANGEBY", "tcb->msToolSettings.changeElement.weight", 1&
            MbeSetAppVariable "CHANGEBY", "changeElementInfo.current.Weight", -1&
        MbeSendDataPoint point, 1%
        MbeWriteMessage "All Elements Changed - Color bylayer - Weight bylayer"
    
        MbeSendKeyin "choose all"
        MbeSendCommand "ACTIVE COLOR BYLEVEL "
        MbeSendCommand "ACTIVE WEIGHT BYLEVEL "
        MbeSendDataPoint point, 1%
        MbeWriteMessage "All Elements Color & Weight set By-Level"
    
    '---- This section sets color, weight, style, freeze & plot for Arch files. ----
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 160 ""*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*1HR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*2HR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*3HR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*4HR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-CENTER_OF_OPENING*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-CENTER-OF-OPENING*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-CLEAR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*-Clng*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-dim"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-dims"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*-FE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*-FIRE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*-HDLN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-HTCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*-LIGHT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 15 ""*-MATC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-note"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-NPLT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-patt"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*-PFIX*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*-SEATS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-symb"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*-text"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*-TREE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*A-CODE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*A-SOFFIT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*ADA"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*ADA-SYMB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*ALWAYSOFF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*APPL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*BED"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*CEIL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*CLG*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*CLNG*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*COURT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*CRTYD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*CURTAIN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 15 ""*DEMO*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*DIM*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*DRAIN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*DUCT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*EOP*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""*EXIT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*EXTINGUISH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*FAIR HOUSING*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*FENCE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*FIXT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*FIRE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*FIRE-EQPM"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*FLOR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*FURN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*FUTURE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""*HOOD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*HOUR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""*LIGHT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""*LITE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*MASONRY*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 15 ""*MATCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*MCJ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*MILLWORK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*NOPLOT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*PACC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*PLINES*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""*PLUMB*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*RATED*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*RATG*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 9 ""*REV*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*ROAD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*SF*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*SITE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""*SMOKE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*STAIR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*STRS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*TRACK"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*TRAVEL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*TRELLIS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""*WALK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""*WIPE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""-U-BUILDING OUTLINE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""-U-COVERED AWNING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A*-BAK"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A*-WALK"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""a-a1-symb"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""A-ACC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ANNO-ADA"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ANNO-AREA*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-ANNO-KEYN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ANNO-SYM"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ANNO-SYMB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-BALCONY"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-GROS"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-GRPS-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-IDEN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-IDEN_NUMBER"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-OCCP"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-AREA-SPCE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-AREA-SPCE-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-AREA-UNIT-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-BEDSPACE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-BLDG HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-BLDG HTCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-BLDG-Outln_ORIGINAL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-BRICK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-CABINET*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-CLEARENCE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""A-CLG-EF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-CLG-HVAC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-CLNG-PATT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""A-CLNG-SPKR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-CODE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-CODE NON HC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-CSWK-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-CURTIN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-DETL-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-DOOR-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-DOOR-SYMB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-DOORSWING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ELEV-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ELEV-IDEN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-EQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""A-EXIT SIGN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-FE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""A-FIRE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-FIREEXTINGUISHER"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""A-FIREWALL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-FLOOR-HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-FLOORING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-FLOR-OVHD"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-FLOR-SLAB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-FLOR-TILE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-GLAZ-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-HNDRL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-HATCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-HTCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-HC SYM"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-HTCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-KITCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-LAUNDRY*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-LEG-M"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-LOCK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-LOUVER"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-LS-NOTE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-LS-TEXT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-MCJ"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-OUTLINE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-PKG"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-RMNBR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-RNAME"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-ROAD"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-ARW"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-ARROW"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-DRAINS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-ROOF-FINE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF_HTCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-PATT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-ROOF-PERGOLA"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-SINGLEPLY"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-TILE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-ROOF-VENT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-SCREEN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-SDWLK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-SEATS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-SECONDARY*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-SECT-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-SHADE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-SKYLIGHT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""A-SMOKE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""A-SMOKE BARR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-SOFFIT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-SQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-STAGE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-STAIR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-SYM*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-TARGET*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-THER*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-TILE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-TREE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-UNIT-ID*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""A-WALK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL*-PATT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-WALL-ABOV"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-WALL-BLOW"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-WALL-BLW"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-CMU HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-WALL-COMP"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-HATCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-HTCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-IDEN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-PATT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""A-WALL-RATING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-SHADE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL-SHEAR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""A-WALL BELOW"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""A-WALL BRICK HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""A_ELECT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""ABOVE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""ASSEMBLY AREAS"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""BAR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""BEAM*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""BLDG INSERTION POINT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 9 ""CENTERLINE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 9 ""CHANGES"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""CMU"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 9 ""DEFPOINTS"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""DIM-SITE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""DRG-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-CEILING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-COMM*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-ELEC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-FIRE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-LIGHT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-LITE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-LTG*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-POW*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""E-SYMBOL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""ELECTRIC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""ELEV"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""ELEVATION"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""EQUIPMENT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""F-1-HR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""F-CEILING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""F-HEAD-STD-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""F-SPRN-HEAD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""F-WALL-FIRE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 13 ""F-WALL-SMOKE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""FD"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 12 ""FSD"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""G-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 0 ""G-ANNO-SCHD"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""G-ANNO-SYMB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""G-ANNO-VIEW"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""G-TARGET-NPLT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""GEO-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""GRD-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""HANDICAP"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HATCHING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HC CIRCLE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HCONTROL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""HEADDN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HEDIFF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""*HOOD"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""HOOD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HRDIFF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HRFITT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HSDIFF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HSDUCTLBL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HSFITT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HSFLEX"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HTCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""HVAC 2"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""I-FURN-POCHE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""ID-FINISH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""INSUL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""K-EQP*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""K-FAN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""KITCHEN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""LAUNDRY"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""M-*ACCESS"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-*CURB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-*DEV"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-*DUC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-*FAN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-AHU*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-CAR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-CEILING"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-CFM"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-CLEAR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-CLEARANCE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-CURB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-DUC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-EQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-EQUIPCURB"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-FAN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-FC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-FLAT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 12 ""M-FSD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 10 ""M-FSDMPRTXT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-GH3"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-GMRK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-HVAC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-KITEQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-LOWER"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-MUA"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-PIPING-COND"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-PIPING-REF*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""M-PTAC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 10 ""M-PTAC TAG"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-RACK"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-RTU*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""M-SPLITCOND*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 10 ""M-SPLITTAG"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""M-STEEL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 10 ""M-TAG"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 15 ""MATCHLINE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""MCJ"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""MNEQP"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""MNRSL"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""NO PLOT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""OCCUPANCY*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""OCCUPANT LOAD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""P-FIX*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""P-FLOR-FIX*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""P-FLOR-SPCL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""P-SANR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""P-SHWR TILE"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 103 ""P-WTRHTR"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""PARK*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""PERIMETER SF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""PFIX*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""PVT-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""Q-CASE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""Q-SPCQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""RCP-FIXTURES"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""RCP-GRID"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""RCP-HATCH"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""RCP"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""RCP TEXT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 160 ""S-COLS"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 160 ""S-COLUMN"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""S-GRID*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 130 ""SOFFIT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""STRUCT ELEMENTS"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""TOILACC"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""TRUSS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""U-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""VP-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""X-REF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""XREF"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 0 ""0"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""350"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-CLEAR*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-M*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-NOPLOT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-NONPLOT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-NPLT"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""0-SF*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 192 ""1-EQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 10 ""1-TAG*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 28 ""3-ELE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""4-PLUMB*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""5-SODA*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""6-FLOORRECESS*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""7-WALL*"""
        MbeSendKeyin "LEVEL SET BYLEVEL COLOR 208 ""10-UNDER*"""
    '
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 3 ""*DEMO*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 3 ""*DEMO"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 3 ""DEMO*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 6 ""*MATC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 6 ""*-MATC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 6 ""*MATC-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 6 ""*MATCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 6 ""*MATCHLINE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL STYLE 6 ""*MTCH*"""
    '
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 0 ""*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 2 ""*MATC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 2 ""*-MATC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 2 ""*MATC-*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 2 ""*MATCHLINE*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 2 ""*MTCH*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""HOOD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-EQ*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-FAN*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-FC*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-FSD*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-RTU*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-SPLIT*"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""M-TAG"""
        MbeSendKeyin "LEVEL SET BYLEVEL WEIGHT 1 ""MNEQP"""
    '
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-dim"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-dims"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-CENTER_OF_OPENING*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-CENTER-OF-OPENING*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-CLEAR*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-HDLN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-note"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-NPLT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-patt"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-symb"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*-text"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*A-CODE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*ADA"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""ALWAYSOFF"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*DIM*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*DRAIN*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*EXTINGUISH*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*FAIR HOUSING*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*IDEN-LINE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*MASONRY*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*PLUMB*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*PLINES*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*SF*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*TRAVEL*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*WALL-PATT*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""*WIPE*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""-U-BUILDING OUTLINE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""-U-COVER AWNING"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A*-BAK"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""a-a*-*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-ADA"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-AREA*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-KEYN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-NOTE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-SYM"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ANNO-SYMB"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-AREA-BALCONY"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-AREA-GROS"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-AREA-GRPS-IDEN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-AREA-OCCP"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-AREA-SPCE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-BLDG-Outln_ORIGINAL"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-BRICK*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-CLEARENCE*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-CLG-HVAC"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-CLNG-HVAC"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-CODE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-CODE NON HC"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-DETL-IDEN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-DOOR-IDEN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ELEV-*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ELEV-IDEN*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-FE*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-FLOOR-HATCH"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-FLOR-PATT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-FLOR-TILE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-GLAZ-IDEN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-HATCH*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-HNDRL"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-HTCH*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-LEG-M"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-LOUVER"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-LS-NOTE*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-LS-TEXT*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-MCJ"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ROOF-ARROW"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ROOF-ARW"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ROOF-DRAIN*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ROOF-DRAINS*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ROOF-PATT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-ROOF-VENT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-SECT-IDEN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-SF"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-SF2"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-SHADE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-SQ*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-SYM*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-TILE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-UNIT-ID*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-WALL-CMU HATCH"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-WALL-IDEN"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-WALL-PAT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-WALL-SHEAR"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""A-WALL BRICK HATCH"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""ASSEMBLY AREAS"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""BAR*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""BEAM*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""DEFPOINTS"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""DIM-SITE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""ELEVATION"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""FDMPR*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""F-HEAD-STD-*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""F-SPRN-HEAD*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""G-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""G-ANNO-SCHD"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""G-ANNO-SYMB"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""G-ANNO-VIEW"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""G-TARGET-NPLT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HANDICAP"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HATCH"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HATCHING"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HC CIRCLE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HRDI*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HSDI*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""HTCH"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""I-FURN-POCHE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""ID-FINISH"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""INSUL"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-*ACCESS"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-CAR"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-CFM"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-FDmpr*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-FLAT*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-GH3"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-GMRK*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-GRILL*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-HVAC*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-LOWER"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-NOTE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-PIPING-COND"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-PIPING-REF*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-PRESS*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""M-STEEL*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""MCJ"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""MNRSL"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""NO PLOT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""OCCUPANCY*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""OCCUPANCT LOAD*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""P-SHWR TILE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""PERIMETER SF"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""RCP TEXT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""S-GRID*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""U-*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""VP-*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""X-REF"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""0-CLEAR*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""0-M*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""0-NOPLOT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""0-NONPLOT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""0-NPLT"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""0-SF*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""1-BORDER"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""1-SCHEDULE"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""4-PLUMB*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""5-SODA*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""6-FLOORRECESS*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""7-WALL*"""
        MbeSendKeyin "LEVEL SET FROZEN ON ""10-UNDER*"""
    '
        MbeSendKeyin "LEVEL SET PLOT OFF ""*-CENTER-OF-OPENING*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*-CENTER_OF_OPENING*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*-NOPLOT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*-NONPLOT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*-NPLT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*-SF*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*A-CODE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*ADA*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*ADA-SYMB"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*ALWAYSOFF"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*EXIT*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*FAIR HOUSING*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*LIGHT*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*LITE*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*MASONRY*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*NOPLOT*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*NONPLOT*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*NPLT*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*REV*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""*WIPE*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""-U-BUILD*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""-U-COVER*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""a-a1-symb"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-ANNO-ADA"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-AREA"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-AREA-BALCONY"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-AREA-GROS"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-AREA-GRPS-IDEN"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-AREA-OCCP"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-AREA-SPCE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-CLEARENCE*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-CLG-HVAC"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-CLNG-HVAC"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-CODE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-CODE NON HC"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-ELEV-IDEN*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-EXIT SIGN"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-FE*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-FLOR-TILE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-HATCH*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-MCJ"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-SECONDARY*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-SECT-IDEN"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-SHADE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-SYMB"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-TILE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-UNIT-ID*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""A-WALL-SHEAR"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""CENTERLINE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""BLDG INSERTION POINT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""DEFAULT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""DEFPOINTS"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-CEILING"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-COMM*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-ELEC*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-LIGHT*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-LITE*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-LTG*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-POW*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""E-SYMBOL"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""ELECTRIC"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""F-HEAD-STD-*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""G-ANNO-NPLT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""G-ANNO-SYMB"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""G-ANNO-VIEW"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""G-TARGET-NPLT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""HANDICAP"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""HC CIRCLE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""I-FURN-POCHE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""MCJ"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""P-SHWR TILE"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""RCP-FIXTURES"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""U-*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""0-*"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""0-NOPLOT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""0-NONPLOT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""0-NPLT"""
        MbeSendKeyin "LEVEL SET PLOT OFF ""0-SF*"""
    
    '---- This section deletes un-used levels ---- 
        MbeSendKeyin "levelmanager dialog open "
        MbeSendCommand "levelmanager level SELECTALL "
        MbeSendCommand "LEVELMANAGER LEVEL DELETE LIST "
        MbeSendKeyin "LEVELMANAGER LEVEL ACTIVE 0 "
        MbeSendKeyin "levelmanager dialog close "
    
        MbeSendKeyin "macro snappy "
        MbeSendDataPoint point, 1%
        MbeWriteMessage "Snap Property set all Elements"
    
        MbeSendKeyin "mdl load mkrefsrelative -n"
        MbeSendDataPoint point, 1%
        MbeWriteMessage "Relative path set on attachments"
    
        MbeSendKeyin "choose all"
        MbeSendCommand "ACTIVE COLOR BYLEVEL "
        MbeSendCommand "ACTIVE WEIGHT BYLEVEL "
        MbeSendDataPoint point, 1%
        MbeWriteMessage "All Elements Color & Weight set By-Level"
    
        MbeSendCommand "ACTIVE SYMBOLOGY BYLEVEL "
    
        MbeSendKeyin "filedesign "
        MbeSendDataPoint point, 1%
        MbeWriteMessage "Save File Settings"   
    
        MbeWriteMessage "File Clean Complete"
        MbeSendDataPoint point, 1%
    
    End Sub
    

    Steven W.

    CAD Manager

    MPS Engineering Inc

    813-855-2721