аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБ ThisDrawingModul1 ACADProjectяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 9Ё`…Ž§;цH“A<‹/`k=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16enu.tlbAutoCAD џџџџ1Йp0РFC:\WINDOWS\System32\stdole2.tlbstdole )џџџџQ™€™9<†(N˜Uю0Щќ[ŠfœЦХ9DEŘЉW|ŒЈйuŽ!=в…Ф  Ц&Q‡[ЯЗJІ‰H„iЧжq ьL)мйKБBx"Ёвk AcadDocument @RemoveDimTextMaskRemoveDimTextMask2 55IєœQL‹ˆbД-ŸГЭ2yп:NсMЙОЙ @лD TгВЂ7YAЏT$aX, 0ACAD_DSTYLE_DIMTEXT_FILLVBE6.DLL Ёџџџџ3 ЈRemoveTextMaskFromDimensionsRemoveTextMaskFromDimStyleeБ€0* pH‚dф ACADProject8@е = Root Entryџџџџџџџџу\!>jЦ,VBA_Projectџџџџ `"xiЦу\!>jЦVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ-xiЦ мzCџiЦ §џџџ ўџџџ ўџџџўџџџ !"#$%&'ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ ­ !"#$ўџџџ&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOP^RSUVWXYZ[\]t_`abcdefghijkўџџџmnopqrsyuvwўџџџўџџџz{|}~‰‡acadID="{FC880513-6310-4CC0-B40C-0C338F382D4D}" Document=ThisDrawing/&H00000000 Module=Modul1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="828039F40CF80CF80CF80CF8" DPB="5153EA0FEB0FEB0F" GC="20229BDC9CDC9C23" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Modul1=66, 87, 623, 439, Z 439, Z Z PROJECTwmџџџџџџџџџџџџ;PROJECTџџџџ”ThisDrawingџџџџ џџџџl’__SRP_4џџџџџџџџџџџџ‚ThisDrawingThisDrawingModul1Modul1rU€€€€~} џџџџџџџџџџџџ џџџџ бЉp“K*mџџџџrU€€€€~~~~~~~~~~^ ё]Г 4ї›NŠ vš€ДЮ  фџџџџƒŠa љџџџџџџЙџџџџџџџџџџџџџџџџџџџџџџйБб__SRP_5 џџџџ€ьModul1 џџџџџџџџe_VBA_PROJECTџџџџџџџџџџџџ%Mdirџџџџџџџџџџџџi__SRP_0 џџџџ ў__SRP_1џџџџџџџџ n__SRP_3 џџџџTN__SRP_2џџџџџџџџџџџџQt  рЮПE( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE AutomatXion0tD‚Ј–xThisDrawi ngGTJisDrawinЈg 2#(H‚1‚ŒвX‚ ,‚@0TС"‚+‚‚”M@odul1G‚”Mб€’du€”1?ЃMƒ2Ž7ш71!ШТien\Autodesk Shared\acЬ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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation  џџџџџџџџрЮПE џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ–ThisDrawing7045bfb8d8џџThisDrawingџџ0Свџџ Modul1<f45bfcedbџџ Modul1џџ1шџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„a §Xи@‹н6ЫЖЦwџџџџrЦ0№дЂB’Ђœ‰№†џџџџџџџџH€^pџd2 €џAs=€џDimC€џEachH€џendifO€џExitT€џFor_€џIfb€џIn€џPreserve›€џReDimЄ€џSetЏ€џsubВ€џThenГ€џToЗ€џUBoundН€џwendО€џWhileAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“` ThisDrawingЙ5 €џџџ_EvaluateйModul1ЭRemoveDimTextMaskЗnMyBlockš’ AcadBlockяЗMyEntкu AcadEntityІiMyMTextЕв AcadMText јBlocksг ObjectNameуФBackgroundFillWЉRegen ўacAllViewports, AcadDocumentZMsgBox—RTest4ЋMyDimСo €џAcadDimensionowSSet/.€џAcadSelectionSetЫЩ €џџџ_B_var_Set €џSelectionSetsгAddїr€џacSelectionSetAll.Т FilterTypeыв FilterTyp•FilterTyцИFilterTˆFilterД;Filte”ZFilt4№FiluŽFi<]FTypeiFDatahC €џџџ_B_var_forjL€џGetXData—xdataOutpNxtypeOuttРxdataouУxdataoŸ{xdataм…xdatјЙxdaѓэXDб_xoSelectacSelectionSetAll’щ€џDeleteИx€џџџ_B_var_AcadDimrU€€€ 01Yџџџџ 4ЉaбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ@nбСˆ Б 1YYС™I1 Y 0 ќЦ  @D єѕ\џЂ:,џѕ@џќА.$џ(џ$ Ь(џ ,l$џ=tџ)(џ$џ)@џMєў %\џMџ %'џ%',џ%ѕtџ Hѓщѕ ўЂ:,џѕМўќАѓ.ѕ ўЂ(,џxѕМўRѓ.ѕ ўЂ(,џѕМўRltџxџўˆ˜ў7МўMџ % ўM,џ %xџ ( фўўЭдўўЭxџ $ дў^ ѕЬ( xџў‹˜ўт tџ XфDша ˜ўфўxџдў@џension K€џSetXDataѕItemзz€џџџSelec ЊVarTypeЏp €џџџ_B_var_IfPђvbEmptyЫœDataType%?Data;xdataInоxtypeInћчxdataI™{ €џџџ_B_var_xdataIBіRemoveDimTextMask2!ц MyDimStyle)œ €џAcadDimStyle€W €џDimStyleseВxdatout~di` €џџџ_B_var_uboundлd€џџџ_B_var_xdataInb€џџџ_B_var_xtypeInўлjakb €џџџ_B_var_redim•ВxtypeнJ €џџџ_B_var_xtypeЪ €џџџ_B_var_WhileIfRemoveTextMaskFromDimStylesxРRemoveTextMaskFromDimensionsа_removetextmaskfromЅ”€џџџ_B_var_removetextmaskfromАe €џApplicationЅ*€џUpdateвќ€џџџ_B_var_xtypeOut§—€џџџ_B_var_xdataOutљ% €џџџ_B_var_SSet›“џџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџ $€Ј–0Сџџ#ˆЖџџ<фjxЬЈ–0Сџџ#ˆЖџџџџџџџџ<џџfœЦХ9DEŘЉW|ŒЈйuŽ!=в…Ф  Ц&Q‡[ЯЗJІ‰H„iЧжqџџџџџџџџџџџџxQ‡[ЯЗJІ‰H„iЧжqfœЦХ9DEŘЉW|ŒЈџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-08000’ \џ’ ў’Мў’ tџ(џ$џf€€€ џџџџACAD_DSTYLE_DIMTEXT_FILLFˆ9A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@||џџџџџџџџџџџџџџџџџџџџџџ0рЮПE $*\Rffff*7045bfb8d8пџџџџ4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€€~| бЉ)@ ™СrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$б`§џџџџџџџџџџџnќЦdœp  fџџџџџџџџџџџџџџџџџџX` $ў !“Жџ $ўШ%4kџџџџџџџџX`*#e*\R1*#14e*\R1*#1С A q™СЙўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Xh ˆ ˜t< lџ 5lџ lџ 5lџhџ$ l hџ €hџt<$ hџlџјˆƒ„…†ўџџџўџџџŽŠ‹Œўџџџ‘’“”•–—˜™š›œžўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЎЏxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј єѕLџЂ:џ ѕ0џќА.џ џ$ Ь џ , lџ= dџ)џџ)0џMфў %LџMєў %'џ%'џ%ѕdџ H ѓщѕўЂ:џѕЌўќАldџhџўˆˆўцдўўЭФўўЭhџ $ЌўMџ %ўMџ %hџ ( hџў‹ˆўІ dџ X §•Tєјьд lџˆўдўhџФў0џ02etT’ mLџatZ:’PўT\SI-’eЌўat.dv’ SdџџџD ѓщѕ4џЂ: џѕPџќА!џ$ 0Qџ[џhџўˆџ—єўўЭџўЭhџ $єў^ѕЬˆPџMфў %4џM џ %hџ ( hџў‹џB§•D˜ ”|lџџџєўџhџ4џnulPa’DPџUPORT’ IџaaџaaЌ.Ќ+ˆFЌЌ+† ˆ † 4B@v+†Ќ.Ќ+ˆFЌxЌ+†џџџџxџџџџ0џџџџКВAttribute VB_Name = "Modul1" Sub RemoveDimTextMask() 0 MyBlock As Acad :EntЃ6ity 8MW For EachcIn ThisDrawаing.ks+”If InStr((1,2.ж, "*D") <>d 0@en2MрsgBoxŠ ˆCŸf€Bz AMy€.ObjectЊаAcDbo"?ёSetBФ#0My.BackgroundFill€FalseEnd Iњf‹ Nш€6€*ЧЩ 3Фˆs C I`Regen acAllViewpor2tФc AР сƒ’TestQСФŽС€ensioФgAЦSE„Sel€T€Рƒ"CС FType(0)С’Int…€%rData€VariantуCЦ= 0D РУDIMENSIOоN€ФC$Т%=sGЃ‰'s.Add("й@&s"DЬA .УL3 O, A", žFAƒC8xdР0мOuТвЪ0t@?сЬIn(2‚HSЦ;*(cxA @,= Р1001: BE"ACAD_DS TYLE_`&TE€XT_FILLР&aVх1)рT107Ц0чB376 П BD4a FЇ„Ÿa! sA-cЁMyРЉ /tXс* ,ХПФ] уЃb6DРNt jцYdeHclaIdАTru BExposeTempla€teDeri<фjxЬЈ–0Сџџ#ˆЖџџsqNМ“чЏЇJМј ЭЖrе DIMENSION ALLDIMSЖдlqoBИ UЏ`Шв)gЏсHB‘Mђ р^„gтсЊXЈO­<ўŒŠ…ЦcUЏ`Шв)gЏсHB‘Mђ р^„gтсЊXЈO­<ўŒŠ…Цc№D дШџџџџN тЈ–1џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџ 0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@%@.8–ШoАA@ЌA@Ў––piџџ№]ђ(]ђ@ Bаа V X 8B@H]ЮЌђа]ЮЌђ˜ЌЌ+Vџ 4ў 8“+]ђЖ DIMENSIONЌ+Xџ 4ўШ]ђxџџџџ 8B@r]ЮЌђ€џџџџџџР]ЮЌђ˜ ЌщЌ+ˆFЖACAD_DSTYLE_DIMTEXT_FILLЌ+† !ДB@Ж ˆ † 4B@v+†џџџџxџџџџ0]ђ@]ЮЌђ`]ЮЌђиЌщЌ+ˆT_џ ў !”“\HЖACAD_DSTYLE_DIMTEXT_FILL ` ^ 4B@\ jЖACAD_DSTYLE_DIMTEXT_FILLЌ+†kiџџџџџџџџџџ8 ЖACAD_DSTYLE_DIMTEXT_FILL ` ^ B@\ ^$| €œ =X ˆ † B@vMTEXT_џ ўШ†xџџџџАџџџџ(џџџџ0џџџџXџџџџџџџџ8џџџџyВAttribute VB_Name = "Modul1" Sub RemoveDimTextMask() <6FromTStyles@РensionB'ThisDrawing.Applicat#.Update 0End ‘ №FuncŸ€ Љ— My Asр Acad…Bƒ € x€:aIn(0)Varia„nttype€Integerƒx= 1001 +ДACAD_DSTYLE_DIMTEXT_0FILLН‡АFo@r Each ^Iќn ‰—bЈ‡‡y.GetXDatHa "–<, B.O|ut@+@ƒ.KIдf ET@A(‚J€ ) <> vbEmpty€'enЧ нЬ!SХ!DI„IH {єIfMNР ШA‚†џХƒa‡DŸ”‡H† !…†S.…SeleB їРCЧ FТEƒŽЪ†FA`б•УЦ= 0D @Œ@‰ENSIМON€ˆC$Т%=Š„‰'s.Add("ШALL€S"Фя ".ƒ acщAl˜l, !b, "џЃ ЃСЅ>с!гc@BŽьl(cDG)l:зivŸkЧYF l `kA#ŸЃ Ї!BiПhL"Zџс D[  У7ƒqП“`У^уЃB7DPЃCсek` K= “ Os.A€dd("ALL,S"„б. a‚c‰All, ёТ", F CCСBтx€^aOuТCŠ1Юt@ЬInBF7† QУx= Р1001: ‚$…"ACAD_DS TYLE_Р=TE€XT_FILL@NЈСCFor Eˆach„In FУG AТ‡.GetЪXAD —, ‚'@@џ@JƒnƒD2D ьIn CNжУ%I§‚nD Пƒ(РEНCСџлРƒс”РК 1т "4сЃ-@bS@Ц80ў1 Ÿ8ˆ8C 8ƒ 8џЩa…ФŠc&Ёaт1Тљ;L"р4Є[$6 <ууa 'If €""bР) <> vb Empty ueD=?сaшœCЁ!>If?-FТУЃЉC УЃщ!Applˆica!Ў.Up 9 I эHD8