ࡱ> nK*mrU~~~~~~~~~~~~~~~~~~~~~A 2c^@c$o  a  9q a  a 9a  Yy)qQ 9aY 1!    AutoTag4Doors ThisDrawing frm_ChooseTag frm_QueryRoot EntryATVBA_Project)n#AVBACt#bfrm_ChooseTag Pw#f a+ !"#$%&'()/,-.c0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bodeghijklmpqrstuvwxyz{|~frm_QueryPw#uPROJECTwm PROJECTf  ; !"#$%&'()*+-./0123456789:<=?@ABCDEFGHIJKLTUWXYZ[\]^_`bcdefghijklmnopqrstuvwxyz{|}~ID="{80107CA9-8F28-400B-A8DE-4A3BF8745C49}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=DoorTagger BaseClass=frm_ChooseTag BaseClass=frm_Query HelpFile="" Name="AutoTag4Doors" HelpContextID="0" VersionCompatible32="393222000" CMG="0705E6991A679D6B9D6B9D6B9D6B" DPB="8684671A99E619E719E719" GC="0507E4971C171D171DE8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=132, 174, 738, 578, DoorTagger=110, 145, 703, 549, Z frm_ChooseTag=0, 0, 594, 460, , 110, 145, 704, 605, frm_Query=44, 58, 638, 518, , 132, 174, 726, 634, gThisDrawingDoorTaggerDoorTaggeThisDrawingThisDrawingDoorTaggerDoorTaggerfrm_ChooseTagfrm_ChooseTagfrm_Queryfrm_rU~~~~~~~~~m    1 CommandNameObject 1o CompObj aVBFrame$f~o CompObjaVBFrame(ThisDrawing:__SRP_2__SRP_3`frm_ChooseTagHfrm_Querya]DoorTagger*__SRP_4J__SRP_5,_VBA_PROJECT#dirA__SRP_0~__SRP_1 VBA_Project_Version(o_Door lngDoorid lng_Doorid ( 8o_MVB 1IH o_DoorEntdoorobjstrStylestrFilestrNamestrDict SourceObjKeyNamenewScale 1XobjAECobjACEntstrDoorTagName=0* pHd AutoTag4@Doors@T@ = +x k-E J< rstdole>std@olerh%^* DoorTaggerF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  `;HA C:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgrtnTagCenterPoint JAec6_Door_Tag_Project_Scale_Dependent DoorObjects InitDoorToolsAddDooriCS RemoveDoorGetDoorDoors_DictionaryBB$coAddMVB iCSCheckTagqG IwD AttachPropSetImportMVBlockStyle ImportStyleGet_ActiveLayerCheckForLayerByExceptionAEC_GenerateLayerGet_DatabaseScaleSet_DatabaseScaleT7YAT$aX,ChangeTagDefaultDoorAutoTAG_SetDoorAutoTAG_Get  2AcadDocument Ready to Tag Error fĤIx8<  (# ) in procedure AcadDocument_EndCommand of VBA Document ThisDrawingVBE6.DLL  X S x r) in procedure GoGoDoorTagger of VBA Documentam   *\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\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE mation#0MSForms>!SFFr ms3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Micr@osoft : ^ Object Library/;D1u00}#0#k0 mA51786A4B-8C04-4744-A54A-1BA038C243376PageDir \VBE\N.exd 6.E .`M ^AecXUIArchBas@ AcXUIArc`hBaf @1E7B8E200-BF69-431B-9153-1FF0DEF8F613 }#4.7Program Files\ADT I6\ 47ŽAHEC %itiural  Applicn"A221-c@141cXEZ1kO`@ wC!C1H1G0m |`F1__0UI..@8>d~t`3!+ᡁScheduCS\e`udn,6E"-sa!AXDB#AsD`rLib+,C295FFF9-3572-4ED2-9E42-0DAADB8D93E0E}#1krCo0mmontdesk Shared\axdb16enutCADB/CDBX 16.0 Type-t Scripting>.rpinlg!Ej`E4 20B28E718-11CF-893D A0C9054228crrun.d llhf Runtime @ ThisDraw@Gi`D aw52AVH12{4A,w"+Rfrm_ChooseGfpm_Cp oss7TZgф*n2/* Vz ( Q`ueryG QuP ryj2o y)rTDAgerGqTDPog2(ePW1]!PP $rU $`,`=(`(0`((!{51786A4B-8C04-4744-A54A-1BA038C24337}#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  k-EThisDrawing5B452d6d57!ThisDrawingwH.frm_ChooseTag5?452d6d53frm_ChooseTagVfrm_Query5D452d6df0frm_Query)0DoorTagger5C452d6d57*DoorTagger0H|hH0EGAGZ^=JmTMBo']][mܖ1KGSKţrLLLObject AutoCAD" VBAWin16~Win32MacVBA6# AutoTag4Doors.stdole`MSFormsCAecXUIArchBase] AecXArchBase AecXUIBase|AecXBaset AecXSchedule[AXDBLibD Scripting ThisDrawing5 _EvaluateGoGoDoorTagger5GoGoDoorTagger_ErrorE (blnRunningM DoorTaggerG (InitDoorToolsMsgBoxRErroNumber- Description AcadDocument_BeginCommandC; CommandNameh_ (o_DoorObjGvAcadDocument_EndCommandAcadDocument_EndCommand_ErrorH?AcadDocument_EndCommand_TagDoorwq!AcadDocument_EndCommand_CleanExitʖ ProcessDoors9 dic_NewDoors Dictionaryar_Doorsea_Door9o_Ent_R AcadEntityi Tagem_Errorr(Doors_DictionarySCount0vItems`h(CheckTag (AttachPropSetL(AEC_Anchor_TagToEntRemoveϱObjectIDo (dic_MVBlocksxq RemoveAllAcadDocument_ObjectAddedo_MVB=~ AecMVBlockRefAcadDocument_ObjectAdded_ErrorעAecDoorԯObjectIdToObjectM(AddDoor*(AddMVBigetMVBlockStylesfqAecMVBlockStyleo_MVBsaAecMVBlockStyleso_ADTDoc%< AecDocument apptAecBaseApplicationdocAecBaseDocument8Init\[ Application*ActiveDocument\ MVBlockStylest8CheckItԫ(Get_DatabaseScale frm_ChooseTagCommandButton1_Click OptionButton1k@ValueK(strDoorTagName. OptionButton2l@ OptionButton4n@(DoorAutoTAG_SetHide9z frm_Queryh Cmd_No_ClickF cmd_Yes_Click^4Show (dic_Doors str_TagSource str_TagName' str_PropSet# strPropSourceInitDoorTools_ErrorQ(DoorAutoTAG_Geto_DoorLK AddDoor_ErrorExists]Addr (RemoveDoorSe lngDoorid#yRemoveDoor_Error<(GetDoor^ lng_Doorid GetDoor_Error۹Doors_Dictionary_Error AddMVB_Erroro- o_DoorEntBo_MVBRefo_AnchoreAecAnchorTagToEnt1o_Geo[AecGeoJCheckTag_Errorw ModelSpace_ StyleName GetAnchor Referenceedoorobjobjgeo=sched AecScheduleApplicationvFpropsets\AecSchedulePropertySets PropertySetsPSDs/AecSchedulePropertySetDefsPropertySetDefsPSDYAecSchedulePropertySetDef=ImportMVBlockStyle XstrStyle,strFile X MVBlockDict objStylesv objDictItemì Dictionaries|sHas ImportStylestrNameZstrDict SourceObj{TargetDb2AecArchBaseDocumentL TargetDictAcadDictionary TargetObjsSourceDb AxDbDocument~ SourceDictGetInterfaceObject])Itemz CopyObjects(Get_ActiveLayert currLayer} AcadLayer  ActiveLayer>CheckForLayerByException, strLayerName>UobjLayer&3InputBox Layers(AEC_GenerateLayer'KeyNamedbPrefAecArchBaseDatabasePreferencesrcLayerKeyStyles@AecLayerKeyStyles* layerKeyStyleyAecLayerKeyStylev cLayerKeys| AecLayerKeysalayerKey AecLayerKeyɫAecArchBaseApplication1iLayerKeyStylesm Preferences LayerStandard@Rlayer GenerateLayer  DatabaseScalex(Set_DatabaseScalepnewScale(rtnTagCenterPointobjAEC AcadObjectminmaxȲ lngDoorOpen OpenPercentintCnt.-GetBoundingBoxY tempCntrPt}objACEntK%adtDoc"mvBlkRefent݉pt^door<anchor#rUtility1JPromptmvbCrLfExitTag4- strRestorLay5 strLKNamexAddCustomObjectLocation- AttachAnchor(ChangeTagDefault% strDefTagSetFocusCaptionxTrackingDictionary #TrackingXRecord AcadXRecordXRecordDataType XRecordDatao ArraySizeiCountlDataType%?Data;msgQ TYPE_STRINGGTAG_DICTIONARY_NAMETAG_XRECORD_NAME8DCREATEM GetObjectzGetXRecordDataVarTypepvbArray]9SetXRecordDataz AddXRecord&FAIL AcadDocumentZ BeginCommandL5 EndCommandYH ObjectAddednUserFormNcmd_Yes^Cmd_NoMLabel1,ClickImage1_Image2`CommandButton1|Image3a_B_var_AcadXRecordJ   ! + HP @A@AChangeTagDefault% strDoorTagDef strDefTag _B_var_Select'Efrm_F SetFocus frm_ChooseToGfrm_Ch ]CaptionxVisible_B_var_OptionButton3 UserForm_ClickHide9z.4| xME($48<@HPT,X0p90l0P    ( <~<(z "`1,I`q=Q,q`=,`=,`008 `1I000/$ `$9 `(a `i0$ `(`&,`=,`=$)`(Q`Query~| $y` n~''' P ,, lP#(*#$*#   ,l*#,*F@ 2 ($), 6@r@<$0<xhXT8 ($, @ l x'xWT:dTD  6TDK  lx *@xWT"$ pl@= @5T      lx)@xWT"$ pl@=t@5T t  !  K'xWT:d"TD  6TD~'''D < @@ l<#8*#4*#(, 00 ,l,*#$#*FT 2 84(,$)@06TDe,f xt8 84,($@0TD0 0  0   444(  0 `   0  0    0  0&< : N R DV Z L^0v > PP"L"LLPLPLLLLLLPLPLPLPLPLPLLPLLPPLLPLLPPLLPL<,<0<4<8<<<@@ ` `@---- B8----<%+H `#Dk ,iJ ` tH0% Mp@% QldureD% Uh ggerH% Yd8 W--L% ]`X ----P% i Dx ----<%+ `  G L oper@%+n` `  Uip---- LX ----@%+r` `!k a)u! for T%`x \ `zL Erro`|H 0`dure X oorT@ +^ `Po TTx) - % t iona0% p 2/8/% l r  %`\ P XX W--% Tx ----%` 4----`0---  ` `+`H 66i  ----4%  ----X%` ----` ion @ ime `ectA`icha` P`W--@L----@L----@L----   +`k  tpMVB 4% pEvenX%`X` ----`P ----`L----`H----`Fion `@ D`<5 01@Br @(xH@H;@8@eX@(( @ꀠ`@␶HH`@ ` h 0` `P(  *d0.@t @p @l @h yC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgKTh%Aec6_Door_Tag_Project_Scale_DependenteyC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgessar h P@@d @` @\ @X @(H @@8 @X( @p @ @ @ X@@px(@X`xh@BinningsDoorAutoTagBinningsDoorAutoTagXRecord @8 @( @$ @ @ p`Hx0`tz 0.@t @d @PT @R .@L @< @8 @4 Da@0 or@ , re@8( nt@$ @h @ @ @ P`xPh UxPxP0.@t @p @l @h S @d @0` @H\ @X @H @8 Sp@( e/@ ed@ /{@ D3@ 7-Pxx``Zz ( d@d @8` P @\O 8 @X @H @8 @6 @0 .@, 8(;`x8`\z 7-91E/In@d /R@ ` @X @D ` ( @  X @ p   `^z  `r06H @ P @!L @< @8 @ @  @ ( @ (  !"!!`rl !!@h"8 @ "( @8" @P" @" @" @" @ @ h###h###`6x#h# @p @l @ $ ` $$%$$$`Hx$$`@\ @X @H %&p&@&(&X&&%%%`vz %%d0.@t @&d @0'T @R @&L @`'< @&8 @&4 @0 @', @'( @$ @H' @x' @ @ H( (,xk-E*\R5*#72*\Ra*#6*\R7*#7b*\R1*#e3*\R1*#be$*\Rffff*5C452d6d57*\R8*#1b*\R7*#78*\R8*#12*\R8*#14*\R8*#18*\R8*#17*\R4*#e*\R1*#d4*\R1*#c4*\R5*#8f*\R7*#af*\R7*#ae*\R7*#ad*\R7*#ac*\R1*#bf*\R5*#5f*\Ra*#5$*\Rffff*5D452d6df0*\R0*#13*\R0*#19*\R0*#14$*\Rffff*5B452d6d57*\R1*#6b*\R1*#a6*\R1*#a7*\R1*#a7*\R1*#a8*\R1*#a8*\R9*#6a*\Ra*#5*\R1*#6e*\R7*#c*\R1*#6a*\R7*#c*\R7*#3*\R8*#e*\R7*#5f*\R7*#3*\R8*#d*\R8*#3*\R1*#135*\R8*#8*\R8*#8*\R8*#4*\R8*#3*\R4*#d*\R1*#137*\R4*#1*\R0*#e*\R1*#14f*\R5*#5f*\R1*#6e*\R1*#6a*\R1*#a2*\R1*#6d*\R1*#a3*\R1*#a3*\R6*#3*\R7*#31*\R5*#60*\R7*#5a*\R7*#31*\R7*#32*\R7*#327 ( 60 Rh HH Bx ^  " $( P ^h        (0 8 l~@ B  ^   "@ $h  ^    +( =@X` hpx  f~  B   ^ ` " $  ^ H P  Xh x    h B  ( ^0  " $  ^ x           f P BX ^` " " $ 8 ^P       n~ X B ` ^h  " $ 0 ^H    + =    d~(  B  ^  $  $H p ^ ! 0 +@ X h"    ( 08 @H P X B ` h p <    )  9( R@ 8    "  (0PX 0h .   "  (08@HP Xh .    B( .0`  6h  "  00 $@h *.*  B (  L0 (   >.H `h  ^  B   P :P N     B    P(x     B  > 0 H DX:2.G8.Gh   P 2@ PxB     , P  `D%p>%   &  H )X $h 4%x       ! ,!@! (X!:!!  @! !&+" (" :8" x" " ," ^" FH#  <# :#$ $0$ ,8$ h$x$$$ B$ @$ % (%8%@%  H% h% x%%  % %:% % % % % % & " &&&  & (&@&P&.`&&&&&& && '(' B  0' 8'H'X'h'p'x'  P' ' '&(  >8(x((((  ((  4(() D@) .)  ) )) ) ) *(*  0*"P*x****** * 4*2*0+H+`+ h+p+ Bx+++++  P+ , (,&H, >p,,1,,,  (,- (0-X-h-  x- - - ---x] ] ] ] ] (/store the door tag style name for future re-use KWe are hardcoding this...but we could get the value of "roamablerootprefix" ` Band then perform some swapping of values to make this more modular]yC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwg`]%Aec6_Door_Tag_Project_Scale_DependentPF"Aec6_Door_Tag"] DoorObjects]yC:\Documents and Settings\All Users\Application Data\Autodesk\ADT 2006\enu\Styles\Imperial\Schedule Tables (Imperial).dwgW--------------------------------------------------------------------------------------- Function : InitDoorTools DateTime : 12/8/2005 17:54* Author : Richard L Binning Purpose :W---------------------------------------------------------------------------------------(.*.d '  B@ kz Error 0!2 ( 0!41) in procedure InitDoorTools of Module DoorTaggerA@. ComiH0W---------------------------------------------------------------------------------------K Function : AddDoor@ DateTime : 12/4/2005 21:33B Author : Richard L Binning Rea Purpose : "W---------------------------------------------------------------------------------------g. ><<<0{79AD68B5-66C9-407F-8821-83AEA899608D}{2BFA211B-7B03-461A-AE91-251B1C0B7FEE}` @`  ` % %@ %P%@(Lk-E$*\Rffff*5D452d6df048<@  "  ( " 0 8HXx'( A@r\OboP@ B@\Apo0([Attribute VB_Name = "frm_Query" " Bas0{79AD68B5-66C9-407F-8821-83AEA899608D}{2BFA211B-7B03-461A-AE91-251B1C0B7FEE} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD Option 1licit P#' Sub Cmd_No_Ck() blnRunn8ingWH Un@load M_E,nd&c&YeFs 'ChopTag.Show    LVxME(SPSSS0{6951D709-6C06-4625-AC43-473862BD7C54}{2625ED21-02A5-41A7-ACD5-738A790D2EFB} ph@%p %rU @$`}(A`(` $`(`$$A`$`nrU 0- 9q 81YAqi A##$ $$@ "$I%Q%%!)Iq0 ( 1Y 4a```I XWWKz  K~'' ', t xx lt#p*#l*#`d hh ,ld*#\*FL 2 pl`d\)xh6L, $ 8 pld`\x}7 Sets the layer key style to the current layer standard L!f P%2.T]` J T%j.h h!'HWMsgBox "Layer Key WALL generated layer: " & layer.Name, vbInformation, "Expand Example"i I This example returns the Database Scale setting for the current drawing.4Multiplier appears to be a factor of 8 for door tagsH@ 96 tags are scale 12...@ 48 tags are scale 6...@ 384 tags are scale 48] `!!d.L L!l'.Li I This example returns the Database Scale setting for the current drawing.]@ `!!d.L p L(l.LiH` 7 use the bounding box to find the extents of the object] ] ] )Get existing Open Percent Setting of Door t!~'|>Set Open Percent Setting of Door to 50% for Intersection CheckI@ t(~] x z tB@#" get the bounding box for the door]( % center of the bounding box$x$z @+$x$z @++Reset Door OpenPercent | t(~ 'riJ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''+' AecAnchorTagToEnt as Modified by RLBJ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''` ( Declaration] ] ] ]( ]@ ]` %Initialization of AecArchBaseDocument `!. ,Nothing Provided - tag will not be anchored.  !B@F e&Not a Door - tag will not be anchored.  !B@Fk Select a point to locate the tag . $r' 0!2Error when getting a point.  !B@Hk@Get Current Layer] 6'  A-DOOR-IDEN(] &Set correct layer by getting layer keyDOORNO$H'"Set Current Layer to correct layer  %F (<k`9Insert an MVBlockRef using a hardcoded door tag style andat the specified location AecMVBlockRef !%.  (3get correct scale for tag by reading database scale Get Current Database ScaleDim intDBScale As Integer%intDBScale = (Get_DatabaseScale / 12)XmvBlkRef.ScaleX = intDBScale: mvBlkRef.ScaleY = intDBScale: mvBlkRef.ScaleZ = intDBScale?The above code is remarked out while using scale dependent tags5If the public variable strDoorTagName is filled, then4our Xrecord value was retrieved and a default exists   (d%force the stylename using a contstant  (k 0!2;add dbximport for door tag style here since error indicates9that the tag style was not present in the current drawing  A@  (kAnchor the tag to the door .  (  B@`restore the previous layer  %F (<.....i ] '  AEC6_Door_TagKT !( !B@%Aec6_Door_Tag_Project_Scale_DependentKT !( !B@Aec6_Door_Tag_ProjectKT !( !B@nSelect New Tag ( B@o ]h  ]  ] ] ] 8J Unique identifiers to distinguish this XRecordData from other XRecordData]P]BinningsDoorAutoTagh]BinningsDoorAutoTagXRecord8 Connect to the dictionary in which to store the XRecord  %.  %.H Get current XRecordData   B@. ' If there is no array yet then create one $    ':+ Get the size of the data elements returned  '= Increase to hold new data @ @d'  k Add new XRecord Data +F X +   B@'d`'kPzH@. Create the objects that hold this XRecordData +" Make sure to have tracking object  !%.  %.k i]Xx]]](J Unique identifiers to distinguish this XRecordData from other XRecordData]@]BinningsDoorAutoTagX]BinningsDoorAutoTagXRecordp8 Connect to the dictionary in which to store the XRecordH  %.  %." Read back all XRecordData entries   B@! Get information for this element$'$' X '{41Bzph'iXPAttribute VB_Name = "DoorTagger" Option Explici@t Pub$ o_Obj A`s Aec8d ic<2s Scring.Di"cary RMV Block,blnRunningtBooleanJstrSng 'store the d tag style nyfor future-useWe ahardcod8this... we could get*value of "roamablerootprefix'andn per6m soswapp- s to mak!Uis mZmodular Const[r_pSourceqC:\Docu@ments 8Sett/s\Al@l UserpaData\Autodesk\ADT 2006\enu\SGs\Im+ial \Sche!e "T6s (E).dwg@8 '_&6._Project_Scale_Depend-" '"  p4<{s K H HalEH " Fun Init@s()s6'-?Q  : a`eTiS : 12/8/B5 17:54Ehe Ricc L BirPurpose?0 @ OrrGoTok_E.F= Newt%̍= !9iTAG_Ge If Len( ) < 2 The  frm_Query.Sh ow E@If 0Exito7JHc:A MsgBox ""! " & .N umber" b(eDes & _B !a") iroc@@*aM!e ơLOAdd%(_ !`F?_G`_4_21:33__= d_OrOOOKU//c-A .s_Ӿr .68:es_Dictionary ' DateTime : 12/8/2005 17:53xAuthor : Richard L Binning@@Purpos| :-SY @On ErrGoTo Door% _ * Set! = di\c_ )0Exit Fun4x5MsgBox "M" &R.Number" ( Descrip _l") in procedure^of Modul Tagger" End V@Public AddMVB(o_ As Aec@lockRef)ABooleanoU@#:D$ L4C21:3D*VKI`f NotBYs( Ish TheY| 2 pl`d\)xh6L, e$ 8 pld`\xhL, h0l Cxlx*#t /t c= O0(| xtDl CxKlx*#t /tilxCp9lp0elp0elp0elp0elp0 v cz  u c=  K~'''$h ll lh#t*#d*#X\ `` ,l\*#T!*FD 2 tdX\T)l`6D$1$D,| px8 td\XTl`D$@K "xPx$# ,$lP@x$# 4$@hhX0 X%TT & T ' T (X=@ x$# @$5@ X0R ")X D$K~'''P ,, lP#(*#$*#   ,l*#**F@ 2 ($), 6@\V@<$0<xhXT8 ($, @ l x'xWT :d TD  6TDK  lx *@xWT "$ pl@= @5T     lx)@xWT "$ pl@=t@5T t   -- AEC6_Door_Tag'-- !e--Aec6_Door_Tag_Project'-- !ekP A@o( %Aec6_Door_Tag_Project_Scale_Dependent'  .stsCk.ObjectID) k." x ,GIfe1`CeTruenbC?a?a"-a_?`CheckGe*!yEnt`cad@ity`I?]`0/15`01:0~4=  Dim#K(.,Ancɣ32ToEGe~o T&nFFa@Each AIneisDrawn.elSpac#YAoTypeOfEnuu!҂tA'=" '%.StyleName@ Like "*A]_+*"3 d1 E .GetC c1.perenieq 7 Fo_p+R I=Jor PD =Nextyp`1_ ynW [@ -k2ZqSfIAtt`4Prop (dobj8R BA#kH`P#c'Th9Util X'04 , pnt, "Pick a !: P$ ;u 0l.{sQ gFa-b j schedNewQSAppaAppset`EEertysA= B.i()yPSDoopdDef5_tQ(y habase_tyq mpt "Availab % :AvbCrLT1$ec[A u'f]presQE Qq  !*#`'import as necessr= Ps(str_1 `0v5Resu=CrQ $u3!Priv Sub I2ԙ[#Strpi, y Fi0p#Const PA"AEC1BLOCK_DEFS0A3R!) Item(0r 2Tt : doePong ifp the.P xexi$ies onl =/Nies(st:r)4:= Applica.GetInte rfaceuect("DBX h0.16"*%.Open 9Filfe9|= V.Item YsCx(0)t$Nam 8ֈ5Copyfs(),'Yb@NothQ_End Sub@ FuncAT @T_AveLa yer()A}St*r'v  returns th@e curr loBEcC' RO ofa$ dʧ[G.1L6ˀH.c AC5 PrivateAH Che ckFor.ByExcepL(`?9AMobjA = InputBox("E a n@ to search for: If ""`J Th]Exr= ' eif0 no  7er ed%On EPrror3s 0Next' handle $"s inlineCA4+4B~"&) Is Z@Pd' ca3 @@s beseMsg ) "" '" & *$& "'Kes!tA#st"#ElsDH @+sts`ltpZ%0;8RdotagD.'@ 96 are sq 12...@ 486r384948b@/>seu +'DA4Ĝ4.>a|e2.jSY@_(newP/YBoolea~nF5ngWOU? TZ?K5K@9CSnrtnTagCPoint( uAXE#z' use2bound4boxPfi0wP`sEp £ 1minAmax0lngD5r0 Lo 'P)SQPent[=9= 7TS'ng 50%?)rs ӪC50#QC wG- B , 'pWtpVBH'pp0rPt(0 To 2DoubUo#(P+) / 2 11)&ta  = U'ReУ "Z# N-@ 0'' '' AecAnchorTagToEnt as Modified byp RLB< Public Function AEC__@(objACA@s Acad ity) Boo@lean On Error Resume Next'De`clarahDim adtDoc&rchBalse nmvBlkRefMVBloc$Ne Q ptVaria *doVecDaNew 'Initializl oQdlSew=BD ALpp@a.Abv# @CIf bIs NothingP The` S.Utilh.Pr4om>" vid- tag will not be CCerPA()@.Number <> 0<dɂw 7 gett8^aC/+0EH'BGJCurr `LayercfstrqtorY8Str j= =_Ohu.contstw?@ dM OV7o 'add dbximpoP7q*5here 7 e"indi0/eD thd7A.9Arpres1inr9cVd#CmI6SB=,Scegoc߫A xG'  `Oq'!#C=n @ 3.np=  Attach#Uk'`g"0vioxus ]WWg.wWl? =e /2\q ճ Sub Change3Dc9(@ qp y)A0efA=AutoTAG_OatCVtrA!eR"6_1>Q#"frm_Choos.OpButton1.bVD= 11.@FocuD3decg_g_X_DPn2 on 23Qctn4w4c 3 + Ca#"D!ŀ@ Showyubu% !0(ByD(]$T% p]"" `A)Track}DiaryqQ, UXRi!Ԁ$D|t, xArr`aySizRaiCouLond., AA, msg'' UniqvIntars!dðuuish VzY f hGConst TYPE_STRING = 1 Const TAG_DICTIONARY_NAME"BinningsDoorAutoTag"tXRECORDnXRecord>D' nect to the dictionary in whichstore IBOn Error GoTo CREATESerac kdD-= Th@isDraw . ies()' ET0.GetObjl( &]&03' $ current 9Data>=Type,EI' If]@_is no array yUkn create0 one@ Var(!) A@nd vbA=FThen"BSize@WUBound+ 1 WIs o, d@I elem@Ns returnedGD n=so hold newCReDim Preserveb(0 Hq ElsHbAG5= (L l4m As IntegerQ1Aiant'E@If+ a'' Ad*d ]S(bL0)!pY&:,(CStr(str!Nameh-g`h m6g` ruD12/ Fa6#Exit0 Fun"# :oA_osuatSt`s%(Is Nong@en ' Make su ]aWt~ c 7! ׬.`<"2i 1=O?@ " p*Re8sum3!G, -e 4 (@s ?H#zPeAcad'+, D ][ogjNg| Long, iCtw=,"6,p msgS' Unique id`Uifier% 'o{stuis{|' from %er($;@߉ ߉։g ?D 0}FAILc22•11d (?f0 uRead bP ally r -߇E'S1informa pL{s+~=D`'4` %= aa3OW PAp Wl \A"#KDneed0,.w#<$s@x$u!= &ZyUK<\CUxZyUK<\CU$s@x$ME`  (,@SLSS! P lp" LLLLPPLP 8 &H >p .  4 .( FX J      ,(  X  p      r~ H "  P ^X & $ $ @0 ^p   0'   B( p >*    ) 0  @X` h0'p  ~~0 " 8@HPX` 0h  ,  .0 ` " h p xW--------------------------------------------------------------------------------------- Sub : GoGoDoorTagger DateTime : 12/1/2005 17:49 Author : Richard L Binning Purpose :W---------------------------------------------------------------------------------------&'( *B@,x|p&h Error 0!2 ( 0!49) in procedure GoGoDoorTagger of VBA Document ThisDrawingA@.o@[ACAD Doc Begin Command ... 80@Forcing o_DoorObj to be nothing`.:0Add hook procedure? to ensure "esc" isn't pushedp Select Case CommandName`` C Case "VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frm_ChooseTag Caption = "UserForm1" ClientHeight = 2145 ClientLeft = 45 ClientTop = 435 ClientWidth = 6225 StartUpPosition = 1 'CenterOwner TypeInfoVer = 16 End 1P Door Tag i5 Microsoft Forms 2.0 FormEmbedded Object9q Dep 54F 1'Door Tag i5     @!"QRTahomaXF0M z0'Door Tag - Project Based & Scale Dep 5Tahoma &R KQlt+GIF89a@@!,@@3||`GfFcPpl,U 1r,~ש)I֠*ZmCڽp/;=c`2.&F=?V9X4gc(&&'HaxF9HX&9i )Wi:zJꊸ*:kɇk{8+53"T\rGlĬm ԆS_tNIO[o.ݿ1B:ަE6+ZQ; NVR KQltBGIF89a@@!,@@3||`GfFcPpl,U 1B1TB5HRխ$7ve2pltCNfu~Y7D6gxH'X(8wVwIv5(iC:9ز#(%rZt{iǛkz*,|LqL]],m> } 0 } 0h[Acad Doc End Command ... 8ADT 20 8AECDOORADDSELECTEDK AECDOORADDKDROPGEOMKCOPYK PASTECLIPKTemplat :ts a@dBkSBn@[AcadDocument Ready to TagctDe "AcadDocument Ready to Tag It!"ns%If DoorTagger.AddDoor(o_DoorObj) Then\ADT Debug.Print "Success"End If>p Error 0!2 ( 0!4B) in procedure AcadDocument_EndCommand of VBA Document ThisDrawingA@.on>Co!a"AECDOORADDSELECTE0D", DR@OPGEOMaCOPY'eIfIs5enZ49d_'PE : Cleana[q HIf $ ? K, Uea3 bubhVV`D!Vx5*tEwK\`eB\\S4L0KANKOPASTECLIP$M! aL%z4K%=%q_\%u%1$et!s*}2N_ ZQ ReadyE="Y* It!eo:|.K( FO)?JSuccess pl|ThC _S(UC all Pdssna/ c'aUXremov0c7jher`s s8pttrr.ta0]tt %I/--p ;' l8f51Aooo/Dim dic_NewR(  SCng.DDicѲaryar_Varian@eao_E0AitS):emY15 =`U. _ 0:).Couq> 0H?  =.Item9a Each ExIn C Q1'pStop+3A==ee if the aecd! objQhas a tag ancPUW 0 CheckN INqCBperty set!V ࠀ Sin@1 p f is locabpd,'wi0Pnea "aSs"6 oP7pFO' " fPdefaul i0- INCOMPLETE'#0presqn 5'cSinsiDdepllo Xfun6'perwipmpt us correct tag before proceeding - INCOMPLE TE 'imporvif necessaryRAEC_Anchor_TagToEnt o_ TEnd If 'remove Door from dictionh coll 4"_New3s.R@(eaB_.Obj3ID)3Next  E'clear mvblocks?5MVB# 5All On Err[GoTo 0 Exit Sub рem_:MsgBox "" &!.Number" ( Descrip _.") induPss of VBAcume@bThisDraw1@|" A>'Pr ivate+ AcadDoC _PAdded(ByVal C As3DW'-?Q Z'B$:$AD.Time : 10/15/2005 00:09AutK: Richard L` BinnAP`urposModified 12-04 to nge o’aGSit>SN%By'StopqBDimҀA^A$ecReCDebug.q@y"er7DhBo Ev: aJC8c +Xu@CX 'Check th#aD a`{rea@@ @`is@ aecd{(#If T ypeOf I s @aW Then!7' "Go(t a!avbCrLf, vb$Inmac, ""Deted!\aSe!9 = fa%!dToC#(&$`aazger.@+(o) !j3 %hh Else#g> c! ^` ed5B91ϋWW4IDb );WA:?!Publicget@*Styples(O > gBhADTp]C^appqNew8BaspeAppR5#doc''$= .A{veǷ.InpAh.Q  '_RFcuMdl@ datab .gqA = ! sp2.lF@|EachVtIns3*o_ .NameB\o_Cwx VIt Ԃ0Get_orSc alph|--------------------------------------------------------------------------------------& (B@*|x&p Error .!0 ( .!29) in procedure GoGoDoorTagger of VBA Document ThisDrawingA@,o@[ACAD Doc Begin Command ... 6enForcing o_DoorObj to be nothingLL.80Add hook procedure? to ensure "esc" isn't pushed\  Select Case CommandNamewC ThisDrawing $cop@'&JO^A7.p ~*M+l1x4, xtlp0   \%$& 0'l\=(t\\t >l\=?l\\t | l\=@p\.\Xp pA>XFH%l d?l\=Bh\5H\ h hBl\==D\XD =>X1x8D ,xlp`thDdX\H0  0    HW8;"qH58(I@%H;\ @L @H<G((%\8(%LĨ@B68G((%\8(%LĨ@B68lHi(%H;M( lc \ Dlhaed\f\L8\KP%$& 0'lP=(tP c\%)**#LPt !P l+/LP %,**#LPt !P l+/LP l)ll=PP< -lP=l<\P$8 PP l8P%.**#LPt !P l+/LP /14l40~1CLL 210/L:l0F %P $ 4 P P3Q[ $ !)P+4Pt  P l5l=p)P\p J 6p (p ($8 PP l8PD 7C6CLL 82L 6p ( ll=XlX=[PT$9 `PTV9=:[Pp P:l4F %P $ 4 P P3Q[ $ !)P c=(t c=p c=l c=X c=ThD ,tT4p\Xl0$LP<0  0    K1$:( %8 $ < 8 Pl$=t)8$8t `l8=p8KP`p X((%`UpF5((%P`1@5l@CxCxx@(x<P@`tp8$      Ҧ,@yU ʨy LNot a Door - tag will not be anchored. 6Error when getting a point. A-DOOR-IDEN DOORNOG 5N F:G AecMVBlockRef,&_2H*F?iCSQ3Y-iCSa/(iCSkiCSwiCS T