аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA_Project_Version(џџџџџџџџџџџџaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфˆў и TD]џџ#ˆЖџџџџџџџџ<џџŠlbѓЂПH‚? Ž§С•ЛЋzОyL€$ыjђq#ђЙIъŽ(2KИ• Э8ы[џџџџџџџџџџџџxђЙIъŽ(2KИ• Э8ы[ŠlbѓЂПH‚? Ž§СџџMEџџџџџџџџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџSџџџџS”џџџџ ”џџ   $>"џџџџLџџџџLџџџџPџџџџLџџџџLџџџџLRoot EntryџџџџџџџџpІсLj‹ШVBA_Projectџџџџ  9>(j‹ШpІсLj‹ШVBAџџџџџџџџ  9>(j‹Ш 9>(j‹ШPROJECTwmџџџџџџџџџџџџ&ўџџџ§џџџўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџ|ThisDrawingџџџџџџџџ__SRP_2 џџџџџџџџUд__SRP_3џџџџSgўџџџўџџџўџџџ ўџџџ!"#$%&'(ўџџџ*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRbTўџџџVWXYZ[\]^_`ўџџџўџџџcўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{E75C1DE5-F37B-493E-923F-7E315EA486C9}" Document=ThisDrawing/&H00000000 Name="Wall_Utilities" HelpContextID="0" VersionCompatible32="393222000" CMG="4143424246424642464246" DPB="A4A6A7CA692C6A2C6A2C" GC="0705046B04AD66AE66AE99" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=131, 148, 843, 660, Z ThisDrawingThisDrawingrU€€€€~} џџџџџџџџџџџџ _VBA_PROJECTџџџџџџџџџџџџ)ж dirџџџџџџџџџџџџ ,__SRP_0 џџџџ Н__SRP_1џџџџџџџџџџџџf Й1p“K*mџџџџrU€€€€~~~~~~~j йшЂ’wЖЊKŸZДj —   фџџџџƒŠa СџџџџџџЙЁЙ™љ9 ThisDrawingWall_UtilitiesяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ )‘`aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD љџџџџ!Ёp0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџ9€тЙчiПC‘S№ојіIC:\Program Files\Autodesk Architectural Desktop 2007\AecXUIArchBase50.tlbAecXUIArchBase џџџџ1бфЙчiПC‘S№ојіGC:\Program Files\Autodesk Architectural Desktop 2007\AecXArchBase50.tlb AecXArchBase Qџџџџy YjЖє AЖ—ˆk,_ŠlbѓЂПH‚? Ž§С•ЛЋzОyL€$ыjђq#ђЙIъŽ(2KИ• Э8ы[ЦШKЇLIŽц#s\Ы AcadDocumentForceWalls_toZero_Elevation @bPbЉCмMŸЦ…;Йи`ф№пЭOuД@њ8&;фЙчiПC‘S№ојі|Cћ.ФOˆюњPўqGp|Cћ.ФOˆюњPўqGk(В€0* pH‚dфWall_Uti€litiesDЈ@  = Vz О@CcI J<  rstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE AutoРmation0‚qAecXUI€ArchBas€I € A€EcXUIAr‚c€KBas‚Q­€Ѓ€QE7B9E200-BF69-431B-9153-1FF0DEF8F613}#5…QProgram Files\Hdesk >itectu ral D to$p +7\ O501‚fAECŒ€0 A pplicp LРibrary€RюД$sР…98ZІ@œР†84П8cŽh˜8&8ObjРHEЫ6ЌТ T Р-ThisDrawingXG@piРoD@sawinаg 2 †ˆH1‚З`оB,бB D]"B+BРЬamџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2008 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationF*\G{E7B9E200-BF69-431B-9153-1FF0DEF8F613}#5.0#0#C:\Program Files\Autodesk Architectural Desktop 2007\AecXUIArchBase50.tlb#AEC Architectural 5.0 Application Library8*\G{E7B9E400-BF69-431B-9153-1FF0DEF8F613}#5.0#0#C:\Program Files\Autodesk Architectural Desktop 2007\AecXArchBase50.tlb#AEC Architectural 5.0 Object Library  џџџџџџОCcI џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TThisDrawing08496343c3џџThisDrawingџџD]оџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDк‡Ў;WH ˆ€ :˜ и€ >ш€ @(€ >h Ј И€ <Ш€ >€ H h x€ >ˆ€ >Ш€ >€ >H€ ˆ Ј Р€ @и€ 0 H X€ 4h  € 2А ш ј€ : P`џџџџp–рGDeclare two variants to hold our point values for start and end of walli]ђ@]ђXр1Declare an object to hold a wall when encountered]ђpр:Declare an entity to cycle through the entire drawing with]ђр:Use a For Each loop to cycle all the objects in modelspaceџ "ў !&“џџџџџџр8Check each acadentity to see if it is an ADT wall objectџџ " œџџџџџџр 3When we find one, we assign it to our wall variableџџџџџџэ ".џџџџџџр 7It is always nice to provide some feedback to our usersр 9so lets highlight each wall as it is fixed. We update theр 7application so that the user sees the highlighted wall.З B@( *B@,р 6Lets grab the wall start and end point and assign themр 7to our variant variables...its just easier than workingр with arrays of doubles... !.' !0'р 8Now lets force the z value or elevation of our wall endsр 8to a value of 0...this is one of the most common reasonsр 7that walls don't cleanup...ADT walls must reside on theр 7same plane, even a millionth of an inch apart will ruinр the cleanup effect.ДЌ+ДЌ+р 9Reassigning the points to the wall ends will complete ourр )job...and hopefully fix our wall cleanups  (.  (0р .We can force the wall to update its properties B@,р +Lets clean up our graphics for good effect.З B@( *B@,kџџ№р3all done with that wall, lets loop to find the nextџ "ўШoџџ˜џџџџџџџџ&ЕAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Public Sub ForceWalls_toZero_Elevation () 'DS two variants to hold our point lues for start and e€ofŒ w€0ƒ&Dim"_ptSAs vVƒ)E†Ean objectDa when@counteРV)Go_С9 €Aecƒ‰entiDtycyc@nthrough theРtire ‚dƒ” withЩЦE@@cad€@DU€šaY Ea€ch loopЧ@EТƒ2s in РmodelsС•hC@f€In Ж<.MA BЁC ТkCh eck ea€#5see if it is@g ADTMУ‡If €TypeOf DЬs ФL@en Т‚W\we fi{ne, assјignС@Š‰€A~ЦiЂKSetBg=CLIC,lwa`ys niРмprovide soќfeedbaƒРЄ usersЌ so le@Whihghl`tc$a€/‚ fixed.€ We updРkус3ьappРgbd€нa P Da `,€co І `sA .ЋЃQ.^HfCs*eAч .U‚ LЁgraўb#9+osсpФ1YmŒ&{&4s..4.i€%jˆр$sier!n work`ЊЌСa arrг4р}do@ŒeaыЏ  &A=a>.Paˆ‘С€F€'NoкwC;fС™Ђ!z р‘ъ  ‘e%š FQ “‹ D@!aХf 0 Цt€Шeoneс€most common @Мson ЮhBA>s don' leanuFpр %ns mс*r'";’ №EВ №;phФicƒsgoo0sў єQјBд~ХBqCW б  Ifї'Бgр)юe’l4+,ƒ4uj2]ЁnextгNUZQ`„ raўb#9+osсpФ1YmŒ&{&4s..4.i€%jˆр$sier!n work`ЊЌСa arrг4р}do@ŒeaыЏ  &A=a>.Paˆ‘С€F€'NoкwC;fС™Ђ!z р‘ъ  ‘e%š FQ “‹ D@!aХf 0 Цt€Шeoneс€most common @Мson ЮhBA>s don' leanuFpр %ns mс*r'";’ №EВ №;phФicƒsgoo0sў єQјBд~ХBqCW б  Ifї'Бgр)юe’l4+,ƒ4uj2]Ёnextг