аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA_Project_Version(џџџџџџџџџџџџcџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфˆў и TD]џџ#ˆЖџџџџџџџџ<џџј#ТVу••JŽЖHt%ЄVE•ЛЋzОyL€$ыjђq#=˜p'цMЛ“ЌН€’ыџџџџџџџџџџџџx=˜p'цMЛ“ЌН€’ыј#ТVу••JŽЖHt%ЄVEџџMEџџџџџџџџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџSџџџџS”џџџџ ”џџ   $>"џџџџLџџџџLџџџџPџџџџLџџџџLџџџџLRoot Entryџџџџџџџџ№ПЪ~j‹ШVBA_Projectџџџџ `ємTj‹Ш№ПЪ~j‹ШVBAџџџџџџџџ `ємTj‹Ш`ємTj‹ШPROJECTwmџџџџџџџџџџџџ&ўџџџ§џџџўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџ~ThisDrawingџџџџџџџџ__SRP_2 џџџџџџџџWЬ__SRP_3џџџџUgўџџџўџџџўџџџ ўџџџ!"#$%&'(ўџџџ*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQўџџџџџџџџџџџџџџџVўџџџXYZ[\]^_`abўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{E75C1DE5-F37B-493E-923F-7E315EA486C9}" Document=ThisDrawing/&H00000000 Name="Wall_Utilities" HelpContextID="0" VersionCompatible32="393222000" CMG="969495EE771EF422F422F422F422" DPB="0F0D0C69FC9B749C749C74" GC="888A8B8C8C8C8C73" [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 Йp“K*mџџџџrU€€€€~~~~~~~j й™yЪЃНвKKЖt…;К†  фџџџџƒŠa ‘џџџџQџџЙЁЙ™с  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№ојі=C:\Program Files\AutoCAD Architecture 2008\AecXUIArchBase.tlbAecXUIArchBase џџџџ1ЙфКчiПC‘S№ојі;C:\Program Files\AutoCAD Architecture 2008\AecXArchBase.tlb AecXArchBase 9џџџџaс YjЖє AЖ—ˆk,_ј#ТVу••JŽЖHt%ЄVE•ЛЋzОyL€$ыjђq#=˜p'цMЛ“ЌН€’ыЦШKЇLIŽц#s\Ы AcadDocumentForceWalls_toZero_Elevation @bPbЉCмMŸЦ…;Йи`ф№пЭOuД@њ8&;фКчiПC‘S№ојі|Cћ.ФOˆюњPўqGu|Cћ.ФOˆюњPўqGpВ€0* pH‚dфWall_Uti€litiesDЈ@  = Vz @DcI 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†€|€QE7BAE200-BF69-431B-9153-1FF0DEF8F61@3}#5.5ƒQProgram F iles\HCAD >itecture &8\ Jя‚` ?‚  ‡_Ў€ …_]‚€xРѕЦ.4џ.hЯ.…#F.‹€€B™Т T @ThisDrawinАgG€]i]D€`awi ng 2 AsH1СТЄоBЂ,B D]"B+BР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 Automationј*\G{E7BAE200-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD Architecture 2008\AecXUIArchBase.tlb#AecXUIArchBase№*\G{E7BAE400-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD Architecture 2008\AecXArchBase.tlb#AecXArchBase  џџџџџџDcI џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TThisDrawing0;49634420џџ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`„ #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