аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2 џџџџoB__SRP_3џџџџџџџџџџџџl^ __SRP_0 џџџџ ž__SRP_1џџџџџџџџџџџџцўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit иЇThisDrawing0?4119c tHџўЭXџўЭH $ Hџ ьѕѕXџўѕѕHџў (8џ%(џщ%Root Entryџџџџџџџџ№і“ОУР+VBA_Projectџџџџ Ж\^ƒВУ№і“ОУVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ@Wd^ƒВУ o^ƒВУўџџџ§џџџ ўџџџ% ўџџџ"#$&,'()*+0-./ўџџџ123456789:;<ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ h  !"#$%&'Ё)*+,-./0ўџџџ23456789:<ўџџџ=>?@ABCDEўџџџGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgўџџџўџџџjўџџџџџџџmnЅpqrstuvwxyz{|}~€acadID="{EC98C835-B365-46EE-B525-79CFE74C8045}" Document=ThisDrawing/&H00000000 Module=Ceiling Name="BD125L" HelpContextID="0" VersionCompatible32="393222000" CMG="7B798C0B030F030F030F030F" DPB="F6F4019007708371837183" GC="7173866B876B8794" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Ceiling=22, 24, 1078, 659, Z awingPROJECTwmџџџџџџџџџџџџ;>PROJECTџџџџ˜ThisDrawing џџџџ1Ю_VBA_PROJECTџџџџџџџџџџџџdirџџџџџџџџџџџџ(Ceilingџџџџџџџџ!м,__SRP_4 џџџџ†__SRP_5џџџџџџџџџџџџ„BrU€€€€~~~y џџџџџџџџџџџџ   Сщ ё™clg startpointendpoint С“K*mџџџџrU€€€~~~~~~~~~~~~~T ёњŒkŠи4MŠн^у*ыУЪ  фџџџџƒŠe 9џџџџџџЙA СџџџџџџџџYyy Y  Ё џџйЉСЁё ThisDrawingCeilingBD125LяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 1™`…ާ;цH“A<‹/`k;C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlbAutoCAD џџџџ)Љp0РFC:\WINDOWS\System32\stdole2.tlbstdole џџџџA‰€ФИчiПC‘S№ојіGC:\Program Files\Autodesk Architectural Desktop 2004\AecXArchBase40.tlb AecXArchBase џџџџ1Щ™9<†(N˜Uю0Щќ[Šкћ"U^fЙHЈstdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE AutoРmation`‚?AecXAr chBas€H€ A€DcXArc€HBajs‚NІ€œ€NE7B8C400-BF69-431B-9153-1FF0DEF8F@613}#4…NProgram F iles\Edesk  џџџџ0”џџ<0џџ^џџџџlџџџ џџh`„@џџџџhџџџџџџџџџ І€`џџџџџџџџџџџџ№ўLџџџџџџџџџџR„@„XРАўџџ џџџџџџ0 0№`џџџџџџџџP ^ўkџџџџџџEE „)ƒMџџџџ џџАџџџџ€џџџџ@„Zџџџџ ўџџ џџи „]џџџџœўџџ@џџџџ „!џџџџxџџџИџџџџ@„$џџџџhџџџ џџџџџџ „!џџџџxџџџhџџџџ`„Кџџџџlџџџџџ`„М hџџџџџџџџџ %и%@„$џџџџhџџџ џџ(@„@џџџ џџ  џџџџ`„vџџџџ^ўџџџџh@„‚0ˆўџџ џџџџџџ`„ˆр€ўџџџџџџџџШ @„Žˆ0џџџ џџ)ƒ!џџџџџџXџџџџ€`„nџџџџhўџџџџи`„pи`ўџџџџџџџџ Ња `џџџџџџџџџџџџаўJџџџџџџџџџџk„@„Тџџџџ\џџџ џџ џџhџџџџ+Аџџџџ`џџџџџџџџ˜$џk0 џџџџŽŒ@„ФџџџџLџџџ џџџџџџџџџџџџџџџџџџ€№ша џџџџPHАџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHА0џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX`џџџџ :џџџџџџџџџџџџџџџџџџџџџџџџџџџџ $ Ф  Ц&Dфr€єиЇ'5џџ#ˆЖџџџџџџџџ<џџкћ"U^fЙHЈ L(P,"Ce LB@Rificatэ L!`.\y]ђЈђРjuЖcmClg Ž  LB@’%B $”œ(ЮЌтŽHЮЌтk >'‚ @ЖTileЌŽЌœaceЌ$> L!TД@ Ќ+>Ќ$> L!VД@ Ќ+>ј]ђ0ђАђШЙЙ X Z \B@bbЌ$>Ќ$XaЌ$> L!T Ќ+>Ќ$>Ќ$XaЌ$> L!V Ќ+>ЌщЌ+ŽriЌѓЌ+ŽЌ$ZЌ$> 'nat poiЌ$ZЌ$> 'pџџш n L!TЌ 'v v L!V L(~ p L!VЌ 'v]ђрђј –№ЌшЌ+Ž v L!T L(€ L!†'ˆџџ ‚Ќ ˆ \B@„oЩ* ‚ ˆ \B@„ec ‚ ˆ LB@„џџџџрJ bPT = ThisDrawing.Utility.GetPoint(, "Ceiling justification point...")р: ThisDrawing.Utility.InitializeUserInput 0, "Tile Grid"рB resp = ThisDrawing.Utility.GetKeyword("Locate by [Grid/Tile]")ЖcmClgЌ+ L!PЌ+ЖGridЌ+џџ Ž  LB@œД€џџџџЈ ‚Ќ ˆ LB@„]ђрђјmЌ$'> =–€]ђђpatЩ* œ,%BkЌ$'@ kЃ*ШэА.  œk a  $Ж)Select ceiling grid object to relocate... !,B@.u\]ђˆђcЖcmClg Ž  B@’ad $Ќ+e Ž  B@œtan A@0;c:]ђhђ€pЖcmClg Ž  B@’ntЌ$ЖGridЌŽЌœЖTileЌ+... dHЖGridЌ+ЖCek( $Ќ+l Ž  B@œsk A@0tecЃ*ШэА. oџџИ  $Ж(Select ceiling grid object to justify... !,B@.chiџџџџЩЗ '$ $$”›G $А'$j–а ]ђ(ђ@Щаџ Мў ЖŠ Ж‘’ К М$Ж М$И Ќ 'К О›GyjџЧh К$Р'ДiџџP–ш]ђРђ( Т Ф B@bІ  Т Т Ф !,%Ш Т Ф$ДД@ !,%Ц'АiџџРЌ$Ж3Ceiling justification point (ENTER for centroid)... !,%B'$џџџџ џџџџ@ЖAttribute VB_Name = "Ceiling" Option Explicit Sub se‚tŒ() Dim obj As AcadObject, p dxd!b7р‡чOdJd‘pt№"d—џ2omRˆCv’UРRŸv–v (ENTER fPŽcentroјid)фw1'˜lмpt“lР’  gЁ•гў( Ф[ЫвАе•лџqoc10fŠcџ‰YёпX№АпЃЁўJc˜„)яЁ)bџS яЁА„яЁяЁяЁpПяЁ35ьЁУaЯ' 1?Я'Ю'7puxа2)“А%в, №Q= xwar"•4ЎqEќlsnб1– …џџr%%t›С7 }% џДџД ~„NFuncШ`1Dis@tance(`rtв­бbtœ, enоdM‚ 9€ЁdpхЅliСLo1Зё oPеePF=iLВ}hŸ№;А|^—"= bˆ+ (Ј(i)№…УЅ а) ^ %›с1€"Errr™`иit> PƒїYШр Sq