аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA_Project_Version(џџџџџџџџџџџџ9_VBA_PROJECTџџџџџџџџџџџџ) dirџџџџџџџџџџџџ 8__SRP_0 џџџџ  __SRP_1џџџџџџџџџџџџfџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџАˆ*fhТШ€VBA_Projectџџџџ`šъdТШАˆ*fhТШVBAџџџџџџџџ `šъdТШ`ЫБdhТШPROJECTwmџџџџџџџџџџџџ:&ўџџџ§џџџўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџƒThisDrawingџџџџ џџџџ__SRP_2 џџџџџџџџZЬ__SRP_3џџџџXgўџџџўџџџ ўџџџ!"#$%&'(ўџџџ*+,-./012345678;ўџџџўџџџ<=>?@ABCDEFGHIJKLMNOPQRSTUVWўџџџYўџџџ[\]^_`abcdeўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{E75C1DE5-F37B-493E-923F-7E315EA486C9}" Document=ThisDrawing/&H00000000 Name="Wall_Utilities_2009" HelpContextID="0" VersionCompatible32="393222000" CMG="787A7B797F797F797F797F" DPB="070504871C99AA9AAA9AAA" GC="96949518AB283B293B29C4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=131, 148, 843, 660, Z sDrawingThisDrawingrU€€€€~} џџџџџџџџџџџџ  Сple>stdole( h%^“K*mџџџџrU€€€€~~~~~~~j й/ѕR(B•‰ў:а§яŠ  фџџџџƒŠa ЉџџџџiџџЙЉСЁщ! ThisDrawingWall_Utilities_2009яРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 1™`aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD џџџџ)Љp0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџA‰€тЛчiПC‘S№ојіBC:\Program Files\Common Files\Autodesk Shared\AecXUIArchBase57.tlbAecXUIArchBase џџџџ1СфЛчiПC‘S№ојі@C:\Program Files\Common Files\Autodesk Shared\AecXArchBase57.tlb AecXArchBase Aџџџџiљ YjЖє AЖ—ˆk,_ГЛлiv"DЎ€#Б”b•ЛЋzОyL€$ыjђq#7%Фбу+–KŸЛГMђ›­ЦШKЇLIŽц#s\Ы AcadDocumentForceWalls_toZero_Elevation @bPbЉCмMŸЦ…;Йи`ф№пЭOuД@њ8&;фЛчiПC‘S№ојі|Cћ.ФOˆюњPўqGp.tlb#AecXUIArchB4В€0* pH‚dфWall_Utilities_2009X@е  = „  \иРI( J< 9stdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0€AecXUIA@rchBas€I €EcXU€IArc€K Bas‚QІ€œ€QE7BBEŽ-BF69-431B-9153-1FF0DEF8F613}#5.7ƒQProgram Files€\CommonNdesk Sh ared\‹K57!cAEC Uitectural - Applic‚l LibrarvyO‚А$‡o­РAФ7Я6Ÿ@•РёЦ6400џ6б6E$Z6XObj: 5ТЉƒ@ЉСЋ T ,ThisDrawРingGРl i@lDРoaw€ing F2 ‚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 2009 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation8*\G{E7BBE200-BF69-431B-9153-1FF0DEF8F613}#5.7#0#C:\Program Files\Common Files\Autodesk Shared\AecXUIArchBase57.tlb#AEC AracThisDrawingThisDrawingchitectural 5.7 Application Library**\G{E7BBE400-BF69-431B-9153-1FF0DEF8F613}#5.7#0#C:\Program Files\Common Files\Autodesk Shared\AecXArchBase57.tlb#AEC Architectural 5.7 Object Library 4џџџџџџ\иРI џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TThisDrawing1549c0d85fџџThisDrawingџџD]оџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџGD”ашMŸ)іО]‰•џџџџџџџџ`€џH( €џAs 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 Wall_Utilities_2009€џIAecWallз1€џ_B_var_IAecWall` џџTџџџџџџ4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ј€ : P`џrU€€€ џџџџџџџџ@$`џџџџџџџџџџn]ђXр1Declare arU€€€ 0@ Щ 1yYЁЩёџџџџy4aAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\h!Pџ$ QPџ[LџTџўˆHџ lTџў lTџ=Xџ єџXџ €Pџ! tPџ €Pџ8џXџ t8џќіlџ8џXџ |8џќі\џ((џ%ўФџ%lџўА((џ%ўФџ%\џўАќэlџXџ xќэ\џXџ € Xџ Є єXџ €Pџ! tPџ €Pџ Tџў‹Hџ#„<$LџHџXџ\џlџTџPџ8џXngр 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фˆў и TD]џџ#ˆЖџџџџџџџџ<џџГЛлiv"DЎ€#Б”b•ЛЋzОyL€$ыjђq#7%Фбу+–KŸЛГMђ›­џџџџџџџџџџџџx7%Фбу+–KŸЛГMђ›­ГЛлiv"DЎ€#Б”bџџMEџџџџџџџџџџпџџ0џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџSџџџџS”џџџџ ”  џџ$>"џџџџLџџџџLџџџџPџџџџLџџџџLџџџџLџџџџ<4џџ<8џџ<<џџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџ џџџџ`џџџџџџџџPјўkџџџџџџџџŒ,,”`„џџџџlџџџ џџha`„џџџџ\џџџ џџTO „џџџџXџџџˆ % „#џџџџTџџџЈ%€ўџџџџџџџиџџАџџџџџџџџ%џџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ%‚ џџџџўџџџHџџўџџџџџџџџџџџ%pџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџpџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№8џџџџ&*џџ џџ @ўџџџџџPџџџ џџ @ўџHLџџџ џџ `  @ўџџџџџHџџO џџ pшH @ўџџџџџ8џџџ џџ @ўџ (џџџ џџ @ўџИџџџ џџ @ўџаџџџ џџ @ўџџџџџјўџџ џџ џџџџH*џџџџРџџџџџџџџАџџџџџџџџџџџџџџџџАџџџџџџџџџџџџ №@Œџџџџџџџџџџџџџџџџџџџџџџр\иРI $*\Rffff*1549c0d85f*\R4*#70*\R1*#114*\R1*#17f4*\G{11A32D00-9E89-4C16-82CB-629DEBA56AE2}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\axdb17enu.tlb#AutoCAD/ObjectDBX Common 17.0 Type Library*#91*\R4*#f*\R4*#f*\R1*#91*\R1*#8eпџџџџ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 walla]ђ@]ђ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`„