аЯрЁБс>ўџ ўџџџK§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<џџ<џџ<џџџџџџš0{C8C1FFA1-C85F-4496-B75E-AE6A66D105BE}{5392D21A-96F8-4ACE-B78D-18CDEDEF1CBA}џџџџа€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %џџџџƒўџџџџџџџџџџџџџџџџџџџџџ%‚ žџџџџўџџџРџџўџo џџџџўџџџCompObjџџџџџџџџЂaVBFrameџџџџџџџџџџџџ fџџџџџџџџџџџџœ:Root EntryџџџџџџџџаїиzќХ+VBA_Projectџџџџ АAщˆѓрХаїиzќХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџPШъˆѓрХp‹ЄсiќХ§џџџ X э(!"#$%&'2)*ўџџџ,-./014356789:;<=ўџџџLAдBCDEFGHIJўџџџ§џџџMNOPQRSTUVWY@Z[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€ўџџџ, ўџџџ !"#$%ўџџџ'()*+2-.ўџџџ01ўџџџ3456789:ўџџџ<=>?@ABCDEFGHIJKLMNOPQўџџџSTUVWXYZ[\]^_`abcdefghўџџџjklmnoўџџџqrstuvwxyz{|}~€acadID="{80107CA9-8F28-400B-A8DE-4A3BF8745C49}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frm_Query BaseClass=frm_ChooseTag Module=DoorTagger HelpFile="" Name="AutoTag4Doors" HelpContextID="0" VersionCompatible32="393222000" CMG="737192B47CB87CB87CB87CB8" DPB="595BB83DB93DB93D" GC="3F3DDEF8223809390939F6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000PROJECTwmџџџџџџџџџџџџ/PROJECTџџџџџџџџџџџџwThisDrawingџџџџŽ2:__SRP_2џџџџџџџџџџџџpє __SRP_3џџџџi…frm_Query 0(ЁЮѓрХpсLэсХfrm_ChooseTagџџџџ аGАвѓрХpсLэсХfџџџџџџџџџџџџЄ:rU€€€€~~~~~~s џџџџџџџџџџџџ џџџџџџџџ  ! CommandNameObject сo_Door lngDoorid lng_Doorid ‰ q( Б8o_MVB !љH o_DoorEntdoorobjstrStylestrFilestrNamestrDict SourceObjKeyNamenewScale !СXobjAECobjACEnt!8Й6h 6Е€0* pH‚dф AutoTag4@Doors@T@ = +x / E J< rstdole>std@olerh%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Ьmation#0€MSForms>!SFFr ms3€ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Micr@osoft ‚: €^ Object Libraryш/;D1€„uˆˆ00}#0‚#€k0‹ € mРA48A7F703-2D54-46B1-A99F-BB92BDB71Cˆ6PageDir\VBE\„N.exd 6Р€с.E р….`Œ(M ДСЁТ^AecXUIArchЈBas‡@ A…cXUIArchXBaРf‹’@ˆР1E7B8E200-BF69-431B-9153-1FF0DEF8F613}#4.7‹Program File@s\ADT Р6\Ы 47ТŽAEC %it€iural € ApplМic‚“…n€"€‚Е{AЧ2РХ2Я1cЫ@Ц14џ1cXEZ1ЧkO`@  C!]C1сH1G0† |›`F1__0UIс7СЕ..Р@Ž Ё>Ёkdч~ t`ц3џџ!БГ+сЁсS`cheduс ЩCSЕ‚\e`ЂudЂn,6ЅшE"-s!ІAXXDB€•#ІA sDA`rLibИ €+–,C295FFF9-3572-4ED2-9E42-0DAADB8D93EE} #1ИkrComm ontраdesk Shared\axdb16en†ut CAD/CDBX „16.@0 Type-t  Scripti`ng>Ср.r€pрбing€!Ej`ЁE420B28 бE718-11CF-893D БA0C90`54228ˆЏбcrrun.dllhЅf Runti,me€ @‚№‚т–ѓ  ThisDrawБ@G Ёi`ЁbD Ѓaw€С2˜AVHРЈ12{є№4’EA,w"+ Rсfrm_@QueryGтf0m_QuA@7ryk2гo y–‰tOW(z!ŠqC hoose€ŠGPTЕC№o0|sЕ TPcgа.2/‡*џ џ }$џ rTЁ“ gerGjqTDаo gЕТœ2Ÿ№(eP!пckня!x‘PhorArU€€€ џџџџџџџџ$`§џџџџџџџџџџџ,Љ`§џџџџџџџџџџџй=Й(б`§џџџџџџџџџџџё(0љ`§џџџџџџџџџџџЙ((!`§џџџџџџџџџџџ1,I`§џџџџџџџџџџџq=Q,q`§џџџџџџџџџџџЉ000 [Workspace] ThisDrawing=132, 174, 738, 578, Z frm_Query=0, 0, 0, 0, C, 66, 87, 659, 491, frm_ChooseTag=0, 0, 0, 0, C, 88, 116, 681, 520, DoorTagger=110, 145, 703, 549, 549, Z 3ThisDrawingThisDrawingfrm_Queryfrm_Queryfrm_ChooseTagfrm_ChooseTagDoorTaggerDoorTaggerfrm_ChooseTagDoorTaggerDoorT=‰,™`§џџџџџџџџџџџЩ=‰,С`ќџџџџџџџџџџџс008щ `ќџџџџџџџџџџџ1I000/$ `§џџџџџџџџџџџ$9 `ќџџџџџџџџџџџ(a `§џџџџџџџџџџџi0$‰ `§џџџџџџџџџџџ(Б`§џџџџџџџџџџџ&,й`§џџџџџџџџџџџС=Ё,`§џџџџџџџџџџџй=‰n Ррф„–ѓ}$џџˆЖџџџџџџџџ<џџxЖM‰иC‡Ъk:NЁџСШ_Ш–DЗ^ЎjfбОв’Sј–ЮJЗЭэяКz6]Н‹Ц@‹Ъ /ьАБџџџџџџџџџџџџxz6]Н‹Ц@‹Ъ /ьАБxЖM‰иC‡Ъk:NџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџoџџџџўџџџCompObjџџџџџџџџšaVBFrameџџџџџџџџџџџџ• frm_QueryџџџџRfrm_ChooseTagџџџџџџџџ;•DoorTaggerџџџџџџџџџџџџ>2ƒ__SRP_4џџџџџџџџџџџџ?h__SRP_5џџџџџџџџ&•_VBA_PROJECTџџџџџџџџџџџџ+/ dirџџџџџџџџџџџџ:__SRP_0џџџџ1__SRP_1џџџџџџџџ џџџџџџџџџџ%џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџ˜h@џџџџџџџџџџџџџџџџџџџџџџ`/E$*\Rffff*0745033405пџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџћАAttribute VB_Name = "frm_ChooseT ag" Bas0{C8C1FFA1-C85F-4496-B75E-AE6A66D105BE}{5392D21A-96F8-4ACEJ8D-18CDEDEF 1CBA} dGlobalSpa‚coFalse ŠCreatablPredeclaIdиTruq BExps0TemplateD erive•Cu@stomiz‹DO@ption 0licit 8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕрф„–ѓOWџџˆЖџџџџџџџџ<џџ№WїЩ5њLЎв№–>ы№,ЊЬXБJЛlб…Х…Э\ЎcyёуHšvCХ({ˆoQ$ЎeьšMБxТG’и џџџџџџџџџџџџxoQ$ЎeьšMБxТG’и №WїЩ5њLЎв№–>џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“K*mџџџџrU€€€~~~~~~~~~~~~~~~~~~M Az ЊаяжA†Tb(#Ж  фџџџџƒ A Б џџџџбљ9q™й™ џџЙџџџџџџџџџџџџйџџџџџџџџџџџџљA џџџџ џџџџб Щ )A™й!Iy™С1a‘щџџ! ! щЙ   Ё ‰  ThisDrawing frm_Query frm_ChooseTag DoorTagger AutoTag4DoorsяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA iџџџџ ‘љ`…ާ;цH“A<‹/`k;C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlbAutoCAD aџџџџ‰ p0РFC:\WINDOWS\system32\stdole2.tlbstdole yџџџџЁщ€с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms aa‰бїЇHT-БFЉŸЛ’йŸЗC:\PageDir\VBE\MSForms.exd Aaiб тИчiПC‘S№ојі .C:\Program Files\ADT 2006\AecXUIArchBase47.tlbAecXUIArchBase џџџџ)‘АфИчiПC‘S№ојі ,C:\Program Files\ADT 2006\AecXArchBase47.tlb AecXArchBaseAddDoorфИчiПC‘S№ојі џџџџ9ЁРсИчiПC‘S№ојі *C:\Program Files\ADT 2006\AecXUIBase47.tlb AecXUIBase aџџџџ‰щауИчiПC‘S№ојі (C:\Program Files\ADT 2006\AecXBase47.tlbAecXBase a џџџџ‰ щ рцИчiПC‘S№ојі ,C:\Program Files\ADT 2006\AecXSchedule47.tlb AecXSchedule a џџџџ‰ ё №љџ•Тr5вNžB Њл“юCheckIt @ InitDoorTools;C:\Program Files\Common Files\Autodesk Shared\axdb16enu.tlbAXDBLib q џџџџ ‰ 0( BчЯ‰= ЩB(C:\WINDOWS\system32\scrrun.dll Scripting љ џџџџ! i ™9<†(N˜Uю0Щќ[ŠtNдwу+GЖeХжЮзйuŽ!=в…Ф  Ц&†1Цн\JяJ‚/N–м| h ьL)мйKБBx"Ёвk AcadDocumentGoGoDoorTaggerAcadDocument_BeginCommandAcadDocument_EndCommand ProcessDoorsAcadDocument_ObjectAddedgetMVBlockStyles RemoveDoorGetDoorDoors_DictionaryСBЦBс—Я— $cрoAddMVB уИчiПC‘S№ојіCheckTagqGээ IЁќ…wD AttachPropSetImportMVBlockStyle ImportStyleGet_ActiveLayerCheckForLayerByExceptionAEC_GenerateLayerGet_DatabaseScaleSet_DatabaseScalertnTagCenterPointTгВЂ7YAЏT$aX,AEC_Anchor_TagToEnt  Error ИfФЄŸIЛxЊ8<Л  ( r) in procedure GoGoDoorTagger of VBA Document ThisDrawingVBE6.DLL џџџџ­ H џџџџS hБ юр—Я— $cрoqџџџџ b) in procedure InitDoorTools of Module DoorTagger 6ACAD Doc Begin Command ...  ˆ 8Entering ObjectAdded Event: ObjectID Œ Got a Door!  Door Detected!55IєœQL‹ˆbД-ŸГ Door added MVB Added 6Exiting ObjectAdded Event: # †) in procedure AcadDocument_ObjectAdded of VBA Document ThisDrawing V) in procedure AddDoor of Module DoorTagger 2Acad Doc End Command ... $AECDOORADDSELECTED AECDOORAD‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”Ѕ–—˜™ўџџџ›ўџџџўџџџžŸ ЁўџџџЃўџџџўџџџІЇЈЉЊЋўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD DROPGEOM COPY PASTECLIP 2AcadDocument Ready to Tag :AcadDocument Ready to Tag It!# „) in procedure AcadDocument_EndCommand of VBA Document ThisDrawing `) in procedure Tagem of VBA Document ThisDrawing h) in procedure Doors_Dictionary of Module DoorTagger *Door_Tag*уИчiПC‘S№ојіцИчiПC‘S№ојі…уИчiПC‘S№ојі  X) in procedure CheckTag of Module DoorTaggerцИчiПC‘S№ојіцИчiПC‘S№ојіб$љ$џџџџцИчiПC‘S№ојі цИчiПC‘S№ојі DoorObjects цИчiПC‘S№ојітИчiПC‘S№ојітИчiПC‘S№ојі&)&џџџџqNМ“чЏЇJМј ЭЖrетИчiПC‘S№ојі XNothingџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<џџ<џџ<џџџџџџš0{AA2CF0EB-58CC-4AB1-BB6C-D18513C585CD}{7963AE5C-81F1-48E3-9A76-43C5287B1888}џџџџа€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %џџџџƒўџџџџџџџџџџџџџџџџџџџџџ%‚ œџџџџўџџџРџџўџџџџџџџџџџџ%џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџ˜h@џџџџџџџџџџџџџџџџџџџџџџ`/E$*\Rffff*0645033405пџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџіАAttribute VB_Name = "frm_Query" " €Bas€0{AA2CF0EB-58CC-4AB1-BB6C-D18513C585CD}{7963AE5C-81F1-48E3€-9A76-4B287B1888} dGlobal!‹SpacoFalse ŠCreatablPre declaIdдTru BExpose0TemplateDeriv–Customiz‹DOption 0licit 8АDV ,xџlџpџ`џrU€€€ џџџџџџџџ@$`}џџџџџџџџџџ(A`ˆџџџџџџџџ(`Œ џџџџџџџџ$С`џџџџџџџџџџ(`”$џџџџџџџџЁ$A`џџџџџџџџџџ$`…џџџџџџџџџџn‰џџџџџџџџџџn   %œK §є §яKrU€€€ 0.Q!Љ ‘)Љс ‘ С9й@ ‰ЉББIё)ЉЩAЁсAyёY !)qљq™0)! 1Yџџџџс 4aЉџџџџџџџџџџџџ```I‰ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXW—W—зє˜K Kўџ~'ьў' џ',џѕtџ xџxџ ltџћў#pџ*#lџ*#`џdџ hџhџ ,ldџ*#\џ*FLџ 2 pџlџ`џdџ\џ)xџhџ6Lџ,џ џьўu˜$ 8 pџlџdџ`џ\џxџhџLџ,џ џьўh0l Cxџlxџ*#tџџџ  /tџ ќc= §П p0(g xџtџШdl CxџKсlxџ*#tџџџ  /tџilxџCpџ9lpџћ0elpџћ0elpџћ0elpџћ0elpџ ћ0† v ќcћвУzйй !џџ  +'№ў'џ'0џѕ:`џ"NPџPџ 6Pџ0џџ№ў ќc= §П #Kўџ~'№ў'џ'0џѕшў ьўьў lшўћў#tџ*#фў*#иўмў рўрў ,lмў*#дў$*FPџ 2 tџфўиўмўдў)ьўрў6Pџ0џџ№ўd Јd,g pџxџ8 tџфўмўиўдўьўрўPџ0џџ№ўД@KН %xџPџxџ$& ,'lPџѕлІ@џxџ$& 4'@џќіhџhџXџў‰0џІ Xџ§ѓ(TџTџ )У€ Tџ * Tџ +Xџџ=@џ xџ$& @'5@џ XџўŒ0џR ",X D'Kўџ~'Дў'дў'єўѕPџ ,џ,џ lPџћў#(џ*#$џ*#џџ  џ џ ,lџ*#џ-*F@џ 2 (џ$џџџџ),џ џ6@џєўдўДў-Ш@<$0џ<џxџhџXџTџ8 (џ$џџџџ,џ џ@џєўдўДў$Р l ќјxџ'xџWTџ ќ‹:dџ TџћяDџџџ 6TџDџK> lxџў М2'џ'$џ:dџNDџDџѕ@*FTџ 6TџDџ$џџ*џxџWTџ ќ"$ plџ= §П џ5Tџ  З џџ    lxџў )џxџWTџ ќ"$ plџ=tџџ5Tџ tџ   џџ  Kўџ'xџWTџ ќ‹:dџTџћяDџџџ 6TџDџ~'џ'$џ'Dџѕќў џџ lќўћVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frm_Query Caption = "UserForm1" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 Provided - tag will not be anchored.–ЬвІ,@ИyU ЪЈy  LNot a Door - tag will not be anchored. 6Error when getting a point. A-DOOR-IDEN DOORNOНмGУ б5N… F:Gіё— AecMVBlockRefц,&д_2№HƒВэ*Fњ? JAec6_Door_Tag_Project_Scale_Dependent T) in procedure AddMVB of Module DoorTagger > ђC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgцИчiПC‘S№ојі.Q#џџџџƒуИчiПC‘S№ојі&ˆOpenPercentGetBoundingBoxЈ !СZБAГЋ№\Z&сИчiПC‘S№ојіyуИчiПC‘S№ојіIфИчiПC‘S№ојіkуИчiПC‘S№ојіwуИчiПC‘S№ојіceDbЗц AxDbDocument~ SourceDictя№GetInterfaceObject])Itemзz CopyObjectsХGet_ActiveLayerўt currLayer} AcadLayerз  ActiveLayer„>CheckForLayerByException,‘ strLayerName>UobjLayer&3InputBoxЯ Layers‚йAEC_GenerateLayer—'KeyNameуЭdbPrefтAecArchBaseDatabasePreferences‡rcLayerKeyStyles@љAecLayerKeyStyles›* layerKeyStyleyAecLayerKeyStyleЈv cLayerKeysњ| AecLayerKeysёalayerKey”Ь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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Libraryк*\G{48A7F703-2D54-46B1-A99F-BB92D99FB71C}#2.0#0#C:\PageDir\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д*\G{E7B8E200-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXUIArchBase47.tlb#AEC Architectural 4.7 Application Library*\G{E7B8E400-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXArchBase47.tlb#AEC Architectural 4.7 Object Libraryј*\G{E7B8E100-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXUIBase47.tlb#AEC Base 4.7 Application Library.ш*\G{E7B8E300-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXBase47.tlb#AEC Base 4.7 Object Libraryј*\G{E7B8E600-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXSchedule47.tlb#AEC Schedule 4.7 Object Library,*\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д*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime  џџџџџџ/Eџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ–ѓThisDrawing0A45034c8aџџ!ThisDrawingџџwHџџџџє.џџfrm_Query0645033405џџfrm_QueryџџOW–џџfrm_ChooseTag0745033405џџŸfrm_ChooseTagџџ}$0–џџDoorTagg ClientWidth = 4710 StartUpPosition = 1 'CenterOwner End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq@ @}t  sџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frm_ChooseTag Caption = "UserForm2" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq@ @}t  sџў#јў*#єў*#шўьў №ў№ў ,lьў*#фў*FTџ 2 јўєўшўьўфў)џ№ў6TџDџ$џџ˜Р, xџtџ8 јўєўьўшўфўџ№ўTџDџ$џџ0er0845033405џџ(DoorTaggerџџяџџџџHckџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŠ&ь7ИQDѕ+НYžЅџџџџН‘!‚хHД­ј69Дѓ?џџџџьdП7Ю]F‡\n UтџџџџZеЇ ъЩKГ1ЧћђїЁќџџџџџџџџ€Юаџ8EˆObject AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# AutoTag4Doors .stdole“`MSFormsCAecXUIArchBaseј] AecXArchBaseД AecXUIBase|AecXBaset• AecXSchedule[AXDBLib№D ScriptingŠп ThisDrawingЙ5 €џџџ_EvaluateйGoGoDoorTagger5‡GoGoDoorTagger_ErrorE DoorTaggerGн Ќ(InitDoorToolsяВMsgBox—RErroŠNumberЃ- DescriptionО psuedocodeholderqЅAcadDocument_BeginCommandC; CommandNameh_ Ќ(o_DoorObjGvAcadDocument_EndCommandщѓAcadDocument_EndCommand_ErrorH?AcadDocument_EndCommand_TagDoorwq!AcadDocument_EndCommand_CleanExitЪ– ProcessDoorsњ9 dic_NewDoorsРЕ DictionaryЛar_Doorsёea_Doorњ9o_Ent_R AcadEntityІi Tagem_ErrorŽrЌ(Doors_DictionaryыSCount0vItems`hЌ(CheckTag”й Ќ(AttachPropSetŒLЌ(AEC_Anchor_TagToEntМRemoveЯБObjectIDoМ Ќ(dic_MVBlocksxq RemoveAllЮAcadDocument_ObjectAddedo_MVB=~ AecMVBlockRef–ёAcadDocument_ObjectAdded_ErrorзЂAecDoorдЏvbCrLfЏЌ vbInformationВnObjectIdToObjectчMЌ(AddDoorь*Ќ(AddMVBi getMVBlockStylesfqAecMVBlockStyle“іo_MVBsчaAecMVBlockStylesЃ“o_ADTDoc%< AecDocument ЎappПtAecBaseApplication№doc˜„AecBaseDocument8кInit\[ ApplicationЅ*ActiveDocumentг\ MVBlockStylest8CheckItдЋЌ(Get_DatabaseScaleЎЈ frm_Queryh” frm_ChooseTagѓЌ Ќ(dic_DoorsшЅ str_TagSourceыЈ str_TagName€' str_PropSetц# strPropSource„strValгSInitDoorTools_ErrorQo_DoorLK AddDoor_Error§чExistsƒ]Addїr Ќ(RemoveDoorSe lngDoorid#yRemoveDoor_Error<ыЌ(GetDoor^Я lng_Doorid№ї GetDoor_ErrorлЙDoors_Dictionary_Error‚Н AddMVB_Erroro- o_DoorEnt“Bo_MVBRefИтo_AnchoreфAecAnchorTagToEnt1o_GeoП[AecGeoJCheckTag_Error†w ModelSpace_ж StyleNameЮФ GetAnchor ReferenceїedoorobjНюobj‘Нgeo=“schedТ AecScheduleApplicationvFpropsetsа\AecSchedulePropertySetsЈм PropertySetsСпPSDs/нAecSchedulePropertySetDefs‹PropertySetDefsЊ’PSDYХAecSchedulePropertySetDefо=ImportMVBlockStyle XstrStyle,ђstrFile X MVBlockDict objStylesˆv objDictItemУЌ Dictionaries|sHas˜ ImportStyleСЌstrNameыZstrDictІЫ SourceObj№{TargetDb2мAecArchBaseDocumentЊL TargetDictенAcadDictionaryЮ TargetObjлsSourceDbЗц AxDbDocument~ SourceDictя№GetInterfaceObject])Itemзz CopyObjectsХЌ(Get_ActiveLayerўt currLayer} AcadLayerз  ActiveLayer„>CheckForLayerByException,‘ strLayerName>UobjLayer&3InputBoxЯ Layers‚йЌ(AEC_GenerateLayer—'KeyNameуЭdbPrefтAecArchBaseDatabasePreferences‡rcLayerKeyStyles@љAecLayerKeyStyles›* layerKeyStyleyAecLayerKeyStyleЈv cLayerKeysњ| AecLayerKeysёalayerKey”р AecLayerKeyЩЋAecArchBaseApplication1iLayerKeyStylesmЪ Preferences– LayerStandard@RlayerКЦ GenerateLayerє  DatabaseScalexвЌ(Set_DatabaseScale†pnewScaleЌ(rtnTagCenterPointЖobjAEC– AcadObjectЅminцГmaxШВ lngDoorOpenрь OpenPercentрЖintCnt.-GetBoundingBox˜Y tempCntrPt}objACEntK%adtDoc"ЪmvBlkRefentн‰ptЙ^door<…anchor#rUtility1JPromptmExitTag4- strRestorLay5є strLKNameЎxAddCustomObject“Location-р AttachAnchorз AcadDocumentZ €џBeginCommandL5 €џEndCommandYH €џObjectAddednЊUserFormN €џџџ_B_var_CaseГкџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџ џџ!Ÿџџџџџџ)џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ H@@@€@›AўџHџџџ џџ ta@ўџ8џџџ џџ m ш(џџџ џџ ic@ўџџџџ џџ deџџџ џџ :\@ўџјўџџ џџ leџџџџшўџџ џџ bџџџџјџџџџ8а џџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџашh@zџџџ џџ\pјm fPadt`@.,drv`(dџџџ џџ ћ @ўџ`џџџ џџ x№Ќ,д˜џџџџY1]k–ѓяџџЖџџџџџџџџ џџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ„џџџџ48џџ<џџ@HP џџT,(џџџџџџџџџџџџџџџџџџ $џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0”џџp9”џџ0”џџl0џџP ”џџЬ ”џџа ”џџф ”џџш(”ю ”џџє<џџ‚<џџ~ ”џџrU€€€€~| <)Q!ЉQ‘Сqс "@ ‰љБщ")#Q#y# $!%љ$I%с q%™%й%y.Q&y&Ё&Щ&‘' (йЙ(9)y)aЉ)б)*A* ,С).Q.‘.Щ./9/a/џџџџџџџџџџџџўџџџ<#џџџџџџџџџџџџўџџџрџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџ‰/Б/й/щ*ЈK' §є§я §є§яKўџ~'шў'џ'(џѕpџ tџtџ lpџћў#lџ*#hџ*#\џ`џ dџdџ ,l`џ*#Xџ*FHџ 2 lџhџ\џ`џXџ)tџdџ6Hџ(џџшў”Ј$ 8 lџhџ`џ\џXџtџdџHџ(џџшўpK‘”ќcћвУ€+RџtџH 0ltџ§iTџ_ 0kRџУ5Tџ~=tџH 0€ ќјLџLџM<џ @ltџ§iTџ_ (lLџ= §/ Lџ5TџKўџєџpzџ~'фў'џ'џѕtџ LџLџ ltџћў#8џ*#4џ*#(џ,џ 0џ0џ ,l,џ*#$џ *FTџ 2 8џ4џ(џ,џ$џ)Lџ0џ6Tџџџфўn˜$ 8 8џ4џ,џ(џ$џLџ0џTџџџфў0 ќЦ€  0 ќЦр  ќœK ”ќјxџKўџ~'шў'џ'(џѕpџ tџtџ lpџћў#lџ*#hџ*#\џ`џ dџdџ ,l`џ*#Xџ *FHџ 2 lџhџ\џ`џXџ)tџdџ6Hџ(џџшў”œ(g xџ8 lџhџ`џ\џXџtџdџHџ(џџшўpK‘”ќcћвУ€+RџtџH 0ltџ§iTџ_ 0kRџУ5Tџ~=tџH 0€ ќјLџLџM<џ @ltџ§iTџ_ (lLџ=§/ Lџ5TџKўџєџpzџ~'фў'џ'џѕtџ LџLџ ltџћў#8џ*#4џ*#(џ,џ 0џ0џ ,l,џ*#$џ;*FTџ 2 8џ4џ(џ,џ$џ)Lџ0џ6Tџџџфўn˜$g 8 8џ4џ,џ(џ$џLџ0џTџџџфў ЌK&!dџ $ Qdџ[`џpџўˆ\џ§ lpџўю+6џXџpџ 0lXџ§i8џ_ 0k6џУ58џь lpџ=tџ0џtџ $l0џћ~/0џъdџtџ єldџ=lџdџdџlџ \ldџ=hџdџ"XџH 0lXџ,џhџ 0l,џЧшєџpzџ§Э\џ§ pџў‹\џ( ќc=hџ ќc=lџ ќc=tџKўџќТ~'Шў'шў'џѕXџ dџdџ lXџћў#0џ*#(џ*#џ џ $џ$џ ,l џ*#џ*F8џ 2 0џ(џџ џџ)dџ$џ68џџшўШўДЌ<$`џ\џlџtџhџpџ8 0џ(џ џџџdџ$џ8џџшўШўШ € ќјtџ ltџўУ ltџ=pџ)`џlpџ=[dџlџ$ l`џ=hџ)dџ`џ9Xџdџ $ pldџ=[`џlџ$ lXџ=\џ)dџ`џXџdџ:Dџ%\џ dldџ=TџdџKџџlTџ=[dџhџ 0dџ8Ш<g $hџtџlџTџpџ\џdџ`џXџ0 ќЦ  0 ќЦј  t4pџ $ Œlpџ=5tџpџlџtџ €5>lџ1xџ4,g xџtџlџpџ0 ќЦА  А\џ$ 0l\џ= tџ\џ\џtџ 6l\џ=7lџ\џ\џtџ |l\џ=8pџ\џ.\џXџpџ p9>XџFHџ%lџ d7l\џ=:hџ\џ5Hџ\џ€ hџ h:l\џ=5Dџ\џXџDџ €5>Xџ1xџ8АDg ,xџlџpџ`џtџhџDџdџXџ\џHџ0 ќЦh  0 ќЦШ   „ HW8џ3ќ"qHџ58џўФ(џI@%Hў›3\џ§“ @Lџ§“ @Hў˜4G((џ%\џўЎ8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕќўІ68џШўИўG((џ%\џўЎ8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕќўІ68џШўИўњѕќўІlHџ§i(џ%Hў›3ќўM(џ §lџ§•( ф \g Dlџќў"А’ \џLџ8џШўИў˜ў4ЬKџџPџ$ 0lPџ= tџPџ € ќcћв\%!"*#LџPџtџ јPџ l#/LџPџ\“ € ў У“%$"*#LџPџtџ јPџ l#/LџPџ\ € ќјlџ)llџ=PџPџ<џ %lPџ=lџ<џќі\џPџ$8џ PџPџ l8џѕЬPџ%&"*#LџPџtџ јPџ l#/LџPџ\ '14џl4џ(ћ~У)CLџLџ *10џ/Lџ:џl0џF џ%Pџ $ 4Pџ P+Qџ[џ $ )Pџџ+џ,Pџtџ Pџ l-lџ=pџ)Pџџќэ\џpџ р .pџ ($8џ PџPџ l8џѕЬPџ /Cџџ.CLџLџ 02Lџџ .pџ (\ llџ= XџlXџ=[PџTџ$1 `PџTџV1=2[Pџpџ јPџ:џl4џF џ%Pџ $ 4Pџ P+Qџ[џ $ )Pџџ ќc= tџ ќc=pџ ќc=lџ ќc= Xџ ќc=Tџ hЬDg ,tџTџ4џpџ\џXџlџ0џ$LџџPџџџ<џ     14џl4џ(ћ~У)CLџLџ *10џ/Lџ:џl0џF џ%Pџ $ 4Pџ P+Qџ[џ $ )Pџџ+џ,Pџtџ Pџ l-lџ=pџ)Pџџќэ\џpџ р .pџ ($8џ PџPџ l8џѕЬPџ /Cџџ.CLџLџ 02Lџџ .pџ (\ llџ= XџlXџ=[PџTџ$2 `PџTџV2=3[Pџpџ јPџ:џl4џF џ%Pџ $ 4Pџ P+Qџ[џ $ )Pџџ ќc= tџ ќc=pџ ќc=lџ ќc= Xџ ќc=Tџ hЬDg ,tџTџ4џpџ\џXџlџ0џ$LџџPџџџ<џ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‚ƒ„…†‡ˆ‰Š‹Œўџџџ‘ўџџџ’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџщџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџ<0<џџ џџ( ”џџ< ”џџ@ ”DD ”H ”LL0џџd> џџџџ<4џџ<\џџ<`џџ`. € џџџџ€ИР и€ ^ш€ џџџџ€ џџџџH€ џџџџ€ џџџџB P€ џџџџ€ PX€ :Ј€ Nш€8@€ џџџџ X€ џџџџh€ џџџџp€ џџџџB  x€ џџџџ€ P€€аи€ џџџџ №€ џџџџ€ џџџџ€ џџџџB € >€X€`€h€ 0p  € DАј€:€2X.G.GР№€  (8@€ џџџџ€ PH€ 2˜€ PаB  (€ џџџџ€ 0€H€P€X€`€h€p€ џџџџ€ ,и x€ џџџџ ˆD%˜рш>%ј8@€ џџџџ€ &H p)€$и4%ш ( € 0 €H  P X €x € ,0$€ € (:˜ А € џџџџ€ @X#€ И&+P! x!€ :`$€ ˆ!€ Ј!€ ,Ш!€ ^ј!€ F! X"$h"€ B˜#€ @р# ˜" Ј"И"Р"€ џџџџ€ И  Ш" и"ш"€ џџџџ€ џџџџ€ј"€ x":# # # (# 0# 8#€ џџџџ@#џџџџш$Эџџx] ђ˜ ] ђР ] ђш ]ЖyC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgђ я]Ж%Aec6_Door_Tag_Project_Scale_Dependentђ8 рF"Aec6_Door_Tag"]Ж DoorObjectsђ`]ЖyC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgђ` p–РрW---------------------------------------------------------------------------------------р Function : InitDoorToolsр DateTime : 12/8/2005 17:54р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩЌэЦ. эЦ.dЩzџџЃЌІ ЖError .!0Ж ( .!2Ж1) in procedure InitDoorTools of Module DoorTaggerA@,iџџ–рW---------------------------------------------------------------------------------------р Function : AddDoorр DateTime : 12/4/2005 21:33р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩА0  Аœ Ў!b  %Вœ Ў!b Ў  B@ДkџџшkџџрЩиЗ'xzџџШЃАРІ ЖError .!0Ж ( .!2Ж+) in procedure AddDoor of Module DoorTaggerA@,iџџP–€рW---------------------------------------------------------------------------------------р Function : RemoveDoorр DateTime : 12/4/2005 22:07р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩК0  Аœ И  %Вœ И  B@`kџџјkџџ№ЩшЗ'ЖzџџиЃКаІ ЖError .!0Ж ( .!2Ж.) in procedure RemoveDoor of Module DoorTaggerA@,iџџ`–ррW---------------------------------------------------------------------------------------р Function : GetDoorр DateTime : 12/8/2005 17:53р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩР  Аœ О  %Вœэ О %v.МkџџРkџџИЩАzџџЈЃР І ЖError .!0Ж ( .!2Ж+) in procedure GetDoor of Module DoorTaggerA@,iџџ0–HрW---------------------------------------------------------------------------------------р Function : Doors_Dictionaryр DateTime : 12/8/2005 17:53р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩТШэ  .TЩАzџџЈЃТ І ЖError .!0Ж ( .!2Ж4) in procedure Doors_Dictionary of Module DoorTaggerA@,iџџ(–рW---------------------------------------------------------------------------------------р Function : AddMVBр DateTime : 12/4/2005 21:33р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩФа dАœ j!b d%Вœ j!b j dB@Дkџџˆkџџ€ЩxЗ'zzџџhЃФ`І ЖError .!0Ж ( .!2Ж*) in procedure AddMVB of Module DoorTaggerA@,iџџ№–јрW---------------------------------------------------------------------------------------р Function : CheckTagр DateTime : 10/15/2005 01:04р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------р]ђ`]ђ€]ђ ]ђРЩв№џ Nў !д“ Nœ N!b d%Вœэ N.ШрMsgBox o_MVBRef.StyleName Ш!жЖ *Door_Tag*œэ Ш!и.Ъэ Ъ!к.Ю Ц!b Ю!bœЗ'Zyџџkџџkџџkџџkџџјџ NўШэА.ЮэА.ЪэА.ШzџџШЩРzџџИЃвАяџџЈІ ЖError .!0Ж ( .!2Ж,) in procedure CheckTag of Module DoorTaggerA@,iџџ8–рр2check for presence of property set for door objectрimport as necessary]ђHэ м.ор6ThisDrawing.Utility.GetEntity obj, pnt, "Pick a Geo: " оœzџџP kџџH ]ђ`э о.р]ђ€]ђ э р т%ъ.ц]ђРэ !X т%№.ьрKThisDrawing.Utility.Prompt "Available Schedule Property Set Defs:" & vbCrLf]ђрэ І$ь.ђЩp ђ цB@ДiџџX –]ЖAEC_MVBLOCK_DEFSђ€]ђ˜]ЮЌђИр*this does nothing if the dictionary exists ќ !B@Др'only import if it doesn't exist already ј ў%œ ј ќ њ Akџџh эА.ўoџџX –ј]ђИ]ђи]ђј]ђ]ђ0  B@э  %.эЖObjectDBX.AxDbDocument.16 ’%. њ B@э  !% .э  % Ќ2    %"'эА.эА.oџџX –Pр( This Function returns the current layer]ђр0 Return the current layer of the active documentэ !*.& &!'$iџџИ –А]ђ№]ђЖ"Enter a Layer name to search for: $2'.Ж .›G|jр, exit if no name enteredЩр' handle exceptions inlineэ . %4.0 0Аœр' check if obj has been setЖLayer ' .Ж' does not existA@,dџџ˜ЖLayer ' 0!Ж' existsA@,kџџ`oџџX–(рEThis generates a layer based on a key with the current layer standardр!and returns the name of the layer]ђˆ]ђЈ]ђШ]ђш]ђ ]ђ( э N!”.Œэ Œ!P.>э Œ!R.:р7 Sets the layer key style to the current layer standardэ :!T >% .B]ђH э 8 B%X.V V!'6рWMsgBox "Layer Key WALL generated layer: " & layer.Name, vbInformation, "Expand Example"iџџˆ–h рI This example returns the Database Scale setting for the current drawing.р4Multiplier appears to be a factor of 8 for door tagsрH@ 96 tags are scale 12...@ 48 tags are scale 6...@ 384 tags are scale 48]ђЈ э N!”!R.: :!Z'šэА.:iџџ`–Ш рI This example returns the Database Scale setting for the current drawing.]ђ( э N!”!R.: ^ :(ZэА.:iџџШ–H р7 use the bounding box to find the extents of the object]ђА ]ђШ ]ђр р)Get existing Open Percent Setting of Door b!l'jр>Set Open Percent Setting of Door to 50% for Intersection CheckДI@ b(l]ђј f h bB@pр#" get the bounding box for the door]ЌЌђ р% center of the bounding boxЌ$fЌ$h Д@Ќ+rЌ$fЌ$h Д@Ќ+rДЌ+rрReset Door OpenPercent j b(l r'`iџџрJ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р+' AecAnchorTagToEnt as Modified by RLBрJ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–H ЩЈр Declaration]ђА ]ђа ]ђ№ ]ђ ]ђ( ]ђH э N!”.v tАœЖ,Nothing Provided - tag will not be anchored. r v!‚B@„š†F teЖ&Not a Door - tag will not be anchored. r v!‚B@„š†Fkџџxр Select a point to locate the tagэ t.z z$`'|р"Set Current Layer to correct layerрat the specified location .!0ЌœЖError when getting a point. r v!‚B@„š†˜ kџџ рGet Current Layer]ђh $'ˆ ˆЖ A-DOOR-IDENœ]ђ€ ЖDOORNO$6'Š Š %4 (*kџџ рAnchor the tag to the doorр%Initialization of AecArchBaseDocument winр?The above code is remarked out while using scale dependent tagsr эЖ AecMVBlockRef v!д%Œ.x | x(ŽрGet Current Database ScaleрDim intDBScale As Integerр%intDBScale = (Get_DatabaseScale / 12)рXmvBlkRef.ScaleX = intDBScale: mvBlkRef.ScaleY = intDBScale: mvBlkRef.ScaleZ = intDBScale Є x(ж .!0Ќœрrestore the previous layer Є ЂA@і Є x(жš†€kџџxэ z.~ ~ €(к € xB@Ѓ†ј ˆ %4 (*эА.vэА.xэА.zэА.~эА.€iџџАџџџџ џџџџр9Insert an MVBlockRef using a hardcoded door tag style andр;add dbximport for door tag style here since error indicatesр9that the tag style was not present in the current drawingџџџџp$џџџџ8$р&Set correct layer by getting layer keyр3get correct scale for tag by reading database scaleџџџџш#р/store the door tag style name for future re-useџџџџh$џџџџЕAttribute VB_Name = "DoorTagger" Option Explici@t Pub$ o_˜Obj A`s Aec8d ic<2s Scriˆng.Di"c˜ary RMV Block,'store the dœ tag €style nГfor futu"re-use @ Const#r_ЩSource%ЈSюngфC:\Documents and Settings\All User€pza€Data\Autodesk\ADT 2006\enu\SDs\Imperial\ScheduNTables (… ).dќwg€Љ N‚К€ЁM€І6Ÿ]_Project_Scale_DependсZ" '" Š+оph yи&s Т eH HalEHЦ‡FunТŒ Init0Tools()A6B€ean \'-?Q@  :G‹ С@?`< UЄЁLT4CT21:ќ33С_T_Tп= d<‹TфЧSс7If Not ЇTIsТh`j TheРЁE1. Msts„4.у`з@ЁID)ЬAІ ю.`dн,ЧJСCќIfуeЂыc^Єё€аTru@ер Ю`dy`rr``ѕЏ/e9€  Я/'Removeђ/lngqid mLonўgџ/Я Ё,9Ж8:  /000€5 22:07сџ/0_Z_Zџџ/0pZЇ U0р"ƒ&0џ0Р -D0–я/ъ Ч5.ѓ жЃaџu.Нo ` “/Ч Я/t~џбgџ/`џ/01`a я3 `X /0e!00"Ащ'GeЂ‰(Pr›ь/џЄ` џщ_фQМ/Šя_Š'ў ŠЯ€ ?O#@#t …/_/ Рs Зя_Є_/so/ !Р D*hisDrŒaw€eЅ_dToScП‰/1х1вo` еџЌъOВ›OOскOKU//?_ Q^sо_нЙЏоЁо'пџ.X_- сџ/џБ_Кџ/џ/џ/? я€ _" э k0сЗ?0+f^5VXЩ†™Жn Doors_Dictionary_ErPror:а M€sgBox "T " & $.N umber0" (&DescriЦpŒ0_ |") in procedure  ш of ModulTagger" End Fun›‘Public Add@MVB(o_ @As Aec l€ockRef)@Booleaщ'Ђ-S '‡G:„H DateTime : 12/4/2005 21:33Author: Richard L €Binning@Purpos gЦи^DzOnAv@$G8oTo„1У‚ If Not di†c[Ys IsСТh€, The€Y| .ExistsCk.ObjectИID) ‰.Рxv x† ,УG˜‰IоfУХB 50ТУŒ€ = TrueB=Р%tЦpA;ƒТon^ТD#дП_РChecŽkРЫ@UеEntТСˆcad€ity?Сљпf--сUхtР]…С!Ъ`0/15у`01ј:04сџ`џ`_=ѓ @Ёim#K€‡Ђ(Љ‰ЧХ.,AnczЃ3ƒр2ToEGeџ kЂ” ФjKT%'%oЁaТF€rEach`In fisDra wРn.РІelSpaccYoTypјeOfE,ЃPn{чuЧРњuSet   ЏН'=Ђk"…'фЩz .StylexNamЈe@Я €Like "*]ђ_р+*"%c3УaУ.Getƒ_AУ5a#.€eјrenЩ,Х с‚$pѓf%€Œo_р‹Є ?aЅ?‰“mт#–or?ѓЩЁЩё=љNeўx1аsy`Q_‰џƒА ПcНŽWа y/[ ~k2№qaSјtopѓO‹O‹ƒŒO‹п‘0‹ІŸZe‘ŠdF [vQAttP.ЋH 'ƒ%' з C­B AdsgАPP8ЂТ, PvbIn@Rm2ƒ, "Exp/Exрample`:S 12Ÿ` rD”,ScaŒle#raˆger“ЛS”rec 6 Й€\tt0k‘\Ъ:dДlAєMultiРe`r appР_  oЗРNА>tpZ0;8RDdoаtagD.' @ 96 ё are sq 12€...@ 48"6r38448џ“b@“*s:–@/>Q!Пc%€€=44.о/џ“a|њ+jгSПкЦБЏ€Ё6_№(newѓ@євY€BooleanПF’5ППng.?SЕWchСZ…Y“пр~=о еCSnЈ†rtnTagCђ‡Point( u_AвXРE#А’VPТa‚nt}' use2 bound4bo2x‘Pfi0wсPexњt`sEЄpРДЃ 8minAZraxУ€ЌlngD€5rУщ0 Loе 'P)SƒQЉђPeЫn—eГ=Я 9БУ‰= утШ›TS'сЯngё cСБ50%?)r~sр АдгЊCЯ35м0#гбC€ G-;А Bф” , ъm№'pWtпpVBH'pвp0rPt€(0 To 2в№Doub $œВUoй#ще(PБе+ƒ‘€) / 2 И1ЖГ1)П&ta  = U'RњeаЃ "ёZП# N-@Ї п0''' ' 'rl Vnchor№5To@Ф as€ Modifi@ЂРby RLBб_/ P ickчс}A2_Eс= ЕACEnt As Acad ity)pBoole an On Error Resume Ne xtd'Dec€laratiobDim adtDocЖecArc`hBase"‚n|LmvBlkRef(MVBlonc["e ЂpAМVaria TdЦo­еecD /anchNew A˜TagToƒ'Ini@tializl FoQdSet…w=‚*wApplic‚.Activ €ƒ4If objХIs Nothi@ng TheЇ A..Utilб.аProm}"€vided - tag will not be ƒxed." & @vbCrLfƒ: GoTo Exit€?:Else€#Р (Typ\eO‹&LСS)ф& a  %nd I„-У)'Selec!] poi€‡to €ate thЙРagƒ СeA=XƒУРN= rtn>ЂCРerPA(€)Р@€М.Number <> 0Š<dУЩw@n geєttqaƒ(а_K`Eˆ:'G€•CurrР% Layer#УСФstr@уtoЦrРЮStrУщЪ= @_ŸШyjLike "A-DOOR-IDHEN"+= DLјKNa lщa…3Аt co` 3la byf!keyЄ gEC_PGene@‰eb(т"ANO"Ф2& Њ"  ?JЇ ThispDraw`#pт Ю=Р9'bs(FЄ Gi1C `‚serРNnb • usР `]h`ardcoСpтtЁ qstylapdфatTspeci|fivЂVцІсUЂ=Ѕ~M` lSpace.AddCus@tomObjр_(" r'Х$E.LosƒрptDрR4stcaРf Ђ5readdataКbрЕ "$ЩQDžSAЁC qDB‚AСRIntegхV'qh= (сRХ/h 12d/'fBXS Ї: ЋYКZЊD€Ћ above`!de is @remark@2oРut whi#;ƒ$depend!q=@%sЃЇС"џџџџPџџџџLџџџџPџџџџPџџџџLџџџџLџџџџџџџџџџџџLџџџџџџџџLџџџџџџџџš џџџџ  € &А€ >X€ .˜ и€ 4Ш€ .€ Fа€ J0€ А ш ј€ ,€   8 H €  P ` h € џџџџ€p € џџџџj~x ш € џџџџ"  № € ^ј € &X € $€ € $Ј € @а € ^ € p € x €ˆ 0' Р € BШ   € >P*  8   H `  h )x       И Р € џџџџШ 0'а  € џџџџ€ € џџџџ~~  € џџџџ" ˜ €  €Ј €А €И €Р € 0Ш ј € џџџџ€ ,@P`p €€ .€ џџџџР€ џџџџ" Ш ар€ џџџџџџџџ˜Эџџx–рW---------------------------------------------------------------------------------------ќ р Sub : GoGoDoorTaggerDOр DateTime : 12/1/2005 17:49e2.р Author : Richard L Binningр Purpose :џџPрW---------------------------------------------------------------------------------------џџрЩ&˜ (B@*џџџџџџЩ€|џџxЃ&pІ ЖError .!0Ж ( .!2Ж9) in procedure GoGoDoorTagger of VBA Document ThisDrawingA@,јoџџ№р 7See if the aecdoor object has a door tag anchored to it–€[йЖACAD Doc Begin Command ... 8жрForcing o_DoorObj to be nothingэА.:р0Add hook procedure? to ensure "esc" isn't pushedр Select Case CommandNameрC Case "AECDOORADDSELECTED", "AECDOORADD", "DROPGEOM", "COPY"р, If Not o_DoorObj Is Nothing Thenр4 GoTo AcadDocument_EndCommand_TagDoorр Elseр6 GoTo AcadDocument_EndCommand_CleanExitр End Ifр Case Elseр2 GoTo AcadDocument_EndCommand_CleanExitр End SelectoџџИ–рЩ>Ј[йЖAcad Doc End Command ... 8ж 8ъ :Аœš@dџџšBkџџјSџџ№šBшnџџрЃ@и[йЖAcadDocument Ready to Tagжр%If DoorTagger.AddDoor(o_DoorObj) Thenр Debug.Print "Success"рEnd IfэА.:ADЃBрadd hook removal procedure hereЩр|џџиЃ>аІ ЖError .!0Ж ( .!2ЖB) in procedure AcadDocument_EndCommand of VBA Document ThisDrawingA@,oџџH–@рW---------------------------------------------------------------------------------------р Sub : ProcessDoorsр DateTime : 12/8/2005 17:51р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------р]ђ€]ђ ]ђИ]ђаЩRШэ (!T.F F!VЌ œ F!X'Jџ Lў J“р Stopэ L.N N$Zœрadd property set to Door Object NA@\ NA@^kџџ№рclear mvblocks dictionary L!b FB@`џ LўШkџџp dB@fЩX|џџPЃRHІ ЖError .!0Ж ( .!2Ж0) in procedure Tagem of VBA Document ThisDrawingA@,oџџа–№рW---------------------------------------------------------------------------------------р Sub : AcadDocument_ObjectAddedр DateTime : 10/15/2005 00:09р Author : Richard L Binningр: Purpose : Modified 12-04 to change object to acadentityрW---------------------------------------------------------------------------------------ррStop]ђP[йЖEntering ObjectAdded Event: !bжЩnјр;Check the object added and react if it is an aecdoor object œэ !b %v.: : (%xœ[йЖ Door addedжkџџ eэ !b %v.j j (%zœ[йЖ MVB AddedжkџџШkџџРЩИ[йЖExiting ObjectAdded Event: !bж|џџ€ЃnxІ ЖError .!0Ж ( .!2ЖC) in procedure AcadDocument_ObjectAdded of VBA Document ThisDrawingA@,oџџ№–p]ђА]ђа]ђ№]ђ]ђ0р)Set o_ADTDoc = Application.ActiveDocument !’ ˆB@р% Access the current drawing database.э ˆ!”.Œэ Œ!–.€џ jў €“[й j!жџ jўШр(o_ADTDoc.Init Application.ActiveDocumentoџџР –P šA@,oџџ  џџџџ˜ ЖAECDOORADDSELECTEDKЖ AECDOORADDKЖDROPGEOMKЖCOPYKЖ PASTECLIPKTџџџџPџџџџ8р7Since the project door tag is location based, each doorр(will need the "DoorObjects" property setр-Check for default tag definition - INCOMPLETEHр(If default tag present then - INCOMPLETEdyрDotherwise prompt user for correct tag before proceeding - INCOMPLETEk for р &remove Door from dictionary collectionise рimport tag if necessaryр@check for presence of tag definition - inside following functionџџџџџџџџxр "AcadDocument Ready to Tag It!"р8 "Got a Door!" & vbCrLf, vbInformation, "Door Detected!"џџџџxџџџџМЖAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit @ Pub€ Sub GoGoDoorTagger() '-ЗS€,‚8:Œ9 DmTiх : 12/1/2005 17:49Au thor : Richard РL BinnР{јPurO€џ/R)@ €OSrr!Р#GoTo 3_EAСX V.In„it‚oolsФ… 0ExitIЫfƒ:Ф Ms@gBox " " & @.Number" (ХDescriC8& _‚A'С") in proc edureL3 o f VBAР1cu ment ‹йEn>d…*Р”І@q A cadDoУ _BeginCommand(ByVa l DяAs Sєng€žA$Deb@ug.Pri€"аACADA Х p ..."шЃ'Forc`B o_-Obj to €be nothbEA Set= N‰'Add hookЇ"?ens$"€)" isn't pushed$ lect >C!Žo!aТ"AECDOORADDSELECTE0D", ЈЁDR@OPGEOMaCиOPY`“'eЬIfсшIsР5ќenШЩbWъ4 9dю_€С'PEBŸ Šƒ: Cleana[ѓq РHIf ‚$Д ? K, Uea3 buіbСh€LvRV`D!Vџ‹x5*ЂtEwK\`eB\ћЄ\SЂ4LЁ0ŸKAN’KРOPASTECјLIP$M! aŸL%џхz4ъK%‡=%с=џЗu‘%1М$eЏћ€_ +!ГA_}вM_t 0Z1n%Q рReadyAE6=†"Y* It!eoЁ9€рz.АJб( цN)=?JSuccјessЕA u?QS@Call PAbsўsёl0‰^ро Ѓ'a5UremoЦv`gherр§пp @‹зpOCЂ5pDoq№oqrr.oqџ1 0=q‚Яq:ЈСџ–с"yFYп–‡щ--РŠ р№”{”' М–8Ж–51AџП–П–П–/ѓDim di c_New’' №‚ А S#ng.DDicЎaryar_жVariaЮnpЏссeaТ‘ёОo_Ep‡0A œitSЫ)а7emЋž[ё3z =@]eЕ.Т_‡ А<).CouРИ> 0HSN€%‚w'StФopBDim@аР‘A^AecD ReƒЯРDebug.€q@yr"Рйer7DhBo фEv-: “ƒpЦХТ‹Ўе€УЎ 'C€heck th†#aСD a€zrea@ct if `_i‚s@ aecd!zу(#If TypeOf Is ƒ@v ThenЃ!7' "Got aЂ‚!avbCrLf, vbIn formaСb, ""‚Det ~edЮ! \СaSeAС9Р = fa%!dTњoC#(У&$(‡`aaрkger.@+Ё(іo" ) !j3С %hˆ Elsўe#g>Ќ cРџAЁџр  Р ^` љed5BЁМТ9QЄЯ‹WрЅW4IDb IЌџ;WПЎПЎA:Э­Е?АœAСPublicТget@*сЫStyples(РOд > ІрgBhъхADTрКф‡%МƒappсNewpBaspeAppрЂjCdмocDСЧ'У'Ф$= ˆ.A zveЧЗЁ .InpAШh–.кQ ‚ '_cessRFcurr0L dl daшtab  .ГqA Ь= !Џ “ АЖsp2 .lFа{EachФVInƒNs3й*o_ .№Nameѓr…B\ќo_CуwЛx— VIt d‚Get†_orScalph|0/15/2005@ 00:09СA utРЁJ: Richard L 0Binn@МPurpo€ЪModified 12€-04 to `nge o‘aѓРGSitРН>SN€%A‚w'StopBDim hрN!/Aec $PReУgDebu,g.Р8 <"рlerЃСyЈ7 Ev€:рIў&7цbт KWu@cW 'Check K …#aСD a€zrœea`Œ`„`_is@р aecd!zу(#If TypeOТf$ Is @v0 The›…dGo(t aBƒ!ЁbvbCrLf, vb$In@™maac, """DetР~edц!@]ХdSeсС@# =  bХ!dTo§У&(УЦ$Ш‡a€l0ger. cЁ(o{Т )ЌЁ 4С Ђ%h( ElseџД#?Ќ cРџсЁџПр  Р ^` ќed5 BAН"?ёЄ+Xч€ІX4IDb щЌлWџ_Џ_ЏA:mЎЕпАЁœсС@Publicbžg et@*ЬStylxes(р'?@Rh > ж@4r4њѕADTР]DDe^УappqNewQ8BaspeApp№R5#dмocЄсч'У'Ф$= ˆ.Aа{veЧЗЁ .InРAi–.кQ ‚ 'р_Г‘†ЂFcu№‹@Ndcl@ datab  .gГqA = !Џ Ж “ Аsp2 .l…F |EachWtInƒs3й*o‚_ .NameѓчТ…B`\o_CуЯw y— bVIt dP0Get_PorSc alpИ|(Яр'?@Rh ж@4Чr4њѕADTР]DDуe^Уappq№uQ8€BaseApp№уR5#docЄсч&'У'Ф= ˆ.A9 |veЗЁ .IjnРATЇ.кQ 9‚ 'р_!‘ЂFcu p•@Ndcl dattab  .ГqA =f !Џ “ Аs[p2 .lF |EгрWInƒs3 й*o_ .NamЯ4‘вƒB`\o_CуŸw y— bVIt adPGet_PorScalpИ|dToу#(УЦ$ШŠџa€lŠр+Ё ВСя БВ 4с Ђ%hHŒр ElseД#?lПџcРџAРџр  Р— ^` ed5џ BЁО"?ёЄ+X€ІX4ќIDb щЌлW_Џ_ЏImЎЕпАQNё`Pubˆlic2Oget AfStyles(Яр'?@Rh ж@4Чr4њѕADTР]DDуe^Уappq№uQ8€BaseApp№уR5#docЄсч&'У'Ф= ˆ.A9 |veЗЁ .I^n€q 8кQ ‚ B'р_cessЂFcHurr€L dcl  datab  .Г3qA = !Џ л“ Аsp2 .lšF |EрWInƒNs3й*o_ .xNam4‘вƒB`\oў_Cуw y— bV It dPGet_УPorScalpИ|dџ6Hџ(џџшў”œ(V xџ8 lџhџ`џ\џXџtџdџHџ(џџшўд`Kм!dџ$ Qdџ[`џpџўˆ\џГ lpџўЄ lpџ=tџdџtџ є ldџ=lџdџdџlџ \ldџ= hџdџ"XџH 0lXџTџhџ 0lTџЧЂєџpzџ§Э\џГ pџў‹\џ( ќc= hџ ќc=lџ ќc=tџKўџ~'Ьў'ьў' џѕXџ dџdџ lXџћў#Pџ*#Lџ*#@џDџ HџHџ ,lDџ*#<џ*F,џ 2 PџLџ@џDџ<џ)dџHџ6,џ џьўЬў;А`<$`џ\џlџtџhџpџ8 PџLџDџ@џ<џdџHџ,џ џьўЬўШ € ќјtџ ltџў У ltџ= pџ)`џlpџ=[dџlџ$ l`џ=hџ)dџ`џ9Xџdџ$ pldџ=[`џlџ$ lXџ=\џ)dџ`џXџdџ:Dџ%\џ dldџ=TџdџKџџlTџ=[dџhџ 0dџ8Ш<V $hџtџlџTџpџ\џdџ`џXџ0 ќЦ  0 ќЦ`  t4pџ$ Œlpџ=5tџpџlџtџ €5>lџ1xџ4,V xџtџlџpџ0 ќЦ  А\џ$ 0l\џ=tџ\џ\џtџ 6l\џ=7lџ\џ\џtџ |l\џ=8pџ\џ.\џXџpџ p9>XџFHџ%lџ d7l\џ=:hџ\џ5Hџ\џ€ hџ h:l\џ=5Dџ\џXџDџ €5>Xџ1xџ8АDV ,xџlџpџ`џtџhџDџdџXџ\џHџ0 ќЦ8  0 ќЦИ   „ HW8џ3ќ"qHџ58џўФ(џI@%Hў›3\џ§“ @Lџ§“ @Hў˜4G((џ%\џўЎ8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕќўІ68џШўИўG((џ%\џўЎ8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕќўІ68џШўИўњѕќўІlHџ§i(џ%Hў›3ќўM(џ §lџ§•\ ф \V Dlџќўin2;c’n\џLџ8џШўИў˜ўX№KџџPџ$ 0lPџ=tџPџ € ќcћв\% !*#LџPџtџ јPџ l"/LџPџ“ € ў У“%#!*#LџPџtџ јPџ l"/LџPџ € ќјlџ)llџ=PџPџ<џ $lPџ=lџ<џќі\џPџ$8џ PџPџ l8џѕЬPџ%%!*#LџPџtџ јPџ l"/LџPџ &14џl4џ'ћ~У(CLџLџ )10џ/Lџ:џl0џF џ%Pџ$ 4Pџ P*Qџ[џ$ )Pџџ+џ+Pџtџ Pџ l,lџ=pџ)Pџџќэ\џpџ р -pџ ($8џ PџPџ l8џѕЬPџB .Cџџ-CLџLџ /2Lџџ%0!*#LџPџtџ јPџ l"/LџPџ -pџ ( llџ= XџlXџ=[PџTџ$1 `PџTџV1=2[Pџpџ ј Pџ:џl4џF џ%Pџ$ 4Pџ P*Qџ[џ$ )Pџџ ќc=tџ ќc=pџ ќc=lџ ќc= Xџ ќc=Tџh№DV ,tџTџ4џpџ\џXџlџ0џ$LџџPџџџ<џ      џџџџџџЩ€|џџxЃ&pІ ЖError .!0Ж ( .!2Ж9) in procedure GoGoDoorTagger of VBA Document ThisDrawingA@,јoџџ№–@р7See if the aecdoor object has a door tag anchored to itрIf Not CheckП И Ÿ Г/+№ё| +dљ+ Ыhoѓвf%hП+.А2".a.mPБ&B SЯ%Я%DћЂ&Я% 5%%љў 0p`}*%uїџ™яяЉmБС5$ёџь#!1ЏЏЅ!E#џPЋ)MHt р…ёžUP№ Rea`r^d<‡•ˆ)z It!%?oр!9арІ.0Jб(V?)Н>šSucЁm/Е‘ ХПPtЗPCall PAŽssё?˜Qп…CЦ7ѓ'aСЕTremov_рiё“her3-пœ;иœџ%(5pГ/ooЃžoџ1 0=‚Я:дСїEБ>@lv%qYпТГЇ--РЖ ёLR:|' МТ8ЖТ5ў1AПТПТПТ/ѓDim €dic_New’'& p‚А S#Йngp.Dicбіšar_жVariaЮnpлсСeaТ‘ёОo_E№†0A œitƒЫ)а7emЋЪ[ё3z =Р\eс.Т_‡ А<).CouРИ> 0HXџFHџ 6Hџ(џџшўXџtџ $lXџћ~/Xџ№dџtџ єldџ=lџdџdџlџ \ldџ=hџdџ"фўH 0lфўрўhџ 0lрўЧюєџpzџ§Э\џ pџў‹\џ( ќc=hџ ќc=lџ ќc=tџKўџ~'шў'џ'(џѕфў dџdџ lфўћў#Xџ*#мў*#аўдў иўиў ,lдў*#Ьў*FHџ 2 XџмўаўдўЬў)dџиў6Hџ(џџшўАЌ<$`џ\џlџtџhџpџ8 XџмўдўаўЬўdџиўHџ(џџшўШ € ќјtџ ltџўУ ltџ=pџ)`џlpџ=[dџlџ$ l`џ=hџ)dџ`џ9Xџdџ $ pldџ=[`џlџ$ lXџ=\џ)dџ`џXџdџ:Dџ%\џ dldџ=TџdџKџџlTџ=[dџhџ 0dџ8Ш<V $hџtџlџTџpџ\џdџ`џXџ0 ќЦ  0 ќЦ`  t4pџ $ Œlpџ=8tџpџlџtџ €8>lџ1xџ4,V xџtџlџpџ0 ќЦ  А\џ$ 0!l\џ="tџ\џ\џtџ 9l\џ=:lџ\џ\џtџ |l\џ=;pџ\џ.\џXџpџ p<>XџFHџ%lџ d:l\џ==hџ\џ5Hџ\џ€ hџ h=l\џ=8Dџ\џXџDџ €8>Xџ1xџ8АDV ,xџlџpџ`џtџhџDџdџXџ\џHџ0 ќЦ8  0 ќЦИ   „ HW8џ6ќ"qHџ58џўФ(џI@%Hў›6\џ§“ @Lџ§“ @Hў˜7G((џ%\џўЎ8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕќўІ68џШўИўG((џ%\џўЎ8џ(шў%LџўЎШўћ”ИўўФЈў@ћМ˜ўBѕќўІ68џШўИўњѕќўІlHџ§i(џ%Hў›6ќўM(џ §lџ§•\ ф \V Dlџќўin2;c’n\џLџ8џШўИў˜ўX№KџџPџ$ 0!lPџ="tџPџ € ќcћв\%#$*#LџPџtџ јPџ l%/LџPџ“ € ўУ“%&$*#LџPџtџ јPџ l%/LџPџ € ќјlџ)llџ=PџPџ<џ 'lPџ=lџ<џќі\џPџ$8џ PџPџ l8џѕЬPџ%($*#LџPџtџ јPџ l%/LџPџ )14џl4џ*ћ~У+CLџLџ ,10џ/Lџ:џl0џF џ%Pџ $ 4Pџ P-Qџ[џ $ )Pџџ+џ.Pџtџ Pџ l/lџ=pџ)Pџџќэ\џpџ р 0pџ ($8џ PџPџ l8џѕЬPџB 1Cџџ0CLџLџ 22Lџџ%3$*#LџPџtџ јPџ l%/LџPџ 0pџ ( llџ=XџlXџ=[PџTџ$4 `PџTџV4=5[Pџpџ јPџ:џl4џF џ%Pџ $ 4Pџ P-Qџ[џ $ )Pџџ ќc="tџ ќc=pџ ќc=lџ ќc=Xџ ќc=Tџh№DV ,tџTџ4џpџ\џXџlџ0џ$LџџPџџџ<џ      Ћ! 4нС Ђ%h* Њё‘Я+>€“>IDт*щ™џл=_œ_œA m›ЕпЁ‰сЎPublicb‹Шget)hs(Р5oѓРVlo_ €NтN@&psCpo_ADTЧ‡p‡oA app РеуЁVsAppрЂPуиdocdkw'Q„ Є= .Aa0@ Each In ЅУQ ЕД 'Stop  Set o_Ent = €ea_Door €If Not CheckTag(X) Then PЄ'add property sЖto І Object1AttpachP2‰Vtag it hereBEC_An chor_ ToЬЅ *End If‹ 'remove-from dictionar†y‹€ _NewdЈs.Rƒ(—.m8ID)Œ-Hger Next‹ТZAMVBlˆock…AAll‚9On Error€ GoTo 0‚ Ex˜Sub D €Bem_‚:СjMsgBoxD "" &.@Number" (ХDescrьipF_BAС ") inA|ce dure B o f VBA~cume€–ThisDrawing"  С4&Private € Aca(dDoC _УTAdded(ByVabl AsD@['F-?Q 'B$: ж$AD.Time ure GetDoor of Module DoorTagger AEC_MVBLOCK_DEFS^,<СgtFІьФя!ї2уИчiПC‘S№ојі2С/џџџџ+уИчiПC‘S№ојітИчiПC‘S№ојі‘2сџџџџсИчiПC‘S№ојіІНgžIеDИ9Ж lЭ 2ObjectDBX.AxDbDocument.16_Єe HЂjk"­7ьfЉ3Йџџџџ DEnter a Layer name to search for:   Layer ' ' does not exist ' exists џџџџT  iЗъDpИlGЁЯЄ•ЖL]OАŽbпJNЕМ[ЫvgUоAƒљU/тTДЦsЅЈЉ!|TEГlЩјМЯe Ч<ŸђФHŽЅ||‡ъ–ŸШ[qJ—І eР‹UserFormdВШTXOЉFnБаЙwњ F3Dynamic 7џџџџ џџџџ)7№№СЫжSПlOЈ ?rJЅŽTНАœ`™IЎgrб ИxШ„І‹~@ЎЊОЁ. pЏ-іeXXIГ/YлLЖ. 18џџџџ џџџџ)70AddMVB `daСЊ"Ф џ#6Т-р+9р У&№loca: 10/15/2005 00:09СAut€ЄI: Richard L Bi nn€APurp osРModified 12-04 @Э ngel oТЭaРGSi~tРІ>3'РТ;…DimрƒрN!/Aec $PRe#iDebu,g.Р8 <"oerG€$4Ђ7 Ev€:ў Iƒ:цe" KWu@cW‰ 'B‘ th†# €Ž 'aр{react ifzis €an aecd`šф(#@šTypeOТf Is @Тsƒыš…dGot a™!vbCrLf, vbInfoˆrmaac, ""ˆDet ed!@]џЁ?ac›С` ­bХ!шdToу#(УЦ$ШŠџa€lŠр+Ё ВСя БВ 4с Ђ%hHŒр ElseД#?lПџcРџAРџр  Р— ^` ed5џ BЁО"?ёЄ+X€ІX4ќIDb щЌлW_Џ_ЏImЎЕпАQNё`Pubˆlic2Oget AfStyles(Яр'?@Rh ж@4Чr4њѕADTР]DDуe^Уappq№uQ8€BaseApp№уR5#docЄсч&'У'Ф= ˆ.A9 |veЗЁ .I^n€q 8кQ ‚ B'р_cessЂFcHurr€L dcl  datab  .Г3qA = !Џ л“ Аsp2 .lšF |EрWInƒNs3й*o_ .xNam4‘вƒB`\oў_Cуw y— bV It dPGet_УPorScalpИ|љ--рЖqСЂсхlТ8fТ51сoТoТџoТП Dim d-Ne2wA,s ‚А SгИng.Dic#Іšar_жVaprian лСeЎaТ‘ОoА$t‘СaEntit3ы(oВ[ЪЁ1z =p\с.Т_ PU).CoтupŽ> 0ј9A ж ‚=Њ.Item`а!1рŽ Eachт In ЅУ•'tTДag it he re Set o_Ent = ea_Door €AEC_Anchor_TagToT` L'removeШfrom dictio0nary N_NDewgs.R3(x.Object8ID) [-|ger2 6Next ЯEnd If -On Error GoTo$ 0‚ ExSuFb6em_: MsgBoxD "" &!.@Number" (… Descrlip _‚.Й") in pro€cedure ‚4 of VBA @Docume€ХThisDrawi`ng" ]LP€rivate   Acad…_Added(ByVal ƒ As3„U'-?Q Z'B$:ж$AD.Time : 10/15/200€5 00:09СAut@™J: Richard L` Binn€AP`urposРModified 12-04 to‚ nge oТЭaРGSit€ >ƒSN€% DimРаAGeoA[Aec3@CmyРwMVBlockStyЦlРрС adtРo„ArchBaseƒEtC'Stop‚РDebug.Р€‡r"сer@E„v‚} фEv@;: AЁУ~Цгk^•Gƒ^ 'C€heck thІ*aсK a@irea ct if~isС@ aecd ‡0#If Type„Of Is р#сТwThenЃA>Ѕk Got aaor!vbCrLf, vbInfoˆrmaj, ""ˆDetР…ed!`dџaaу™С` `š(iХ!шdToу#(УЦ$ШŽ?a 7Žр+Ё(oѓтЃ ) Ћ! 4Сю Ђ%hJ Њ’+>ч “>IDт* šл=џœœA ›ЕџС‰Џ@Public‚‹gфetIhs(Р5#oРљvlo_ €NтN@Fp‚s#to_ADTЇpѓЇotpp реЁVЁs8AppрЂPуdo6cd‹w'Q„ = ).A@уv }ap№p.In а VЊ , f'рЌcess!Bscurr dуХ datab‰Ю.cс= !ЏL “ b=  . lFАrEachуpNа Inƒ@b ‡@й*B.NamФ†џвxB№Rу'›o3— bIIt dCGeŒt_рerScaVс5DsHрˆџџџџŽŠ„џџџџџџџџ@ўџџџџџpџџџџџ џџџџ@ўџlџџџџџ @ўџџџџџhџџџџџ ƒ&џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџ№џџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ(@ўџџџџџXџџџ џџ џџџџ@ўџџџџџHџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџ`0џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРшx`~џџџџzџџџ џџ џџџџџџџџџџўџџџџџ„H4 џџ@ўџ@ўџџџџџtџџџџџ @ўџxdџџџ џџ ˜@ўџ Tџџџ џџ џџџџ@ўџџџџџRџџџ џџ џџџџ@ўџРLџџџ џџ џџџџ@ўџP<џџџ џџ џџџџ@ўџЈ8џџџџџ џџџџ@ўџи4џџџџџ Ш@ўџџџџџ0џџџ џџ x@ўџ№,џџџџџ џџ@ўџ(џџџџџ ш@ўџџџџџ$џџџџџ а@ўџ8џџџ џџ џџџџ@ўџhџџџ џџ Р@ўџџџџџєўџџ џџ џџџџ@ўџџџџџфўџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ `@ [џџџџxџџџ8џџџџ%P џџАџџџџџџџџџџџџџџџџџџ„џџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџА Ш 8zџџџ џџиџџџџ џџџџџџџџ№џџџџјˆџџџџ@џџџџџџџџџџџџXџџџџ@џџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџуюE*\R5*#72*\Ra*#6$*\Rffff*4V4501ede1*\R0*#14*\R0*#19*\R0*#13*\Ra*#5*\R9*#6a*\R5*#5f*\Ra*#5$*\Rffff*4W4501ede1пўЪx€€€€€ џџџџ€ џџџџB €(š@0€ $  ар€ џџџџB ш€ ^№€ P€ "p€ $˜€ Р€ ^и€ 8€ џџџџ@€ џџџџ H+X =pˆ€ џџџџ˜ Ј€ џџџџ€А€ џџџџf~И€ џџџџ € џџџџB  (€ ^0€ € "А€ $и€ € ^€ x€ џџџџ€€ џџџџ ˆ˜ ЈИР€ џџџџ€ џџџџШаи€ џџџџ€р€ џџџџhшP€ џџџџB  X€ џџџџ `p €˜ € џџџџЈ€ џџџџBА ИШ€ џџџџB  а€ ^и€ 8€ $X€ $€€ Ј€ ^Р€  €(€0€8€@€ џџџџHP h x ˆ ˜ ЈРШ аи р№ј€ џџџџ€ џџџџ€ € џџџџf(€ џџџџ€ џџџџџџџџрЭџџx] ђ@] ђh]ђ@–ˆ]ђШ ЖoSoftware\Autodesk\AutoCAD\R16.2\ACAD-4004:409\Profiles\Architectural Desktop - Imperial\Preferences\AecDCArch40ЖDCAecContentRoot Œ$Ž'ŠntэЦ.„dll,-1iџџ–ррW---------------------------------------------------------------------------------------dр Function : AddDoor џџр DateTime : 12/4/2005 21:33lyр Author : Richard L Binningр Purpose :џџ€CрW---------------------------------------------------------------------------------------рЩ” „Аœ ’!d „%–œ ’!d ’ „B@˜kџџРkџџИЩАЗ'~zџџ Ѓ”˜І ЖError H!JЖ ( H!LЖ+) in procedure AddDoor of Module DoorTaggerA@4iџџ(–HрW----------------------------<џџ<џџ<џџџџџџš0{A9DA19CA-FD17-4DC9-8659-B15A400EBEDB}{ADF494CD-9EE2-4683-A687-E11A3780D381}џџџџа€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %џџџџƒўџџџџџџџџџџџџџџџџџџџџџ%‚ ‚џџџџўџџџРџџўџџџџџџџџџџџ%џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџ˜h@џџџџџџџџџџџџџџџџџџџџџџ`уюE$*\Rffff*644501f495пџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџќАAttribute VB_Name = "frm_ChooseT ag" Bas0{A9DA19CA-FD17-4DC9-8659-B15A400EBEDB}{ADF494CD-9EE2-4683-A687-E11A37€80D381} d@GlobalSpacoFalse ŠCreatablPredeHclaIdиTФru BExps0Templat€eDerive•Customiz‹DOption 0licit ч[–ѓOWџџˆЖџџрф„–ѓOWџџˆЖџџџџџџџџ<џџю(K€Mџ”Jj%9­zv wЃо–ЌM†Ю”zuzБХйэХмвLOН”ж2wl љŸЄЛ@fI’ƒDѕь ‡џџџџџџџџџџџџx љŸЄЛ@fI’ƒDѕь ‡ю(K€Mџ”Jj%9­zџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<џџ<џџ<џџџџџџš0{A3770D76-џџџџџџџџџџџџўџџџМ1џџџџџџџџџџџџўџџџ(џџџџџџџџџџџџџџџџџџџџџџџџ96DE-4DAC-86CE-1E947A757AB1}{C5EDD9C5-D2DC-4F4C-BD10-94D6329D776C}џџџџа€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %џџџџƒўџџџџџџџџџџџџџџџџџџџџџ%‚ €џџџџўџџџРџџўџџџџџџџџџџџ%џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџ˜h@џџџџџџџџџџџџџџџџџџџџџџ`уюE$*\Rffff*634501f495пџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџїАAttribute VB_Name = "frm_Query" " €Bas€0{A3770D76-96DE-4DAC-86CE-1E947A757AB1}{C5EDD9C5-D2DC-4F4C-BD10-94D6329D776C} dGlob„al‹Spaco False ŠCr@eatablш  $м §Dџ§lџ6hџѕѕ€@џ4l@џ€^q<џЕAttribute VB_Name = "DoorTagger" Option Explici@t Pub$ o_˜Obj A`s Aec8d ic<2s Scriˆng.Dic˜ary D€im tmps”ngCS cFun0 Init`Tools().B eancHEVal EZ= ReadReg!(HKEY_CURRENT_USER, "Software\A€utodeskCAD\R16.2\A-4004:409\Profiles\Architectur=D€top - Imperial€eferXencC4$0"9DC€˜ContentRoo†t€ a) '€‚_ПSourcЧe& "€ШSet‚ А= New”Б0End …ЁЋAdzdAU(УrOrKX'-?QР:†' : D#ADateTi@Ѓ€12/4/2005 21:3†3jhor : Richard L BinningPurpјose€/R@KUOРЧrr@$GШoToХ1_ED@ If NoЩmI sh, TheРБР‚M .Exihstsi.@мРœIмD)Œ СF….РRDшх , ‚‡МIfуeЂы0bУЄ3рƒTrueB.tъKd#:EMs@gBox "т! " & .Number€" (e€hc…Ž& _‚ …") in procedureЅ, of Mod0ule „Х– !™_Remove‘т_lngсidA`№Longџ_J?Hщ_T`2:07џС_`_`?= Є Zя„`&5л_у І'Iх\џ iв#_‡š_Чџ_ќrrџ_ќ_ЈT`С`єGebъ(PТzь/Є`п„LL„s8 mд!his0Draw QХKdTўosO‰OI@M…!?мs_7‰s…пŠrаŠ‘?Q =р 6*Check }А\Fenўe€~P 1GДoG8џсCu!№uE a!JG0/15ƒw01ј:04ё_Gwwя?cŸo_РMVBRef$Р0lockхEn"tВcad itƒqЇo_Anc„gЃЋУpToPЕGўe |Ђ­яA€~•8N„ FP€EachРvА€Ћ`zч,jelS8pactQ%5Ty№peOf%2З ~ћђ2Ж=sз0Е*V;№p.P6гяo_їБ.№уЋЛр=ќo_ч+і… 0"{џТ@U№–„Еrc… `џџџџџџџџџџџџдў@€џџџџ”$$j”iƒ|фp ..–ѓwџџ#ˆЖџџџџџџџџ<џџw&AГ ЋHŸ-?+ЃKYdйuŽ!=в…Ф  Ц&0ПK™КГвLЋП”R‹еДДџџџџџџџџџџџџx0ПK™КГвLЋП”R‹еДДw&AГ ЋHŸ-?+ЃKYdџџMEџџџџџџџџџџпџџPџџџџџџџџџџџџџџџџџџTD@џџ$џџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€[LџџџџSџџџџS”џџџџ>"џџџџ!”џџ џџX ”џџj ”n ”џџr” v<џџЦ<ˆџџ<,џџ<0џџ<4џџ<8џџ<X<V<<џџ `џџџџџџџџ˜дўk€џџџџ$$*”iƒ:џџџџ џџџџџџџџ„dNam FP`џџџџџџџџ 0џkџџџџџџџџ”N” ЄOџџџџxџџџјeџџ%`„Rџџџџhџџџ џџEn`„TџџџџXџџџ џџe Su „WџџџџTџџџH(ByV% f(`џџџџџџџџ мўkџџџџ˜!!a”iƒџџџџ џџ џџџџџџ„---- „iџџџџtџџџШ--% „mџџџџpџџџшmand% „qџџџџlџџџ5 14 %€ўџџџџџџџ8џџџџџџџџџџ% „EџџџџxџџџX@%(%T%ƒўџџџџџџџ˜џџџџџџџџџџџџџџ %‚  џџџџўџџџШџџўџџџџџџџџџџџ %@ўџџџџџtџџџџџ џџџџ<(рPа „Gџџџџtџџџ`џџџџ „Kџџџџpџџџhџџџџ „ŸџџџџhџџџPџџ@%`„:џџџџxџџџџџ€`„џџџџxџџџ џџ€`„:џџџџxџџџџџ€ˆ`„:џџџџxџџџџџ€`„:џџџџxџџџџџ€xD%`„џџџџxџџџ џџ€џџ ЄЧџџџџlџџџи`„:џџџџxџџџџџ€`„:џџџџxџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш`„:џџџџxџџџџџ€џџџџPXџџ џџ@ўџрtџџџџџ џџ@ўџџџџџpџџџџџ џџ`„џџџџxџџџ џџ€0џџџџ џџ џџџџџџ<4FH<џџџџџЈ`„:џџџџxџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜xџџџџ`џџџџАџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`јџџџџp `„:џџџџxџџџџџ€џџџџ@ўџ`џџџ џџ (@ўџШPџџџ џџ @ўџј@џџџ џџ Ј `„џџџџxџџџ џџ€@ўџ0џџџ џџ џџ`„џџџџxџџџ џџ€џџџџ@ўџh џџџ џџ џџџџ@ўџ€џџџ џџ џџџџ BH`џџџџџџџџџџџџXџJџџџџџџџџ„‚”@ўџџџџџџџџ џџ џџџџ@ўџџџџџ№ўџџ џџ џџ@ўџјьўџџ џџ џџџџ@ўџџџџџшўџџџџ р`„џџџџxџџџ џџ€џџџџ@ўџ фўџџџџ H@ўџџџџџрўџџ џџ 0@ўџ( мўџџџџ @ўџX иўџџџџ `„џџџџxџџџ џџ€bi@ўџџџџџдўџџџџ `„џџџџxџџџ џџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџШ \џџџ џџ џџџџ@ўџИ Lџџџ џџ џџџџ@ўџр <џџџ џџ џџџџџџџџxz4 |<&Hџџ8  (`„:џџџџxџџџџџ€liџџџџp №аџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX (   џџџџˆ џџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа 8`„:џџџџxџџџџџ€џџџџ@ўџј ,џџџ џџ А@ўџ џџџ џџ џџџџ@ўџџџџџ џџџ џџ џџџџ@ўџџџџџќўџџ џџ џџџџ@ўџˆ јўџџ џџ џџџџ@ўџџџџџєўџџџџ џџџџ@ўџp №ўџџџџ x@ўџ  ьўџџџџ @ўџџџџџшўџџ џџ @ўџИ фўџџџџ 0@ўџа рўџџџџ @ўџџџџџмўџџџџ џџџџџџџџш џџџџ№ џџџџј рџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџ№ џџџџџџџџџџџџи џџџџџџџџџџџџџџџџ џџџџp џџџџџџџџ џџџџџџџџџџџџџџџџЈ ш џџџџ&`џџџџџџџџ `„:џџџџxџџџџџ€џџџџ@ўџџџџџPџџџџџ (@ўџџџџџ@џџџ џџ @ўџџџџџ<џџџ џџ ˜@ўџH 8џџџџџ џџџџ` џџџџџџ@ўџџџџџ4џџџџџ џџџџˆ H џџџџџџ@ўџџџџџ0џџoџџ џџџџ˜ p џџџџџџџџџџp џџџџџџа  а `„:џџџџxџџџџџ€џџˆp (tџџџџџ џџ@ўџpџџџџџ џџџџџoџџˆFH bџџџџ`џџџџџџџџџџџџќўJџџџџџџџџˆ•”џџџџш`џџџ џџ џџџџаPџџџ џџ џџџџ@ўџ@џџџ џџ џџџџ0џџџ џџ џџџџ@ўџ џџџ џџ 0џџџ џџ џџџџ@ўџџџџ џџ џџџџx(№ўџџ џџ џџџџxьўџџ џџ џџџџ@ўџшўџџџџ џџџџџџџџpфўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €@ўџрўџџ џџ џџџџ@мўџџџџ @ўџиўџџџџ @ўџдўџџџџ р˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџрXPџџџџџ џџџџ@џџџ џџ @ўџ<џџџ џџ @ўџ8џџџџџ 0@4џџџџџ Xџџџџ0џџoџџ hџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџ p@œ|џџџџџџџџџџџџџџџџџџџџџџ @уюE$*\Rffff*624501f160*\Ra*#6*\R1*#e3*\R7*#78*\R7*#8e*\R4*#e*\R5*#72$*\Rffff*4V4501ede1$*\Rffff*4Z4501edf3*\R1*#6e*\Ra*#5*\Ra*#5*\R1*#6b*\R0*#1*\R0*#e*\R5*#5f*\R0*#19*\R0*#13*\R0*#14пџџџџ4ўЪ™€€ џџџџ€ \€ џџџџ" h p€€ џџџџ" ˆ€ >€ "а€ Lј€ H€ "X€ *€€ >А€ №€ ,€ :@€ 8€€ 8И€ №€ 6H€ џџџџ" P,X€ &ˆ А€ 6И€ "№€ J€ 2h€ : € р€ <ј€ 8€ P€ 8h€  И€ џџџџ" РШ€ џџџџ*аB. P` hp x€ ˆ€ џџџџ€˜$  (+Ш№€ џџџџ€ ј€ ,€ 8€ X h€ џџџџ€p€ &x Ј€ џџџџ€А€ џџџџ|~И8€ џџџџ"@€H€P€X€` hx ˆ˜€ Ј Р а€ р ј€ .  @ P X € џџџџ"  ` € ^h € &Ш € $№ € $ € @@ € ^€ € р €ш €№ €ј € 0' @ € BH   22  *и  №    € џџџџ € џџџџ( 0'0 ` € џџџџ€h € џџџџ~~p № € џџџџ" € € € €` €h € 0( $p € џџџџ€ ,ˆ И 0 € .Ш € џџџџ € џџџџ" P (XH€ џџџџџџџџxЭџџxрUPublic WithEvents ACADApp As AcadApplication ' Use with Application Event Examples– &B@(oџџx– р7See if the aecdoor object has a door tag anchored to itё рIf Not CheckTag(Object) Thenё |ё р FIf no tag present, check to see if we have already set the default tagа}ё рEnd If~ё рIf default tag present thenё А~ё р$check for presence of tag definitionё pё р7otherwise prompt user for correct tag before proceedingё рimport tag if necessaryё р&Set correct layer by getting layer keyРё р3get correct scale for tag by reading database scaleё Р‚ё р1anchor tag to door by prompting user for locationр2check for presence of property set for door objectрimport as necessaryё …ё р/store the door tag style name for future re-useё oџџш–р[йЖACAD Doc Begin Command ... :жр†ё рForcing o_DoorObj to be nothingё эА.<р0Add hook procedure? to ensure "esc" isn't pushedё р Select Case CommandNameё 0‰ё рC Case "AECDOORADDSELECTED", "AECDOORADD", "DROPGEOM", "COPY"ё pŠё р, If Not o_DoorObj Is Nothing Thenё P‹ё р4 GoTo AcadDocument_EndCommand_TagDoorё PŒё р Elseё р6 GoTo AcadDocument_EndCommand_CleanExitРё р End Ifр Case Elseр2 GoTo AcadDocument_EndCommand_CleanExitр End Selectа•ё oџџx–@Щ@h[йЖAcad Doc End Command ... :жё Pšё :ъЖAECDOORADDSELECTEDKЖ AECDOORADDKЖDROPGEOMKЖCOPYKTё `Ÿё <Аœ` ё šBаdџџШšDРkџџИSџџАšDЈnџџ ЃB˜[йЖAcadDocument Ready to Tagж№Іё ЖAcadDocument Ready to Tag It!A@4AFрIf dic_ё р%If DoorTagger.AddDoor(o_DoorObj) ThenЎё р Debug.Print "Success"рEnd IfэА.<ЃDРрadd hook removal procedure hereЩ|џџˆЃ@€І ЖError H!JЖ ( H!LЖB) in procedure AcadDocument_EndCommand of VBA Document ThisDrawingA@4oџџј– ]ђр]ђ]ђ]ђ0э &!Z.N N!\Ќ œ N!^'Rџ Tў R“р tag it hereэ T.V VA@`р remove it from dic T!d NB@bр (DoorTagger.RemoveDoor (ea_Door.ObjectID)џ TўШkџџр oџџи –PрW---------------------------------------------------------------------------------------р Sub : AcadDocument_ObjectAddedр DateTime : 10/15/2005 00:09р Author : Richard L Binningр: Purpose : Modified 12-04 to change object to acadentityрW---------------------------------------------------------------------------------------р]ђА]ђа]ђ№рStop[йЖEntering ObjectAdded Event: !dжЩt№ р;Check the object added and react if it is an aecdoor object $œЖ Got a Door! x zЖDoor Detected!A@4э !d %|.< < &%~œ[йЖ Door addedжkџџ kџџ Щ [йЖExiting ObjectAdded Event: !Y&)Б1q q?1™?џџџџс 4aЉџџџџџџџџџџџџ```Щ ‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ XW—ззW—<   $ 0 ќЦ@  0 ќЦ џ/@џlTџѕЬ­ lhџ <§•l\џq8џl8џѕЧblXџѕЊ(џ (џ`1`џ5(џJXџl`џ$џ4l$џ\џѕ€@џ4l@џlhџ^q<џ