ࡱ> t } 3QQ#<!}cu!= &!}cx!}c!}cME [LSS8L   $>"<LLLPPLN0{8E75D913-3D21-11D2-85C4-080009A0C626} H`(%`pH 0^   x% #t%`&r `(p +l ul% -h@tM%`.fho BRoot Entryuq@VBA_Projectf@uqVBA_Project_Version(VBA @@     !h#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLlNOPRSTUVWXYZ[\]^_`abcdefgjikacadID="{A4075CB7-AC64-11D7-B781-00E07D8363F6}" Document=ThisDrawing/&H00000000 Name="ShortcutMenu" HelpContextID="0" VersionCompatible32="393222000" CMG="CFCD093D1945C349C349C349C349" DPB="7D7FBBEBC798C898C898" GC="2B29ED419A429A4265" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 44, 733, 492, Z ThisDrawingThisDrawingPROJECTwm&PROJECTzThisDrawing __SRP_2 Q(__SRP_3M_VBA_PROJECT' dir"@__SRP_0  __SRP_1rU~~{   ) ShortcutMenugK*mrU~~~~~~~f !}c  E Qyy ThisDrawing ShortcutMenuF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )`W & +D:\Programme\AutoCAD Map 2000i Deu\ACAD.TLBAutoCAD !p0FC:\WINNT\SYSTEM32\STDOLE2.TLBstdole au!= &!}cu!= &!}cXh{ _ AcadDocument %AcadDocument_BeginShortcutMenuDefaultVaY &LayoutItemClick setLayout @XaY & "Layoutliste laden Layouts .-vbarun LayoutItemClick   Frames Setup LoadLayouts(x`5}TnQ`5!i;n`5 $-vbarun setLayout VBE6.DLL i i S  ShortcutMenu *La<0* pHd Shortcut Menu<@ = v x>D@<Vrstdole>stdole f%\*\G{00020430v-C 0046}#2.0#0#C:\WINNT\SYSTEM32\STDOLE2.TLB# Autom`ation^sQ ThisDrawingGhisDrawAng 2E#H19 ,@Q"+am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#D:\Programme\AutoCAD Map 2000i Deu\ACAD.TLB#AutoCAD 2000i-Typenbibliothek*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\SYSTEM32\STDOLE2.TLB#OLE Automation x>@QThisDrawing2y40ab41d0ThisDrawingQ9 \d}c`+.*Settrue AutoCAD" VBAWin16~Win32MacVBA6#Projekt1A stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ%AcadDocument_BeginShortcutMenuDefaultЈ (ShortcutMenu!IAcadPopupMenu8NPopUp, AcadPopupMenud NPMenuItemAcadPopupMenuItem RListFoundl LListFound LPopupMenu@ RPopupMenu i`Count0vCaptionxDeletex AddMenuItemHvbCr$Checko GetSetting AddSubMenuLayoutsLayoutItemClicky SaveSetting setLayoutInValTUtility1J GetStringUCase5  ActiveLayout\BeginShortcutMenuDefaultWItemz _B_var_set< rU @,`|=$A`u$`ynrU 0)9iI!@   1Y4a` VW`K$`H $l`fk\0DHkfDL%H H XlD0/DHpp HkfDL%H lH=lH0DHkfDL%H H XlD0/DHHkfDL%H H dH fe\+ kp&<`H $H*#Dl`iL%H DlH=l/DH&(L% #DWl @/DBl <kBY"H:L%H HlH=xH3f`H $ t H T l`Hc>YD8kfDL%H $ t H P 8 P kfD$%4 $ t 4 P  Pl*#*#lDkfD%x D2D) H84 fd>|`4ltxlh0 DH84 lK$(l% #hW/hH#h /hd#h /hl$ h0   4Ht:\lxFd%t $ t t P Q\[X $ P)tX`hLt " F`XNx +`Hx %nt8%h% ``|L|&&) (H(((( @`P> a((8 @4 @$ @ ( @@ @ (( @  a(@H((l xA(h ((H(@Peeept Xe@d (e@` e@\ e@X ep@@t0x>@*\R1*#102$*\Rffff*2y40ab41d0*\R1*#120*\R1*#121*\R1*#81*\R1*#9f*\R1*#59*\R1*#102*\R0*#14*\R1*#103*\R0*#e*\R1*#10349"   (08@ Rp"$H(0pN02  PPP<8 @8&@ Nx(" 3P (0 "8@ J06$H,, "  (.-:@X p]]]]]](]H0 . !0  .$!2Layoutliste laden'(k0 .$!2Layoutsk (\Pr !0Layoutliste laden-vbarun LayoutItemClick 8 %6.*kFramesSetup LoadLayouts$<X, *(: *!:leLayoutsLayouts %>. . !@!0 . . %@!-vbarun setLayout . %@! 8 B@6kox`hFramesSetup LoadLayouts$<X,FramesSetup LoadLayoutsA@DdFramesSetup LoadLayoutsA@Dko]Layoutname eingeben: !J%L'H H %@ (PoXLKontextmen nach den Eintrgen "Layoutliste laden" und "Layouts" durchsuchenNPopUp .$.*'7Verweis auf den Menpunkt "Layoutliste laden" speichern .$B@4Menpunkt "Layouts" lschen PtJFalls der Menpunkt "Layoutliste laden" noch nicht existiert -> hinzufgen9Status des Menpunktes aus der Windowsregistrierung lesenHIst der Menpunkt angehakt -> Layoutnamen als Untermenpunkte hinzufgenzDSpeicherung des aktuellen Status des Menpunktes "Layoutliste laden" !Wechsel auf das angegebene LayoutAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2P Sub AcadDocument_BeginShortcutMenuDefault(A As IPopup) Dim N O080.Add(I[,GT(, "-vbaru9",!MClick" & vbCr W H$Chec k2C!P(Get@t ("Frs" @upCd`"Load81) F3.e aqkfk7uA($oe 8P0NH.'RA * i,E!T(,)seIZ.CBt - 1 To 0 Step -1 @ If (i).CaptionT@3R= ÄSe(t LI= 'Verweis aufnt ex hinzuf`@"Z*.Addݠ u`lC?,*-vbaruSBLClick" & vbCrqE-ATStatus e8WindPowsr@se g lesRGA@.Check@KCar(Gett`("Fr s" @upLoad_1)'Ist*angehaQ`G-> n` n UkrkKe*A8TFY8Xa. .(dVoFq0Aoh.?gs< ): i~,Eau9set a8 e$