аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџˆj‹Ш@VBA_Projectџџџџџџџџˆj‹Шˆj‹ШVBAџџџџџџџџˆj‹Шˆj‹ШPROJECTwmџџџџџџџџџџџџ&џџџџџџџџ§џџџўџџџўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџ|ThisDrawingџџџџџџџџ __SRP_2 џџџџџџџџUд__SRP_3 џџџџSgўџџџўџџџўџџџ ўџџџ!"#$%&'(ўџџџ*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRўџџџTўџџџVWXYZ[\]^_`ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{E75C1DE5-F37B-493E-923F-7E315EA486C9}" Document=ThisDrawing/&H00000000 Name="Wall_Utilities" HelpContextID="0" VersionCompatible32="393222000" CMG="3032333137313731373137" DPB="9E9C9DF16531D232D232D2" GC="0C0E0F7F13EC14EC1413" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=131, 148, 843, 660, Z ThisDrawingThisDrawingrU€€€€~} џџџџџџџџџџџџ _VBA_PROJECTџџџџџџџџџџџџ)p dirџџџџџџџџџџџџ __SRP_0 џџџџ Н__SRP_1џџџџџџџџџџџџf Щ1p“K*mџџџџrU€€€€~~~~~~~j Щ`HEЋ;.D­ЫŠБi  фџџџџƒŠa СџџџџџџёБЩЉљ9Wall_Utilities ThisDrawingяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 9Ё`aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD џџџџ1Бp0РFC:\WINDOWS\system32\stdole2.tlbstdole !џџџџI‘€тИчiПC‘S№ојіIC:\Program Files\Autodesk Architectural Desktop 2006\AecXUIArchBase47.tlbAecXUIArchBase џџџџ1бфИчiПC‘S№ојіGC:\Program Files\Autodesk Architectural Desktop 2006\AecXArchBase47.tlb AecXArchBase Qџџџџy YjЖє AЖ—ˆk,_œЪЕї_EВшЮ]І[ћ•ЛЋzОyL€$ыjђq#qџ‡љУˆBИѕЂ*ђ7ЦШKЇLIŽц#s\Ы AcadDocumentForceWalls_toZero_Elevation @bPbЉCмMŸЦ…;Йи`ф№пЭOuД@њ8&;фИчiПC‘S№ојіqGээ IЁќ…wD|Cћ.ФOˆюњPўqGkВ€0* pH‚dфWall_Uti€litiesDЈ@  = Vz o@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’€ˆ€QE7B8E200-BF69-431B-9153-1FF0DEF8F61@3}#4.7ƒQProgram F iles\Hdesk >itec€tural D top +6\ OМ47‚f E‚ІЛ ‡e€ …ecŽ@–„РЦ14џ1chи1_&H1…€!€BŸТ T @ThisDra€wingG€cicD€fawing 2 AyH1ТЊт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 Automation*\G{E7B8E200-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\Autodesk Architectural Desktop 2006\AecXUIArchBase47.tlb#AecXUIArchBase*\G{E7B8E400-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\Autodesk Architectural Desktop 2006\AecXArchBase47.tlb#AecXArchBase  џџџџџџoCcIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TThisDrawing054963437aџџThisDrawingџџD]тџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDк‡Ў;W"џџџџLџџџџLџџџџLџџџџPџџџџLџџџџLџџџџ<4џџ<8џџ<<џџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџ џџџџ`џџџџџџџџPјўkџџџџџџџџŒ,,”`„џџџџlџџџ џџZ`„џџџџ\џџџ џџle „џџџџXџџџˆx % „#џџџџTџџџЈ -;%€ўџџџџџџџиџџАџџџџџџџџ%џџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ%‚ џџџџўџџџHџџўџџџџџџџџџџџ%pџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџpџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№8џџџџ&*A-10Ÿ0  H†@ўџџџџџPџџџ џџ e@ўџHLџџџ џџ ›Ё`  о3:/л@ўџџџџџHџџO џџ Љєж+шH дфQ:@ўџџџџџ8џџџ џџ ?Ѓ–@ўџ (џџџ џџ Ѓ@ўџИџџџ џџ 0@ўџаџџџ џџ #@ўџџџџџјўџџ џџ WkhlџџџџH*ОЈ trџџџџ џџџџџџџџАџџџџџџџџџџџџџџџџАџџџџџџџџџџџџ №@ŒџџџџџџџџџџџџџџџџџџџџџџшoCcI$*\Rffff*054963437a*\R4*#6b*\R1*#114*\R1*#8e*\R1*#91*\R4*#14*\R4*#144*\G{C295FFF9-3572-4ED2-9E42-0DAADB8D93EE}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\axdb16enu.tlb#AutoCAD/ObjectDBX Common 16.0 Type Library*#6e*\R1*#17cпџџџџ4ўЪ,"€ N€X€`€ 8h€ € @Ј€ш€ @№!0€ >H ˆ€ :˜ и€ >ш€ @(€ >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`„