аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_3џџџџџџџџџџџџс__SRP_0џџџџџџџџ __SRP_1џџџџџџџџџџџџ Дџџџџџџџџџџџџўџџџ”џџџџџџџџџџџџўџџџgџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ@є pќШ,VBA_ProjectџџџџpyРXђљШ@є pќШVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ ШXђљШ@ЋPнoќШўџџџ§џџџ 1<ўџџџ !X#$%&'()*+,-ўџџџ/02?3456789:;=ўџџџ>A@BCDEFGHIJKLMNOPQRSTUVWўџџџYZ[ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?YABCDEўџџџGўџџџIJMLўџџџNOPўџџџRSTUVWXўџџџZ[\]^_`abўџџџdefghijklmnoўџџџqrstuvwxyz{|}~ўџџџ€ac`ЙЕ˜–NН—ЙЇЏŽID="{00000000-0000-0000-0000-000000000000}" Document=ThisDrawing/&H00000000 BaseClass=rename Module=run_rename HelpFile="" Name="VOX_rename" HelpContextID="0" Description="Umbenenne von Layern und Blіcken" VersionCompatible32="393222000" CMG="F8FA54A258A258A65CA65C" DPB="D6D47A5E86E279FF79FF86017AFF3AF0AD0D083EE3A14C77022F16432A739A92707F63A7A2002E" GC="B4B618BC289B299B2renamename 0ЁЩXђљШ@SнoќШPROJECTwmџџџџџџџџџџџџK\PROJECTџџџџџџџџџџџџcPROJECTlkџџџџ99B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=66, 66, 1000, 711, rename=88, 88, 835, 733, Z, 22, 22, 1076, 787, C run_rename=110, 110, 857, 755, enamerenamerun_renrU€€€€~~~~~~~q aџџџџџџџџ  џџџџ  Umbenenne von Layern und Blіcken aљ aб aA( a‘8fџџџџџџџџџџџџQЪo џџџџHЌCompObjџџџџ џџџџFaVBFrameџџџџџџџџџџџџ@LThisDrawingџџџџ”аrenameџџџџ.тKrun_renameџџџџџџџџџџџџpЋ_VBA_PROJECTџџџџџџџџџџџџDdirџџџџџџџџџџџџc__SRP_4 џџџџ”__SRP_5џџџџџџџџ‹g__SRP_2џџџџ"” a бH щq XKeyCodeShiftButtonXYlayerblock ё9h;РФ@‚:Ш@СШ“K*mџџџџrU€€€~~~~~~~~~~~~~~~H  !KšюDNŸџ.`žzэ@ фџџџџƒŠa бџџџџ‰џџЙƒ€a Б џџџџ I ™ Щ ё ! Q y Љ б ) Y  џџйџџџџџџџџџџџџџџџџџџџџёбё щ ThisDrawingrename run_rename VOX_renameяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 1џџџџ YСРaE…ьє1F› чм@uЩ=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlbAutoCAD )џџџџQйа0РFC:\WINDOWS\system32\stdole2.tlbstdole rename_btn IџџџџqЙрс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms aa‰б№ЗŒ*аТћMЏ?.иеМK 2C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\VBE\MSForms.exd AaiбЖ№žЦrћ‹IЁђ%1 zїк‘}ЂЯlБGН@ШЊ&Ќ”П…Я4$і^BНМJŽR!ЅЩHљхb8{K›ŽјЗœ›юЙЁЕЖЂO†uЭU7pьђ"žŒ—АдЮП-Њ?@аLabel1!ш-ЌЂ6Я€SЊ` њ 9џџџџџџџџбLabel2С{lЏЮŸFЊWJO switch_btnoff_btnSПKšFN‹НЊ>;) AcFocusCtrl1в‹BьЮž Њ`ѓaltnameШ[qJ—І eР‹UserFormД;ШzPE‹vющЅW F3Dynamic  џџџџџџџџA neuname 88, ,,  $(altname_KeyDownp#А‚МЕЯ Щtaltname_MouseDownneuname_KeyDownneuname_MouseDownrename_btn_Click off_btn_Clickswitch_btn_Clickneuname_Change ExistsLayer ExistsBlockUserForm_Initializecheck_4_selectUserForm_KeyDown ,,48i џџhЄi trl1.keepfocб  layer 6Layername existiert bereits 6Blockname existiert bereits Layer umbenennen Block umbenennen Umbenennen Aus alter Layername neuer Layername alter Blockname neuer Blockname DLayer kann nicht umbenannt werden!СYl†ЯЋ|ЊРЯФYl†ЯЋ|ЊРЯYjЖє AЖ—ˆk,_ЅъVr„HОIqќЭђ•ЛЋzОyL€$ыjђq#wVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} rename Caption = "Layer umbenennen" ClientHeight = 1290 ClientLeft = 45 ClientTop = 330 ClientWidth = 5520 ShowModal = 0 'False StartUpPosition = 1 'Fenstermitte TypeInfoVer = 21 End 0* pH‚dф VOX_rena me Layer -> Block GRA~1\GEMEIN~1\MICROS~1\§В€0* pH‚dф VOX_rena me stŠdylW h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\ƒ22.tlb#OLE AutomatiŒon0€MSForms>„SFF"rs3€ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Micr@osoft ‚: €^ Object Libraryш/;D1РФ@‚:Ш@СШ@00}#0Т@#Р €ž50Ѓ € …РA812A8CB7-C2D0-4DFB-AF3F-2ED8D505BC4Bˆ6DOKUME~1\ADMINIALOKALATemp\VBE\с„T.exd <Р!€с.E р….`ŒM ДEПКТ*– @ ThisDrawingG@isDr@ЎwiQ@Ќg 2 Q€HB1‚Ў™АB,B Ј…I"B+B‚ВUƒоG‚Вr‚ЦaРŽeЗ€КC2NЯЛ@хiЭ›у (Њ~rDun„~G rzСt_ Az%+26ЏaЏЊ9!шborms 2.0 Object Library *Ь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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.‚ƒ„…†‡ˆ‰ŠўџџџŒўџџџŽ‘’“ўџџџ•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtlb#AutoCAD 2007 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{812A8CB7-C2D0-4DFB-AF3F-2ED8D505BC4B}#2.0#0#C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџ@Umbenenne von Layern und BlіckenџџПз#Jџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ*–ThisDrawing0U4a23d7c4џџThisDrawingџџ…Iџџџџ™џџ rename0x4a23d9b6џџ renameџџ›џџџџЛ@џџrun_rename0P4a23d7bfџџrun_renameџџЊ90aџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр[юю!YM›KN­œѕЬЅџџџџKШ†›ѓЉ@ЈаŸu&РMiџџџџ~‰нbw.hJЗТоCcіZџџџџџџџџ0€acџќ2Д€џTrue AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# Ќ(VOX_renamepйstdole“` MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйAcadDocument_SelectionChanged> Œ(џrenameB+check_4_select€р dialogtexteД„ layerexist“Ё blockexistš^ layertitleсв blocktitleш renamebutton(r offbutton4 oldlayername"š newlayernamepH oldblocknameR newblocknameё layernamefixЎн typeswitchb!txt†лrename_btn_ClickŠtrenlayid AcadLayerз Layers‚йaltnameЊlValueфKneunameU…ControlTipText8зrenblo€0 AcadBlockяЗBlocksг BackColorоƒ rename_btn>СEnabledлЊoff_btn/n AcFocusCtrl1Fў keepfocus8К off_btn_ClickYДLayerOn  ApplicationЅ*Updateвќswitch_btn_Click,jVisibleЖгCaptionxLabel1,Label2Ž, switch_btnšыneuname_ChangeІ% ExistsLayer.o ExistsBlocklayerКЦUCase5 n1L^block“qUserForm_Initialize5css'_AcadSelectionSetЫЩPickfirstSelectionSetggCount0vItemзzLocked  ObjectNameуФErroŠClearуЭ run_rename")Showѕ AcadDocumentZUserFormN€џClickŠу€џChangeЃЧ €џџџInitializeгN€џSelectionChanged^Х _B_var_UCaseaЮ €џџџ_B_var_Setaltname_Change”altname_MouseDownЈˆButtonкцShiftфыXoYl €џMouseDownsЦUserForm_MouseDownfО ReturnIntegerх‚altname_KeyDown;КKeyCodeэ˜neuname_KeyDownH€џKeyDown.aUserForm_KeyDownA_neuname_MouseDownќdswitch_btn_KeyDown:џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ ‘ џџџџџџ џџџџџџџџџџџџџџџџџџ 6<4џџ<8џџ<<џџ<@џџDџFXџ4џ 4џl Mhџ@$џ $џћ36Xџ4џ$џŽєџpzџџ/ Tџў‹Hџ#@џ/ hЄ0LџHџTџ$DџPџXџ4џ$џџјЄl Mhџ@Xџ Xџ`§' 5Xџ!Pџ$ $"QPџ[LџTџўˆHџ&›?DџTџ \&>DџFXџ4џ 4џl Mhџ@$џ $џћ36Xџ4џ$џŽєџpzџџ/ Tџў‹Hџ&@џ/ hЄ0LџHџTџ$DџPџXџ4џ$џџX$ §‘4 8qxџ Txџ Txџ Txџ Txџ Txџ Txџ Txџ Txџ  Txџ  Txџ$  Txџ( ѕqxџ@§“@ $ ,€ŠPdџ! Єdџ @dџŠTdџ! Јdџ @dџŠHdџ! dџ 0dџŠLdџ! œdџ 0dџА$$( dџ„8Kџџtџ$ 8ltџ=xџtџpџxџ lpџѕл-Š4ћ0јR\џtџpџxџ lpџѕЎ§i`џ%xџ tџ X>\џFHџXџ! ”Xџ €)tџXџ5HџR\џtџpџxџ lpџѕЎ§i`џ%xџ tџ X>\џFHџXџ! ˜Xџ €)tџXџ5Hџ"єdєdѓџ^ tџ! ”tџ 0tџєtџ! tџ 8tџєџtџ! œtџ 8tџD\џtџ(`џ%xџ tџ X>\џFHџ8џ 8џ:(џ]ћ3tџ6Hџ8џНŠ`tџ! ”tџ ,tџєџtџ! ”tџ єtџѓŠ8tџ! ”tџ ,tџєtџ! ”tџ єtџ(B\џtџpџxџ lpџѕЎ§i`џ%xџ tџ l\џћ0/\џtџWItџpџxџ lpџѕЎ§i`џ%xџ tџWHџXџ! ”Xџ €)tџXџ5HџItџpџxџ lpџѕЎ§i`џ%xџ tџWHџXџ! ˜Xџ €)tџXџ5Hџ"єdєdѓџ^ tџ! ”tџ 0tџєtџ! ”tџ єtџŠ<tџ! ”tџ ,tџєtџ! tџ 8tџєџtџ! œtџ 8tџ&$:`џNHџHџtџ! ”tџ €tџ5Hџ$:`џNHџHџtџ! ˜tџ €tџ5Hџ$ѓџѓџѓџ^ tџ! ”tџ 0tџtџ! ”tџ ,tџєџtџ! ”tџ єtџєtџ! tџ 8tџєtџ! œtџ 8tџќ$:`џNHџHџtџ! ”tџ €tџ5Hџ$:`џNHџHџtџ! ˜tџ €tџ5Hџ$ѓџѓџѓџ^ tџ! ”tџ 0tџtџ! ”tџ ,tџєџtџ! ”tџ єtџєtџ! tџ 8tџєtџ! œtџ 8tџ tџtџHtџ xџ Dc`џ%tџ!  tџў›!tџd8(xџ$\џtџXџHџ8џџ0 ќЦ№  ||„„ltp„  €  €w€ џџџџШ€ џџџџџџџџ@Эџџx–Р^ђр"Layername existiert bereits"*ђц›$ %Е@*–›џџˆЖџџџџџџџџŒџџк‘}ЂЯlБGН@ШЊ&Ќ”П…Я4$і^BНМJŽR!ЅЩHљхb8{K›ŽјЗœ›юЙЁЕЖЂO†uЭU7pьђџџџџџџџџџџџџxЙЁЕЖЂO†uЭU7pьђк‘}ЂЯlБGН@ШЊ&Ќ”ПџџR( R,,џџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€SPџџџџSџџџџSџџџџSџџџџHџџ џџ< џџJ џџ€1”џџ<ˆџџ<$џџLџџџџPџџџџLџџџџPџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџџџџџџџџџLџџџџLџџџџLџџџџPџџџџLџџџџš"џџџџLџџџџLџџџџLџџџџ>"џџџџџџџџ<Œџџ<џџ<”џџ<˜џџ<œџџ< џџ<Єџџ<Јџџ<Ќџџ<Аџџ<Дџџ<Иџџ<Мџџ<Рџџ<Фџџ<Шџџ<Ьџџ<аџџ<дџџ<иџџ<мџџ<рџџ<фџџ<шџџ<ьџџ<№џџ<єџџ<јџџ<ќџџ<џџџџџџД_š0{2434CF85-F60F-425E-BDBC-904A8E5221A5}{E5F948C9-3862-4B7B-9B8E-F88FB79C9BEE}ˆ€ „;џџџџxџџџXh€0џџh€ Hџџauh€"`џџndh€$x џџdfh€&џџvoh€(ЈџџHeh€*Рџџ(Qh€,иџџ vh€.№ џџh€0$$џџјh€2OO , €UmbenennenE{w€ @ЅTahomaP€H€,I,5€ЅTahomaP€H€,I,5€ЅTahomaP (ThisDrawingThisDrawingrenamerenamerun_renamerun_renameџџџFАAttribute VB_Name = "run€alter Layername~ Ї5€ЅTahomaP (€neuer Layername~ Ї5€ЅTahomaP(€-> Blockq{u€ЅTahomack,€џџџџ((џџtoƒўџџџџџџџHџџџџџџџџџџџџџџ€%@%% „IџџџџTџџџx% „;џџџџxџџџ˜%iƒўџџџџџџџџџџџџџџџџџ  % % % Z8`џџџџџџџџџџџџ<џJџџџџџџџџШ5”iƒўџџџџџџџџџџџџџџџџџ bx`џџџџџџџџXhџkџџџџџџџџЬ=” nИ`џџџџџџџџX bџkџџџџџџџџаP”,pX`џџџџџџџџјџkј џџдlМiƒtџџџџ џџџџ€iƒўџџџџџџџџџ џџџџџџ „yџџџџTџџџP%,rј `џџџџџџџџ@џk˜ џџи tМiƒzџџџџ џџџџИ€iƒўџџџџџџџџџ џџџџџџ „yџџџџTџџџ№% |8 `џџџџџџџџ dџkџџџџџџџџм $$|” № `џџџџџџџџ  џoџџџџџџџџА 33 ” „џџџџxџџџ%€ўџШџџРџџ˜џџџџџџџџ%ўџџџџџџџџџ№џџШџџџџџџџџ %b€4 4џџџџ@џџџџџџџџ"€6џџџџ8џџP@џџџџџџџџџџџџ46fhjPTџџ %aƒЈџџџџ џџe„ %‚ џџџџўџџџИџџўџџџџџџџџџџџ€% 8и`џџџџџџџџИ4џkџџџџџџџџФ"” КР`џџџџџџџџЈTџk`eМœ Ж `џџџџџџџџPTџk€eДœ!ƒЙџџџџ џџРА„џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџ РР`џџџџџџџџXџkheРœaƒЊџџџџџџe „ aƒЌџџџџџџe€„џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџ!ƒЙџџџџ џџШ€„џџџџaƒЊџџџџџџџџџџ„@ % %aƒЊџџџџџџџџџџ„џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџ Оџџџџ `џџџџџџџџџџџџ `eр гœA% %iƒўџџџџџџџџџџџџџџџџџ џџџџ!ƒЙџџџџџџџџаи„џџџџaƒЎџџџџџџeџџџџ„iƒўџџџџџџџџџџџџџџџџџ џџўџџџџџxџџџ0`џџџџaƒЊџџџџџџџџџџџџ„џџџџiƒўџџџџџџџџџџџџџџџџџ  І`џџџџџџџџPXџkX eИœaƒЈџџџџ џџex „АaƒЊџџџџџџe˜ „џџџџaƒЌџџџџџџeИ „џџџџaƒЎџџџџџџeџџџџ„џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџ@ Рџџџџџџџџ8џџџџџџџџџџџџ Р№ИxXџџџџџџџџџџџџиџџџџјј8( `џџџџРџџџџџџ@ўџџџџџhџџџ џџ џџџџ@ўџџџџџdџџџ џџ @HИјјџџџџ4D@@PTv ˆџџџџiƒўџџџџџџџџџџџџџџџџџ (џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџp џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџ  ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ @ И џџџџp џџџџX џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ џџџџ@ўџ  tџџџ џџ џџџџ@ўџџџџџpџџџџџ џџџџ@ўџш `џџџ џџ џџџџ@ўџџџџџ\џџџџџ 6P@ўџџџџџXџџџ џџ џџ@ўџа Hџџџ џџ џџ@ўџ 8џџџ џџ џџ@ўџџџџџ(џџџ џџ џџ@ўџџџџџџџџ џџ џџаpџџџџџџџџИ 6ŒVџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(џџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј џџџџџџџџ4Dp@6PTr@ўџџџџџxџџџ џџ џџ@ўџџџџџhџџџ џџ џџ@ўџџџџџdџџџџџ џџ@ўџџџџџbџџџ џџ џџhpџџџџџџ џџ џџ`ppzџџџ џџџџџџџџџџvHџџO џџ џџ@ўџџџџџhџџџ џџ јШј „Йџџџџxџџџ`€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџ8џџџџˆџџџџџџџџА˜џџџџИџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ а @ўџ Xџџџ џџ џџџџ@ўџџџџџPџџџ џџ џџџџ@ўџрLџџџ џџ џџџџ@ўџџџџџHџџO џџ јhрџџ@ўџџџџџDџџџџџ џџ@ўџ84џџџ џџ џџ@ўџP$џџџ џџ џџ@ўџџџџџџџџ џџ џџџџџџџџрџџџџџџџџџџVџџџџ№џџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџРhџџџ џџ џџџџ@ўџџџџџXџџџ џџ џџџџ „Йџџџџxџџџ € „Йџџџџxџџџˆ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџ€џџџџџџџџ џџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџpџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXHџџџџиџџ џџџџџџV№@`џџџџџ@ўџџџџџtџџџ џџ џџ@ўџ dџџџ џџ џџ@ўџџџџџTџџџ џџ `џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјpАџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4@D6@PTџџ@ўџШtџџџ џџ џџџџџџџџ „ЙџџџџxџџџЈ€џџџџP @ўџџџџџdџџџ џџ №@ўџр`џџџ џџ і@ўџџџџџ\џџџ џџ ќ@ўџџџџџXџџџџџ XV@ўџ@Dџџџ џџ @ўџџџџџ4џџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџ4T6fhjlџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ H@ўџџџџџhџџџ џџ Nџџџџџџџџџџџџ˜џџџџџџџџџџџџјџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџрx`џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј0hrџџџџџџ џџ|`rрzџџџ џџ‚ ј†ЈрŠџџџџvŽ@ўџџџџџhџџџ џџ –@ўџјXџџџ џџ œ@ўџџџџџPџџџ џџ Ђ@ўџИLџџџ џџ ЈаЌ@ўџџџџџHџџO џџ В@ИЖ@ўџџџџџDџџџџџ М@ўџ4џџџ џџ Т@ўџ($џџџ џџ Ш@ўџџџџџџџџ џџ ЮџџџџИвџџџџџџџџџџџџџџџџx џџџџџџџџџџџџџџџџџџџџX џџџџИ џџџџџџџџ˜ џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџV§ўџ@ўџџџџџxџџџ џџ @ўџ8hџџџ џџ @ўџџџџџXџџџ џџ џџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџ0џџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „Йџџџџxџџџ8€@џџџџAus E{w€ @ЅTahomackР  Ш   } &у<k `ЙЕ˜–NН—ЙЇЏŽSПKšFN‹НЊ>;)9г№HЁJˆЦ\АX]хВ\ˆ (х € €AcFocusCtrl1{д(х €Drename_btnl1Ъ$х€4neunamekь O(ѕ€24altnamekь д(ѕ€2@Label1ekдд(ѕ€ 2@Label2ekдO(х € 8switch_btnl1ь Ъ$х€<off_btnk№Ъnnt werden"џџџџџџpџџX]@ђј]@ђ –X 4U,ЫЊЖDАч №jЦШKЇLIŽц#s\Ы AcadDocumentAcadDocument_SelectionChanged @ОЋ44рмlDЗcсэŒ/x!и`ф№пЭOuД@њ8&;в‹BьЮž Њ`ѓ 0ЦYl†ЯЋ|ЊРЯO,”яHЈ’AЗТ”Ц€ТdЁ $AcDbBlockReferenceName keepfocusVBE6.DLL бџџџџL ` бџџџџ € бџџџџ­  bPbЉCмMŸЦ…;ЙŸ˜ЈѓЎ\№DџџџџVGHI@ўџџџџџtџџџ џџ P@ўџ`dџџџ џџ V@ўџџџџџTџџџ џџ \џџџџр @( ј˜џџџџџџџџ№( Шџџџџџџџџџџџџ фАџџџџџџџџџџџџџџџџџџџџџџ8ј Пз#J*\R3*#d$*\Rffff*0x4a23d9b6(*\Rffff*0x4a23d9b6\0*\R1*#d8*\R1*#146*\R1*#172*\R1*#79*\R1*#79*\R1*#b0*\R1*#b6*\R1*#b5*\R1*#b6*\R1*#77*\R0*#19*\R1*#76ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R0*#f*\R0*#13ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#7a*\R1*#16e*\R1*#16e*\R1*#155$*\Rffff*0U4a23d7c4ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41п иdйhвlкpжtзxе|џџџџ€д„ўЪи€€&€,€,@€ p€ €А€а€ ш€ € (€ H€2h€ €Ј€А€ џџџџ" H(xИ€ џџџџ"ј(€ џџџџ" ( @€ џџџџ"(а€ џџџџј€ џџџџ" 8(X€&€*HЈ&.Ир€&и*H&.P`840B"h$hА(Ш€ џџџџ" а€&а*Hј" ((P,и€ џџџџ" ( @ P `p€Ј А Р ар№ (€ џџџџ"085P"`€   А$И и ш ј5"(H X hx$€   А Раир€ џџџџB ш№€!,N  PX€ џџџџB `h€x!€,N˜ Ша€ џџџџ"и р №$ ј$  H ` x    И а ш*  0€ 8€ (H€ (p€ $˜€ $Р€ ш€  € (( € (P € (x € (  € 2Ш €    0 @ P 0` € џџџџ"h €p x €    $RИ $Rр "  (  8 "DH p  €  ˜  Ј И Р 6BШ $I $I( "P  p €      А  $И  $Ш $и  ј      ( 8 @ H  $P  $` $p       А  Р а  и  ш  ј € џџџџ" Р € џџџџШ€ џџџџџџџџ@Эџџx–Р^ђр"Layername existiert bereits"et^ђ0р"Blockname existiert bereits"m.^ђHр"Layer umbenennen"^ђ`р"Block umbenennen"^ђxр "Umbenennen"^ђр"Aus"^ђЈр"alter Layername"^ђРр"neuer Layername"^ђир"alter Blockname"^ђ№р"neuer Blockname"^ђр#"Layer kann nicht umbenannt werden"џџџџџџpџџX]@ђј]@ђ  D!B :(рLayer umbenennendрBlockmodus aktivo– 6! D(F D!B H(рBlock umbenennenHo–@ 6!  D(Fkџџ˜З P(RрUmbennenen-Knopf ausD(З V(XрFocus zurќck auf AutoCADo–№oџџ0–и !^B@`рBildschirm aktualisierenЗ V(X`oџџр–8 4ЖlayerœЖblock'4З T(d 6!$'f 6!. h(f 6!0 j(fЖ-> Layer l(fdџџPЖlayer'4З T(d 6!"'f 6!* h(f 6!, j(fЖ-> Block l(fkџџрA@oџџа–x 4Жlayerœ D!B$pœЌџЌdЌd$@ D(N 6! D(FЗ P(RЗ T(RdџџHЌџЌџЌџ$@ D(NЖ D(FЗ P(RЗ T(Rkџџ№dџџш D!B$rœЌџЌdЌd$@ D(N 6!  D(FЗ P(RЗ T(Rdџџ€ЌџЌџЌџ$@ D(NЖ D(FЗ P(RЗ T(Rkџџ(kџџ oџџ–И t$v't]ђ8џ xў !>“ x!$v t$v›GЗ'pFzjџЧЈiџџ –X z$v'z]ђиџ xў !L“ x!$v z$v›GЗ'rFzjџЧ0iџџ(–јЖlayer'4 6ѕЖLayername existiert bereits9ЖBlockname existiert bereits9 ЖLayer umbenennen9"ЖBlock umbenennen9$Ж Umbenennen9&ЖAus9(Жalter Layername9*Жneuer Layername9,Жalter Blockname9.Жneuer Blockname90Ж"Layer kann nicht umbenannt werden!92qџџШрWith txtр" .layerexist = "layername exists"р" .blockexist = "llockname exists"р .layertitle = "rename Layer"р .blocktitle = "rename Block"р .renamebutton = "rename"р .offbutton = "off"р! .oldlayername = "old layername"р! .newlayername = "new layername"р! .oldblockname = "old blockname"р! .newblockname = "new blockname"р, .layernamefix = "layer cannot be renamed!"рEnd With 6!" (f 6!* h(f 6!, j(f 6!& P(f 6!( T(foџџ˜–8]ђxЩ€э !‚.~ ~!„Ќ œ 4Жlayerœ ~!„Ќ ~%†!t D(B ~!„Ќ ~%†!t @(BЌџЌdЌd$@ D(NЗ P(RЗ T(RЌ ~%†!t$vЖ0œ 6!2 D(FЗ D(ˆdџџh 6! D(FЗ D(ˆkџџ@dџџ8 ~!„Ќ ~%†!ŠЖAcDbBlockReferenceœ ~!„Ќ ~%†! D(B ~!„Ќ ~%†! @(BЌџЌdЌd$@ D(NЗ D(ˆ 6!  D(FЗ P(RЗ T(RdџџHЖ D(BЖ @(BЌџЌџЌџ$@ D(NЖ D(FЗ D(ˆЗ P(RЗ T(RkџџРkџџИdџџАЖ D(BЖ @(BЌџЌџЌџ$@ D(NЖ D(FЗ D(ˆЗ P(RЗ T(Rkџџ( ŒB@Ž ~B@ŽЗ V(Xoџџ№№( рDialogtexte zusammenfassen–РрUmbenennen geklickt 4ЖlayerœрLayermodus aktiv]ђрLayervariable erstellenэ @!B %>.:р0 und fќllen]ђ`рBlockvariable erstellenэ @!B %L.Hр1 und fќllen D!B @(Bр!Neuen Namen ins obere Feld setzenЌџЌdЌd$@ D(Nр&" Hintergrund rot (Layer existiert)З T(Rр Aus-Knopf ein]ђ€рLayervariable erstellenэ D!B %>.:р. und fќllenЗ :(\рLayer ausschaltenЗ V(XрFocus zurќck auf AutoCADЗ V(XрFocus zurќck auf AutoCADЗ V(XрFocus zurќck auf AutoCADoџџ0З V(XрFocus zurќck auf AutoCAD– oџџјЗ V(XрFocus zurќck auf AutoCADA@џџџџРџџџџ$ЖAttribute VB_Name = "renH" шBast0{2434CF85-F60F-425E-BDBC-904A8E5221A5}{E5F948C9-3862-4B7B-9B8E-F88FB79@C9BEE} ШG lobalˆSpacoFalse ŠCreatablPredec$laIdбTru BExpose0Templa€teDeriv–Customiz‹DOption 0licit P€!€% Type dialogt$exЙ'Dzusammenfassen layerexi€st As SдРng '"L а ‚ iert bits€І bаlockB 1BtitUN uРmbenen€‡пЯ ‚Э “€˜tEI"UЫoff Auq5old(0Ia`lter ЦD‚'nФew neu @џBLT†ME C Ц fixOp kan€n nichtƒL€t werdebnРEndŒ‡t€switchMHxB‰ˆ— GSub @JС8_KeyDown(ByVal  CodeA MSForms.ReturnInteger,Т уShif" ф)@rcFocusCtrl1.ke˜epfСФm '‚ zurќck auf AutoрCAD a  MouseHBu.tdG|eX$inшgleEYG??пL+ ?_+_+_+ !™_+ўbM+_+д=_+Ё-_+W+жBˆ_btn_‚C Њk() 'g‡0 gekЁрЌIf hdриp" Then 'B„modus aktivс!ЌDim Р рСC0AcadЂ„variBЛersteDllЃВSete=@ isDraw`MR.Bs(Фl.€ku’e@ u yfќХ§У .Dэф2ƒФЈaEControl0TipT€Ч ltx—#”‡тЖ ЏTer џИq+Ё‹ЂI 9 џRЕ R Чœ ЂЖ ^ ‚I №VBcheck_4_selK†?F C# ЦfixЧDkann nichtƒG€t werd8en!СНAm њ'o'Noч"4Ё ћ‚f6lСbтŠbІ0џу-C%рІ ‚m4у„ 4€Х,4р, їІd4wnэ3сf1ячF!/р mfЄ3Љт cР1oa cda2'‡2Ѓ.Ca:p"А=kkт% РLabel1 `›Ц D2LI У p_btnЬ`   +p check_4_sel ecЄЊ€ˆ 'a‰ЫСˆ ЁСssMЅСS€ЭSeР € On ErrрТ€Resume ƒЕд Р  =€‡ФPickfirst­рХss.Co€unt > 0"ЄЯЃЎ 1™( €mZ`.Valu@ Item(F - 1ц)ƒ2ƒ Р_KЅ BackCol@= RGB(2€55, 100‚ „Ш ЄE‚1EnabledрNFalsўeEe5Ч!рЅрѓ…0$Aщ"0"  &ControрlTipTPs А^пc с-ѕ'Lsв §щEˆ ппђDПЖѓšб3Ifг‰0еЧpг ЂObjа*„A "AcDbТGRDef№inceпuпп!ё' !.O$ТŒЗ7/!/!0&!/ jпzђJ|hAE_&Qž| &“•4"џ№SЕ Йˆ2@Я?ь*Oe.*" џПР! П Š(№ЅC)')e эЏ3!oo5џdЕ;%яЯEЬEOof'`[.CрРrБ ё6ЕAcFoc usCtrpkkeјepfсРs#$c5ИЁcfЈKeyDo wn(By` аCodeсcMSaЊs.ReturnInteger,‚ sShiftQ?tRŸšCСДџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\D $ А$е 4Xdф8ЙЧ“*–…Iџџ#ˆЖџџџџџџџџ<џџЅъVr„HОIqќЭђ•ЛЋzОyL€$ыjђq#wU,ЫЊЖDАч №jџџџџџџџџџџџџxwU,ЫЊЖDАч №jЅъVr„HОIqќЭђџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџš"џџџџ<џџ<џџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџ  џџџџ`џџџџџџџџр|џkџџџџџџџџŒ”€ўџџџџџџџhџџ@џџџџџџџџ%џџџџƒўџџџџџџџ џџџџџџџџџџџџџџ %‚ џџџџўџџџаџџўџџџџџџџџџџџ %џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџ№ eџџџџџџџџ џџџџџџџџ@џџџџџџџџџџџџџџџџ@џџџџџџџџџџџџЈx@ŒџџџџџџџџџџџџџџџџџџџџџџpПз#J$*\Rffff*0U4a23d7c4$*\Rffff*0x4a23d9b6пџџџџ4ўЪ"6 € џџџџџџџџP–oџџ` B@р%bei jedem Wechsel der aktiven Auswahlcџџџџ0џџџџ3БAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2P€€ Sub AcadDocument_SelectionChanged(@) ren€Ј.check_4_s 'bei j€`m Wech€ der aktFn Auswahl End3