аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ`nДj‹Ш€VBA_ProjectџџџџџџџџpГЏj‹Ш`nДj‹ШVBAџџџџџџџџ`§Бj‹Ш`nДj‹ШPROJECTwmџџџџџџџџџџџџ&џџџџџџџџ§џџџўџџџўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџrThisDrawingџџџџЉ_VBA_PROJECTџџџџџџџџџџџџf dirџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{E75C1DE5-F37B-493E-923F-7E315EA486C9}" Document=ThisDrawing/&H00000000 Name="Wall_Utilities" HelpContextID="0" VersionCompatible32="393222000" CMG="D8DADBD9DFD9DFD9DFD9DF" DPB="282A2B2C2C2C2C2C" GC="787A7B7C7C7C7C83" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=131, 148, 843, 660, Z ThisDrawingThisDrawingВ€0* pH‚dфWall_Uti€litiesDЈ@  = Vz % F J< rstdole>stdole h%^*\G{0002043ь0-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Autom`ation0‚qAecXUIA@rchBas€I€ A€EcXUIArcA€KBas‚Q‘ €‡€QE7B8D200-BF69-431B-9153-1FF0DEF8F613 }#4.5ƒQProgram Fi€les\ADT$5\ A45‚XAEC Jitect ural €" A pplicb LРibrary€DюІ$e€ ecZŠ@€Р†14П1Xc1ObjР4Ы/žТ T Р&ThisDrawingGV@biРaD@eawing4 2 xЂH1‚Љ@ЈЌ@,B D]"B+BBЬ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{E7B8D200-BF69-431B-9153-1FF0DEF8F613}#4.5#0#C:\Program Files\ADT2005\AecXUIArchBase45.tlb#AEC Architectural 4.5 Application Library*\G{E7B8D400-BF69-431B-9153-1FF0DEF8F613}#4.5#0#C:\Program Files\ADT2005\AecXArchBase45.tlb#AEC Architectural 4.5 Object Library  џџџџџџџџ%Fџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TThisDrawing0=4963443dџџThisDrawingџџD] џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџђЮЭї9TDš-їЃ„2Іџџџџџџџџ`€џФ'AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­#Wall_Utilities4stdole“`€џAecXUIArchBaseј] €џAecXArchBaseД ThisDrawingЙ5 €џ_EvaluateйForceWalls_toZero_ElevationКN var_ptStart|— var_ptEndFZo_WallPцAecWall™Jo_Ent_R AcadEntityІi ModelSpace_ж Highlight_Х ApplicationЅ*Updateвќ StartPoint№ŒEndPointдy AcadDocumentZџџTџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџ№Єд(џџџџ­y  TD]џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ<џџ < $<џџ<џџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,,”`„џџџџџџџџ џџbi`„џџџџџџџџ џџoc „џџџџџџџџˆx % „"џџџџџџџџЈil%€ўџџџџџџџиџџАџџџџџџџџ%џџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрАƒ АпўЪ,"€ 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 walln]ђ@]ђ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'roр 8Now lets force the z value or elevation of our wall endsxр 8to a value of 0...this is one of the most common reasonsр 7that walls don't cleanup...ADT walls must reside on theoр 7same plane, even a millionth of an inch apart will ruintр the cleanup effect.\apДЌ+daДЌ+k\р 9Reassigning the points to the wall ends will complete ourр )job...and hopefully fix our wall cleanups  (.at  (0taр .We can force the wall to update its propertiespo B@,ts;р +Lets clean up our graphics for good effect. arЗ B@(tu *B@,eskkџџ№р3all done with that wall, lets loop to find the next\auџ "ўШk aoџџ˜џџџџџџџџ&Е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`„