ࡱ> <__SRP_1 , __SRP_41__SRP_5.1ObjectDBXAECDocument*t;CK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Root Entry0L;VBA_Project 0LVBA_Project_Version(VBAP w Z &" [ !(#$%O'T)*+,-./0123456789:;=>?@BCDEFGHIJKLMNVPQRSUWXY_\]^f`abcdekghijlmnopqrsuvx]yz{|}~ $ !"*;'M()+2-./0135978:OB<>j?@A&DFGHIKZXN4QSTUW`Y][^=~_abwL|}acadID="{5435A5EF-5364-4871-A5D9-AEC5E9B45759}" Document=ThisDrawing/&H00000000 BaseClass=DBXWrapMainForm Class=ObjectDBXDocument Class=ObjectDBXAECDocument Module=Schedules Name="CP13_3DBXWrap" HelpContextID="0" VersionCompatible32="393222000" CMG="DCDE3F70412545254525452545" DPB="8D8F6EC3AE75AF75AF75" GC="3E3CDDAE3FEEF1EFF1EF0E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThPROJECTwm%PROJECTThisDrawing*L__SRP_6OisDrawing=22, 22, 232, 206, DBXWrapMainForm=22, 22, 626, 410, , 154, 154, 758, 542, ObjectDBXDocument=88, 0, 721, 665, Z ObrU~~~~~~~~~~~~~~~~~~~~~~~~~~~jectDBXAECDocument=110, 110, 714, 498, Schedules=132, 132, 659R0* pHd CP13_3DB@XWrap@T@ = +x )A J< rstdole>std@olerf%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\c2.t_VBA_PROJECTAdir VDBXWrapMainForm i*WJOeÜY:f JVlb#OLE AutomatioFn/AXDBLib>XDB@LibF FC295FFF9-3572-4ED2-9E42-0DAADB8D93EE}#1FProgram Files\CommonDdesk Shared\axdb16enuUCAD/Obj(ect 16.0 Type WraryLcMSFormsc MSFr ms3D452EE1-E08F-101A-8-02608C4D0BB4SFM20.DLL#Micr@osoft  ` C+E&/;@&~1jqAq00}#0BN# 50 AD798E3B5-24C4-49A8-B76A-C7BA3A514D5F6DOCUME~1\RICHARLOCALSTemp \VBE\T.exd (crpingr~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )E'0Hpzs}   A  9i1QqMa l 9i1Qq1ll)} !9!9 1 A I k ThisDrawingObjectDBXDocument UserForm1ObjectDBXAECDocument BlockSearchF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  ;HAThisDrawing0T412650ebThisDrawing "ObjectDBXDocument144116602c"ObjectDBXDocumentT.DBXWrapMainForm0V412650ebDBXWrapMainFormFP(ObjectDBXAECDocument0I41264d995(ObjectDBXAECDocument"88Schedules:z4125fd54dSchedules:ph3420B28E718-11C@F-893D@LA0C9054228Ț crrun0.dllH.F Runtime@ @zVBIDE> V_I`E@`A 62E1576pqx5.3cq_G_V$BA@.A6.6E@XT.OLB(Visual Basic for @Applic"ys Extensibility  @AecXUI @A@c`|UIacAH{E7B8C100-BF69-431B-9153-1FF0DEF8F613}#4|ABSJ2`\40czErCe e.@CDB}s`3$2z@cb+Arch +A \ch, ~`%,BUNIEAitur G. @ba.q>E`4//1ScheduS@h`Hdu$]6 .o\# %B/ Q sX#$Qss@:/z~5    3 t0ruct# "r> P ThisPDraw]G0 TTP/iED0awp^^2#4H1EA, "+qRps `DocumentG d( e8, 546,  ,ThisDrawingThisDrawingDBXWrapMainFormDBXWra   pMainFormObjectDBXDocumentObjectDBXDocumentObjectDBXAECDocumentObjectDBXAECDocumentSchedulesSchedulestDBXAECDocumAOjDtUqo!ueht2 =M TPM  (; u  !MaTinQG WqrpM Pr02 &= F ad6AECgrU D$ `0 ,A h=$ `4( `!/, `%#,A `)=, `8=, `1 oAEC i2B0n 8"" ft3CsGvBs7P!d2o@%s:!xmmnI b6_" t3CsGvBsP!d2o@ ɍH X h )x IVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBXWrapMainForm Caption = "UserForm1" ClientHeightoE i01  n``eÜY:CompObj CnVBFrame6*DBXWrapMainForm MObjectDBXDocument$s7fV)oR8P`_Ll<=o8$v%J@3o#H,^{rNͪ#1YxH<+*O #OhI8~| AsByValCase.DebugCEachDElseGEndHendifYFunction^GoTobInjIntegerkIsrLikeNotNothingPublicReDimSetstopSubThenToTypeOf AutoCAD" VBAWin16~Win32MacVBA6#Project1  stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ AXDBLibDDbxDoc AxDbDocument~ ConnectDBXF _B_var_SetNwq^Module1b o_TxtStream^ TextStreamgfso ScriptingFileSystemObjectNUmyBatchEndTime̎myBatchTotalTime3TmyBatchTimeStartSHBrowseForFolder" lpBrowseInfor BROWSEINFOY shell32.dll+SHGetPathFromIDListKpidlpszPathhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageUMAX_PATH( MSFormsC VBIDEA BrowseFiles3$cFilesH CollectionW ReturnFolderBrowser lngFolder strPathl Err_Controll vbNullCharY Exit_HereiErroNumber-MsgBoxR Description FindFile[ StartPathӉ ExtensionGetSubs strFileNameecDirintcnt.-Right  vbDirectoryg blnCancel` MousePointertfmMousePointerHourGlass' vbTextCompare QAddrGetAttr FolderExists Count0vfmMousePointerDefault(PathRoot{FileExtl IncludeSubs}  s_FileNamenc_Filesti_cnt[ Err_Catch FileCount=GetFile:lngID% ResetFiles FileFinder$ ParseFileNamePv strFullPathlngPos6lngStart UserForm1)BITMAPINFOHEADERΒbiSizebiWidth/biHeight biPlanesjS biBitCount^: biCompressionL biSizeImageu5biXPelsPerMeter+biYPelsPerMeter biClrUsedbiClrImportantRGBQUADrgbBluergbGreen"rgbRedd rgbReservedEIMGRECvbytType7~lngLen[GetDC`hWnd/user32* FindWindowK lpClassName lpWindowNameSetPixelEhdcexoYlcrColor0gdi32icmdProceed_ClickqUNow%Label4,CaptionxCntLBoxqi` lst_Files/ ListCount6 ListIndexQTopIndexSelectedYfrm_Main Repaint CreateObjectTag&ReplacefCreateTextFile OpenTextFile ForAppendingqTristateUseDefault9Read_File_From_ListBoxAvbCrLf WriteLineefrm_Main_ClickXUserForm_ActivateZsstrBlankVisibleEnabled۪ cboSelectionMAddItem  Application*Path2cboSelection_Click`lngCntgblnCode3 vbNullStringClearlst_Files_Clickz PaintPreview/{strFile X lngSeeker', lngImgLoc/zbytCntҋlngFile lngCurLocudtRecH bytBMPBuffd udtColorsudtColor lngHwndlngDcklngY,lngX/intRed|intGreen<intBlueqlngColorKZ udtHeadervbBlackvbWhite^KCurrentListBoxFileSt AXDB15LiboBref1AcadExternalReferenceGetInterfaceObject]) strXRpath strXRNamev strDWGName7mylen strFileChkblnChk objLayout AcadLayoutstrDrivekstrNewFileNamevarPaths varRelPathsXEstrTemp2strTempMmyLayer AcadLayer MyBlock AcadBlockmsgQ o_SafeBlkRefQLAcadBlockReference MyXREFBlock2 blnLockLayrN iXRefPathsH iFilePathsZSplit) CreateFolder objGeneralHlo_ent_R AcadEntityiLayoutsBlockqRtnSafetySymCategoryWriteBlankLinesstrNameZUserForm_QueryCloseCancel CloseMode؟GetXrefPathDBX_LayoutsFdwgNameH ERR_HANDLERlGDbxDocent݉objBlock> objBlkXRefCleanupUtility1JPromptmERR_END ObjectDBXUserFormNLabel1, cmdProceedc cmdCancelClickActivate| QueryCloseT_B_var_AxDbDocument _B_var_DbxDoc{TestConnection_B_var_ExplicitTClass1+ObjDbxG)oDoc strOrigPath strTempPathHstrExt bReadOnly]docOrigPathaLTempPathReadOnly4< OpenDbxDocFilePathO ErrHandler } strTempNameRfsoFileVFile%colPCsvMAcadPlotConfigurationskmobjPCAcadPlotConfigurationvarListcnt+ iActiveLayoutS4 strObjDbxPath@GetExtensionName  SetDbxDocJAcadApplication Raise vbObjectError ShellV PreferencesFileswX TempFilePathʥ GetBaseNamewcCopyFileSetAttrCvbNormal- vbCritical+}AxDbDocumentWrapper mDocf= OnNextObjectvobj ACADObject OnNextEntity:Class_TerminatePDocumentjattach NewDocumentetrappdRegisterActiveXDllT OpenDocument3EFileNamej scanEntitiesCwblkyBlocksӍ scanObjectsclastId getLastHandlep6id] getDbObjectHandleToObject"HexcoordVpnt AcadPointP ModelSpace_AddPoint HandleDeletex ObjectDBXDocQClassNewDoc+ErrCatchClass_Initializen TerminateyLOpenDocsNamed InitializeN isnothing3 _B_var_IfPAxDbDoc ObjectDBXDocument UserForm_Initialize5c _B_var_On6 ErrCatcherSourceGShow_B_var_ReturnFolderPV _B_var_Stringӊ _B_var_LeftQ _B_var_Right9_B_var_blnCancelNZItemz_B_var_myBatchTimeStart{ _B_var_Label49 _B_str_Format" _B_var_cFiles@_B_var_blnLockLayr? Label4_Click- _B_var_ForjL dbxStarter_B_var_MyXREFBlock~_B_var_CollectionS _B_str_LeftV s_PathOnly n varBranches _B_var_UBoundd_B_var_s_PathOnlyJoinM&Joi _B_var_Joia _B_var_ReDim _B_var_Error)_B_var_I _B_var_FindFile$Label5, BlockSearch  GetBlocksM" BlockListiCountlIsLayoutGetBlockReferencesHg ObjectNameaxdu BlockRefListLacadEnt( LayoutBlk#o_LayoutqaxdbdoXCommandButton1|CommandButton1_Click col_Brefs myDBXStarter8 BlockRefs7mcolHmyDb _B_var_Add0GetXrefsyXrefsh XRefInstanceXRBlockoEnt&Se_o_layu _B_var_Next'oXRefListjaecEntspGetAecEntitiesaecDb7AecBaseDatabasemodSpaceAcadModelSpace"aecEnt@ AecEntity6strInit\[ObjectDBXDocument1 ObjectDBXAECDocumentBq GetAecEnts]nnItemf AecXUIArchBase] AecXArchBaseAecXAreaCalculationBase AecXUIBase| AecXBaset AecsXBase colAecEnts/8CommandButton2}CommandButton2_Clickcol_AECs4  aecDBXStarter$E  _B_var_LBound genObjectDvbTabc9 StyleNameAecBdgElevationLine^AECWalls dictWalls@ Dictionary AecGatherE intAecCntu GetAecObj GetAecObjso_BlockCommandButton3~CommandButton3_ClickFA _B_var_AcadExternalReferenceZ" _B_var_GetAecObj _B_var_colAecEnts  _B_var_aecDb _B_var_AcadLayoutcmdGetAecEntitiesicmdGetAecEntities_Click&  _B_var_TypeOfے _B_var_ObjectName3 _B_var_ObjectDBXAECDocumentMDwgProps  GetDwgProps o_DwgProps9rAcadSummaryInfo asAXDBLib" SummaryInfo!GetDwgDependencies AcadFileDependencies  CP13_3DBXWrap`cmdGetBlockRefs_Click}cmdGetBlockRefscmdCancel_Click\ cmdGetXRefs$cmdGetXRefs_Click ' vbInformationn  _B_var_Exit DBXWrapMainFormDBX_DemonstrationZgen<DBXBRef _B_var_DBXBRefSpace  _B_var_SpaceSpacSpaSp$_Sjo_txtdbxrefPJ  _B_var_dbxrefdbxredbxrAdbx̂Layerkbdbxb@InsertionPointDBXBAtts _B_var_AcadBlockReference"o HasAttributes GetAttributesDBXAtts _B_var_DBXAttsb TagString TextString RotationeulmyDBXDocaxdiblibx _B_var_axdiblibmyDBXnmyXrefsmyXref _B_var_ObjectDBXDocumentV5Gather AecByType.myAecviewBlockmyAecviewBlocksx AecViewBlocks _B_var_AecViewBlocksHistrOType s_Type   _B_var_Select'E AecXSchedule[ AecDoorԯCasI} _B_var_CasZ:Aecs _B_var_Case  AecWallFaceZAecBldgsectionAecBd7  AecBdgSection; AecBdgSectionLine˱ AecCeilingLayoutGrid AecCurtainWallLayout AecCurtainWallUnitE AecOpeningBase  AecOpenFillerAn  AecWindow   AecRailing) AecRoof)  AecRoofEdge2  AecRoofFace1  AecSlabBaseL  AecRoofSlabz AecSlab2 AecSpace AecSpaceBoundary8 AecStair AecWallJ AecWallModifier AecWindowAssemblyd dicAECDoors:_B_var_dicAECDoorsItems`hdicWallsS dicAECWalls%TGetDoorsmyDoors myDoorj$(_B_var_myXrefs8 _B_var_myXrefbe_B_var_AecDoorףAecDbMvBlockRefQQ_B_var_AecDbMvBlockRef:dicExists]dicaYc_B_var_Dictionary%ia]myArra_B_var_AcadBlock4 Schedules(GetPropertySetDefinitions)schAecScheduleApplicationvFpsdYAecSchedulePropertySetDef=defsvNPropertySetDefs(GetPropertyDefs(bpsdNamepsds/AecSchedulePropertySetDefspDefAecSchedulePropertyDefŶHas PropertyDefs}H(GetPropertyDef7pdNamelerrTrap(CreatePropertySetDefinitionG@(CreatePropertyDef<(GetAppliestoList AppliesTo (SetAppliestoListTlstIsArray(GetDataFormatStyleskdictsAcadDictionariesIdictlcAcadDictionaryrec AecDictRecordvm Dictionaries|s(AttachScheduleDatanpropSets\AecSchedulePropertySets PropertySets(GetScheduleDataListnpropSetHAecSchedulePropertySet(GetScheduleData<(GetScheduleDataItemyVpropNamej AecSchedulePropertyY Properties+(AttachScheduleTagmvbNameYpt^ AecMVBlockRefanch-AecAnchorTagToEnt1AddCustomObjectLocation-Update Referencee AttachAnchor(GetAllThatApplyEobjName.4ii]appLstIsNull myPropItemgetshQmyPValueKmyAcObj[ _B_var_AcadObjectG col_XBrefs4wcol_< myDBX_XrefԻ_B_var_genObjectNIsXRefEl _B_var_EntFthA_ _B_var_th% ,5e: < @BD VX%&ZH   )):>xME  $(0 <<8<<<@iv id(% m`H% y\h% P`<@ Jiv i  it% mp(% ylHtr%+``,D U h% d%`$` \%X8  @ ( `L@e)M %iv it % p A %+@ `(@h k)M % ih %  d $%`$`\   + `T@ v)M %iv$% ip % l  %+ `<@P |)M p x %iv i(% il % h  %+ `H@@ )M ` h %i i" ,% p 0%+ `@ i@xX `T`P@` @ <  `$x 8  @P(  `@  pd4%P PPp8xh `8 i `vt`p`i `pd p @` p @P "p @@ p `< p @`8& l (pXX @T @P @L HO D &4 Pp(0l `vh(L @H @D @B 0 @, (O &$  x@(`(8x&(`vtP`p8&&pT @P @L @J &8 pX8`vx(`&p&X\ @X @T @R Pp`(8x& = 4605 ClientLeft = 45 ClientTop =  A 330 ClientWidth = 7080 StartUpPosition = 1 'Cen fHs_Type oXpsdName k~hFilestrNameCancel CloseMode YpdNamelst 9y+xobj kz k9{propName {mvbNameptobjName  AterOwner TypeInfoVer = 39 End jectDBXDocu i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q@ 6` (Cancel OuTahoma M.5Tahoma ( Get BlockREFs NuTahoma (Get AECEntities NuTahoma( Get XREFstit NuTahomaTahoma ( Get $H @'}0$#frm_Main( 8cmdCancel 4 9y6 ) I i( 8 8rms 2.0 FrameEm n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qTahoma((AH,,5Tahoma((Select Files to Search5Tahoma(Label4 @Tahoma`5TahomaFrame1R 8H   }N.Frame1R KQDBTahoma( 8 8 B )C G 1H$(2,Label5in,@cmdGetBlockRefsI0@cmGetSubslngID strFullPathCurrentListBox 9YI( iJ8dGetAecEntitiesFSI( <cmdGetXRefsR I 8t #>814 l4'0 l4CompObjPp__SRP_2*__SRP_3;$__SRP_71cboSelection{(2HLabel1(2<Label4( 4lst_Filesion pz_pz c=!t/ tP8 4TPL\dlht`p 8X<@@#frm_Main( 8cmdCancelU$(28Label5in,(`vtP`pp&&p` @\ @X @V &D 0P0l `vhPP&&X @T @P @N &(< &, 80`P`vxH&&h @d @` @^ &(L @< &l @PXP@T @D @@O &(< @,   0H`vx!@&l @h &Xd @T &(P @L  &l  0 @X #\er TypeInfoVer = 36 End XDocumentObjectDB i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qhoma((OK! OuTahoma(Cancel OuTahoma(Label5M.O5Tahoma ( Get BlockREFs NuTahoma (Get AECEntities NuTahoma( Get XREFstit NuTahomaD $$H @$}:5D$#frm_Main( 4cmdProceed9; !( 8cmdCanceld9; (28Label5in,@CommandButton1!0@cmdGetAecEntitiesF,<CommandButton3u!  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@CommanAH,,5Tahoma((Select Files to Search5Tahoma(Label4 @TahomaIa( `00A ` y00#( h(, ``5Tahoma`4H  }N.Frame1( 8cboSelection{(2HLabel1(2<Label4( 4lst_Filesion (  ` d @` @T @P H X LO  (H @8 &( ! P!P!p!!8xh!&!!`vt"0&@h @d @T " "#""8x"&""`tX&p&Xl @h @X @H H $ X$0 $$8$p$0l (H$0p$8`h x )A*\Rb*#18*\R1*#ad*\Rb*#12*\Rb*#14*\R8*#5f$*\Rffff*:z4125fd54B 0?8Xh   B . 9   8 H ` px  B .9 / (0 " 8.@p9x B  9  0/@&7X B  9  08 " @H9`x    B  ( @P ` p   " )$R B   @-H`p  B )  B )C(H B PX&.`     B &  +8 P ` p  3       ( 0 8 H x]@`l1'$ l !X h%r-Res $@p l!0$ `,A `0/$`@=,`-=,`D=,A `1=@\O  rrX @T @P 4"@L ] @H m1@D h%K@@ 0@< Z- p, @ , `H=0 `50=(  `$ `$ `$A `$ `(  @ H Ph 1Tx QU Y i[ \ ]a Ib ic @ @( @  @  @ (  (H0@|0[A  "  0 "HX `tp0 ^_ @~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   q Q( 8 H X lpBrowseInfopidlpszPath StartPath Extension(&.X PPx08Ho B@80 $+pn $ '$oh p'fiX]Pp '$ !X h%r.x v x% v$x.l | l!v $@p8 |! $+ph $ '$ p'tkxip@](@x0 !X h%r.x v x% v$x.l  l%.ki]8Xp !X h%r.x v x% v xB@k@8o0]Pp nB@D !X h%r.x v x% v$x.l  l%. G  l!%.jkxip]0PH nB@D !X h%r.x v x% v$x.l l!' G'jkip]0 !X h%r.x v x% v$x.l $  l(k@k8o0P] !.r'$AEC_PROPERTY_FORMAT_DEFS$.    $@X ! $+ $ '$`kX 'iH`] L h%. v !X h%r# B@o( ]    '$  L h% $@8 ! $+ $ '$` 'iP@ ]  L h%. v$.i ]  v L h%.bl  v$%.rari ] AecMVBlockRef !|%.V  (M)  (V B@ L (  B@i  ]0 H ` x   f'x'$  x $x$' $ $@ $x $+ $ '$d`    $ $@ $x $+ $ '$kk 'iAttribute VB_Name = "Schedules" Option Explicit@ FuncHGetPropertySetDefini0s() As Varia n` Dim sch.New HAecApXa8, psd"A a, cnt!Long, deflSng k"= 0 For EayZIn. Ss(ThisDrawing.Database&)'Re^Preserve:1߈C 3.G + 1 NCWJR(^pB5A:oSub CreatedV"<</á ` <#>!_$CestoList/#3τ}O>SZ d\ @=_v e myd TToW#UBound(=2)@-1 NullcAAQ#D4QlsҵDbn> /"HM^=g@=dQ$*=h8+3qyo(_GxaHxyo(_GxaHM^=g@=dQ$MEP 4d SS S90^!!!! >"P<<, ,<0<8<<<@F, 6, / hPxi0Xi P $,  4Kx Js(l M`@P  P:@]@5PK *'  *FP 1x5P lx=  lx0lx0;xM`@P  PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^!/Q+'''0 lx*FPt$ 6P0 "  lx*# H#k/+'''0 lx*FPt$ 6P0c'P 1x5P $iXt$ $ lVrt$ $ lcV3PrM`@t$  +lP`/5P rd  c= tb  lq<'''0  ,>FP 6P0 u0xt$P0P tX4 $ ltqx/  $ -K3"X Mh@X4  X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L [x4x$ x0   0 0   0 X  0 d  @:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__SFod(x lpd4      X        +  <  p  H H    , 8 80@ HP( x]@Px .\wkoP .T=Imm0A@oX.ip Gzj  B@'z@8Just pass it back out0 n!p n!p n! n!t nB@0RXki8 .i]]0]P]p] Get list of availble Xrefs   !"For Each o_Block In AxDbDoc.Blocks !.h h!  - Simple way to avoid duplicates in collection h.   ! B@liXdP  h  .On Error Resume Next .i ]]]]  !ent' Get list of available Block references !.   !AcDbBlockReference(, Simple way to avoid duplcates in collection  ! B@k 0 Return list of Block references in this drawing ! .d.kprU  B!Qq D!Qq)iQ  1! !!#")"#I"a"  $""y$ ($A%y("Q(1& l&QV+05/V!W9W L9KY&Y)&'!')R ё pH`taxq ` |C` J`  1 0 `0 `IQygWWW_ -KXqL L TL *(,(   `#TL/6, qL"(,(   `1P6,,X^q<X lqT lTR lP4llT F, 6, / hPxi0$" 4 Xi Ƅ$"P $,  4Kx Js(l M`@P  P:@]@5PK *'  *FP 1x5P lx=  lx0lx0;xM`@P  PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^!/Q+'''0 lx*FPt$ 6P0 "  lx*# H#k/+'''0 lx*FPt$ 6P0c'P 1x5P $iXt$ $ lVrt$ $ lcV3PrM`@t$  +lP`/5P rd  c= tb  lq<'''0  ,>FP 6P0 u0xt$P0P tX4 $ ltqx/  $ -K3"X Mh@X4  X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L [x4x$ x. qdld qhlh`* Jldl MP@@  @`1`5@plhqdlh l`FPl/ <,l`@0 0   0 X  l %l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,&kf#(*#$h! h @2($h  8)'l ( l)[h<h5l(h! h $,! , l>$ *ll( +#!  2 ()h,5l5(h! h ,l(X< x#/()h,O(h! h ,l(X< |#l,=,[8/()h,l %l`5l.dPh! h lPhc dM@@h! h Dh -\0(h! h l(\ $.k/(h<h\ .QhXh\ (.Qh`P`$ $ lP>(h! h l(/*#$0*# X8 8,2($ h/*#(X8 8,/(d12*#(2*#$2*# 2*#2*#2*#2*#3*#/*#X8 8,2($ 6:@4NllB0  0(X8 8,/(6l0/*#(X8 8,/(`V T5c(T 6l(2*#$2*# 2*#2*#T 5l*#/*#X8 8,2($ 27*F0(@%lT 6l:8(%T 6hX:H88(%(T 6(:9:/(X8 8,/(6l0hX(8'/*#(/*#$X8 8,2($ T5~ ` dM@@h! h Dh dd@3''::N00@:@;Nll 6l0l %l@5l@`lP3:@<NllP =F0P6l0  8C>/*#(?*FlP0$h! h @2($h6l0H@(h! h l(*#$A*# ,! , @2($ )h,PX8 ,lPX8 <,*(h! h Dl(X8 8,/(h X8 L,c=,[h8hc=)[h<hh! h h8 XT`\t($ h,l0hX8(@:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__ontd(x lpd40   0 P  0   p |   x ol>$ /ll( "#!  #2 ()h,5l5(h! h #,l(X< x/()h,O(h! h #,l(X< |l,=$[8/()h,l l`5l.ih` 6.i]]]8]X]x  !nin !.h  h  & Return list of Blocks in this drawing F! F.6d.6ki]](`X .* *!'. * * *! FB@rrk@.*(" Get list of available AecEntities]@0  hp in]8]X]p]]]X" Get list of available AecEntities  ! !.h  h .* *!'. * * *! FB@k  & Return list of Blocks in this drawing F! '`d0k .*ik `AecCeilingLayoutGridKTAecOpeningBaseKTAecDoorKT AecRailingKT AecSlabKTSAecSpaceKTAecStairKTAecWallKTAecWindowAssemblyKT AecWaCase "AecRoofFace" AecSlabBaseKTce A@rAecDoorKT AecWallFaceKT AecBdgSectionKTAecBdgSectionLineKTAecCurtainWallLayoutKTAecCurtainWallUnitKTAecBdgElevationLineKT AecOpenFillerKT AecWindowKTAecRoofKTCase "AecRoofEdge" AecRoofSlabKTAecSpaceBoundaryKTCase "AecWallModifier" <.. ]@ n S *! ]8 '`X [ *! AecDbDoorKT~ AecDbWallKT~ k <d.<~d` kX got one so continuing on *! <%X *! * <B@  - Simple way to avoid duplicates in collection  ! B@ k k & Return list of Blocks in this drawing ! . dH . k8 i0 ( 5Attribute VB_Name = "ObjectDBXAECDocument" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacIFalse dCreatablPredeclaIdCExposeTemplate DerivCu@stomiz EO@ption 0licit P"& AxDb As AXDBLib.  s .VarHelpIDe-1&dicWall's Scri=@ng.DicAary DoorSub Class_Initialize() D SetF2= New3End& @ubC Property G()C @@F  Y.Termin^E.Cleanup&FunM@=;othing C8FOpen-(ByVal s%@}Sng 0Rai,.SourcecDesYonC<If_.XrefsIColl@pC!V@OB t8E Dim XRefLisa`2a ao_Blo%q~cadEn@@it`x+# Lay-eg XR2Ext ernal`erenc>'qlof availA$aFSEach o_InQ.#s'Hc(!2#= .BC @J.Isa-C,Ja' Sie way tooid dup@s in cAanResuNexY%"G) e@.AddB",.Handl(l!}0EbAe)C)!g%`%TypeOf oBEAIm?0)% lU=s'/-cky\%Fi ?i0#' Return 4 (Pcs drawca Cou?S5HK"apxT~CyN AOTf&TD=9y6 LUNVэ qHBlk}QwKXwa2Xp0XhN} xNN Vl" ref1ca Ruv5 `v 'D.2`AcDbva"AR:xt@@cX[ qBT9t ,  OTq =sR:;; ;2{ad_<@ < 9@4? =?3>/ P>aecP,==@AY=<Q:`4a:Qϒ 0cGet_#Els]hĆyFunctio Public  CByT@ype(s_ @As Strj)Acript.Di!ary=vGather8lect Cas|e C n"@Door"A2@%@HdicAEC sWal`lFace B8dgS$@_LinCeilCGridCurptain% Unit 0Ele vaq(Open(B^Fille^eWindowRa#Xoofl=' REdg/>Slab  a5Uzp8MSB`d e `C/aF kModifiW84Assemblyˌ! aMsgBoxvSezpO!ri`Te ʋC(‰BoolDeaDim$ 瀎~itċ'New CoVdĂo_bB XDBLib.Acad`MoD{g XR2ExternalReferencOn Errorsume !' `æ̈́aviable)ieDFEach In AxDbDoc.#߈!".!)g ` DC!aa  uci'#e.Obj ]?Eqft f <'gonoo consuX> w8  =#w S?zD4?;.dExPs(S)/h (&_ ?T %rDebug.Pū/)=MtX1X <?#+!x ﭣ`\4= Tru9Fa JFϬ¬ qLqF(xMET L(8<0R<D<}>Fp<(0xSHBrowseForFolderASHBrowseForFolderASHGetPathFromIDListA<DbocGetDCAxmeFindWindowAiSetPixelSHGetPathFromIDListARy6C!]w8FOЦM9xR0RMET L(8<0HSPSSS<<<<4<4.<<^<$84/4h dMP@h! h Dh dd l %X0 %i P`~x%%(%AL%(%  X(pH%+>8TpT i +60p )8i@iB:HLhD`hFxhHhJ hLhNhPhR `r nd%4%<%,` `@xi k bX*.@L%`dT`fP`d`be(%%i `f@< (%% t`rix  ,!8ht@ni ,`@xsi i `x 0 `@@8 i Xi  `h ` T  8B p 8 `d`~`%<% , `,@ {`.x <  `@ $$`fx`>t@ tBTH( B"4@B2H P @i  x0"'8 @"+ <(@B0p@ @B4` @ t0iz  i  `@44:i|   X`@[[i `f`d \x HP T8 8l (@h  i `f`d d <%(%`x%%`t`x`t M` @`R\  N0 X \  h X `x`t`x@`t(`x%0%`x`t  T `x`t T `x`t`t $P `D` <<it `x`t`x`t@`x`t`l`j dh8%i `x`t`x`t`x `dPh! h lPhc dM@@h! h Dh 0X0(h! h l(X $1k/(h<hX 1QhThX 01Qh`P`$ $lP`V\t<\Wl2:@30\W4(X8 8$/(6l0X8 <$ \uk dM@@h! h Dh ddl l@5l@`lP3:@%NllP &F0P6l0  8C'(*#()*FlP0$h! h @2($h6l0H*(h! h #l(*#$5*# ,! , @2($ )h,PX8 $lP>X8 <$*(h! h Dl(X8 8$/(h X8 L$c=$[h8hc= [h<hh! h #h8 TX`\< ($ h,l0p l l`5lh! h @hh! h #h%Th! h lThh*lh! h l(D]3h5l4lh! h l0! 0 )h05l (lh! h Dh5l Th! h lTpfh,kf#,*#(h! h @2,(h  8)l  l [h<h5l,h! h (0! 0 l>($,l l, "#!  #2$, )h05l5,h! h #0l,X< x/,)h0O,h! h #0l,X< |l0=$[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh -\0,h! h l,\ $.k/,h<h\ .QhXh\ (.Qh` dMD@h! h Dh ddl l@5l@`lP3:D%NllP &F4P6l4  8C'(*#,)*FlP4(h! h @2,(h6l4H*,h! h #l,*#(+*#$0! 0 @2,($)h0TX8 $lT8$@%`p \ x z`@ ?? @`@ JJ1D `t 84 @2 , `pi nci   `@ i 0!ti @H 80 8 PXp00 H0 , @(   x 8P8488h @X 8T P @L @< @, 8 xL`6>jnr`0< `, x`xpBro`t `x`t`x`t" P$   (  @ P$X 8 @ P$ P$d P$x  P$ P$~` P @@ P0 @ h@ @ h ` 0X nr0( @ H h pX " P$( @ +``xP$x P$xP$(r02P$t xP$xP$x HXrp@Xph X(X (XT @P @L (P$H @8 @(  @ P$ ` H ! "(*!Hl  h @P x p@ x X0 x @, x (( @$  "&T!p  @ @ " @ ! (! X!h!( @? !!!( @ !$'"2& " @ (@ "8x#8##`RX L( P$@ P$l (# P$@ @P$(P P$@ (0$ $P$`t8@x$;`t$=`t#%r %x @t @p %8l @\ P&%`t`t`t`t8&pL %< @, 8& @ `tt `' `'$0%%@p  (8l @\ (`'"@'H'P'`)0%&`)@L H(< @, x( @ `) `)!p) 'r02p)p @ H@ @ @? `tp+1p+ )( @ @ 0*( @ @p @` x*(P @@ @0 *( @ @ @ +( @ @ P+ @ h/ P#/ +; h/ +;+=+@C ` H .-h/*.Hl  -h @P -p@ -X0 -@, -(( @$ , "&T.p  @ &@ h/ @ .0. `.p.( @? .! .( @ .$' h/X2& h/@ @ @ &\&(00T @R 0`t@1X`P 8 /@01L h0(x0HO 0 0DO 11@4 1($ @ `t`tH2 @ @ @ 1@ 4 X2@ @ 3 H2$`t0`t`t2*`t`t`t`t83H @ /5#`t2(34h @t 2@d 3(T @D @4 3$ @ @4( 4 @ p4 @ 4 @ 41444445 55525 53 x5`tp50 0H 0D%P)A(*\Rffff*0V412650eb\0 .( HX H$p            .  0  08 Bh p x     $ *  " ,    &40 X ` h p  x $  <    , " (08@(P hx$   ( ;+0 H+`x   +  03H `px   ( 0 $@h<p  B  @B "(08 @ $Px< "  B     * @ HX `  p x "   (%$% (%  .0*` 4x   $, H  0JP *)J50 "OH 6p.   (   0h  .0 $B>@&p(Nd&68%X($ %:c&@' X%8% %<I'&L( h% %@y% %x%'( $ %   0P#>3X##@HP3` x 6CXH`$( 8 P*`x  &  "   (% .*@ 4X  hx $, *)L5H "O`  .     0    ! ! !"<" 0! @! P!  X! h! x!!>3#@#H#!!3! !6C!HH$" " 0"*@"X" `"p"x" "" " 0 8 HX`hpx (% .* 4    ($,8 `*)pF5 "O 60h.p    0  . (H>0*(Ldx*6() ):c0)p)') * (*   8 H X#>3##hpx3  6CPH  0*@X `px & ( "`h p"   C+    "(08@ H h " $ '$F  H>Pp x  & & &0 HX1p   "   $ H @X ( 0 @HPX p   ZO"0\(X0\`    $ ( 0@HPX ` $p $  `  B          0 P  `   &      "   ( H P "X h p x     $  <    *x9Set DbxDoc = GetInterfaceObject("ObjectDBX.AxDbDocument")<. ]@]/Initialize Begins/Frame 1 Controls Files To Search ( (0MPR (2IPf 8!: 4B@6.ziBrowse 4B@6(.&<o]]]This keeps the code from_Becoming recursive when itSet the Index to a new item(This will fir the click eventIAgain)oc @ 4!dBrowse `'f f  f 4!  4B@6i'@ 4!  4( dh B 4(dkPdH 4!d'f1.k0 Remove all of the old file namesDA@ Change False to true and you can Get files from the sub folders.. fdwgA@I B@Dk|E > x` >$ B@6 >&d@ @'@~1.k(o   tRecover  dm] ]8]P] ]@ nB@Dnh t B@''8  ! !.   D !01-SA* '" t% Contains the following SafetySymbols &B=$\ &'  !:  !$ &'d  !:  !$ &'kkd nB@Dk0  write the results to the file  &B@@ &B@k k0l(| h n!pNamAdd your Case selections hereSwrite the results to the file  Error Encountered Opening t$ & Location:  t &Error:  n!t &Error Number:  n!p &(This File may have been open or corrupt. &B@@ &B@ThisDrawing.Utility.Prompt Err.Description & " with " & CurrentListBoxFile & vbCrLf & ' "Please verify and Process this file manually" & vbCrLfMsgBox Err.Descriptionln.oP 01-SA01KTSlips and Falls'01-SA02KT Electrocution'01-SA03KTCave-ins'01-SA04KTFalls from Elevation'01-SA05KTStruck By/Against/Caught'01-SA06KTAsphyxiation - Confined Space'01-SA07KTDemolition Hazard'01-SA08KTStruck By - Steel Erection'SPUnknown Symbol...'n(i h.l p 1   1  ݌)r@ZQ>).øiCS-øiCS*A*55IQLb-XF}L{&,&_2H*F?qG IwDøiCSNameT7YAT$aX,   HandleYjFZaqStyleNameĸiCS &Bldg Elevation LineLCJSqwrF]5 @IƄ8A|h n!pAdd your Case selections hereS n!tA@rlno.8]p (USE WINDOWS API FOR RETURN FOLDER DIALOG 00^H^`^x^^^^^pP]D(  'A variable to hold found files from theFileFinder method]@H*//Display the Browse For Folder Dialog ///8]]] b9DSelect Directory to traverse9J T$\9Hq8 T$\'f b$6'd d d fA@>  f f j $'`klz n!pAdd your Case selections hereSp n!tA@rlXnPiH%Utility Procedure to search for files ]]]h x x$\ x\'xk` x*.* $~'~ ~b  ( Don't want system files  ~. ~.. ~$ z  x ~ B@ x ~$ e x ~ B@B@dX x ~7 x ~ B@for kqkk ~'~allow really big searchesA@ | !   ! $ zA@ or Catk0k(  (.kl !'m :Get the path of a file contained in the c_Files collection8h $'l z h n!pAdd your Case selections hereSh n!tA@rlP nH i@ (.o ]x]'_  \'      $'~d  'k  ~'ih ]]] pH  (] 8] !T.0|h n!p Add your Case selections hereSh n!tA@rlPnHo@P0 o0 '4 (]H]`"Ensure ListBox contains list items ! (If no selection, choose FIRST list item. !  !  ( ,k` ! ' Files To Update  (AMe.Caption = Me.Caption & " - Processing " & CntLBox & " files" B@TextBox1.Text = CntLBox<lst_Files.ListIndex = ' lst_Files.ListCount -1mpaWHILEeScripting.FileSystemObject$.* !d !d$BlockRef_Report.txt $ ( ! *B@ !  " *%.&0Set o_TxtStream = New Scripting.FileSystemObject '4  !    , !Call PaintPreview(lst_Files.Text) Me.Repaintk  ,  dk '0 0 4 '2c 2N:Ss$ '2MsgBox myBatchTotalTime B@Searching Complete! &in  2 ( !d !d$XRef_Report.txt $ ( &! got something here &B@( ! &B@kh &B@B.&.*Shell Label4.Tag, vbNormalFocus (] (] ] !T. !d %~ 'Read_File_From_ListBox (lst_Files.Text) !. <.X '4] $$] (h$]0 %0& (Hp&o& '4 ( (]h ] ]]x ]o8]p.9 fC:\Program Files\ADT2004\Sample\ADT Sample Project\Sheets\CDs\Structural\S102 Second Floor Framing.dwg B@]]] !. ! k   .  Xrefs From ObjectDBXA@re:  & Xref Name:  ! &Found at This Location:  & !:'ӲAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit @ Pub` 0,  `90,I ` Qi&& n  Hl CtKG4c$/'d%ltX4 pz/$\ `` l\`v\ `` T XX $L PP l@5l@`lP3:P%NllP &F@P6l@  8C'(*#8)*FlP@4h! h @284h6l@H*8h! h #l8*#4+*#0($,l l, "#!  #2$, )h05l5,h! h #0l,X< x/,)h0O,h! h #0l,X< |l0=$[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh -\0,h! h l,\ $.k/,h<h\ .QhXh\ ,.Qh` dMD@h! h Dh ddl l@5l@`lP3:D%NllP &F4P6l4  8C'(*#,)*FlP4(h! h @2,(h6l4H*,h! h #l,*#(+*#$0! 0 @2,($)h0TX8 $lTX8 <$*,h! h Dl,X8 8$/,h X8 L$c=$[h8hc= [h<hh! h #hl 0`X\4 ,($ h0l4\l l`5lh! h @hh! h #h%Ph! h lPhE*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,kf#(*#$h! h @2($h  8)l  l [h<h5l(h! h $,! , l>$ /ll( "#!  #2 ()h,5l5(h! h #,l(X< x/()h,O(h! h #,l(X< |l,=$[8/()h,l l`5l.dPh! h lPhcE dM@@h! h Dh 0X0(h! h l(X $1k/(h<hX 1QhThX 01Qh`P`$ $lP`V\t l\2<\Wl3:@40\W5(X8 8$/(6l0X8 <$ 364*Fl\W05(X8 8$/(6l0X8 <$ \uk dM@@h! h Dh ddl l@5l@`lP3:@%NllP &F0P6l0  8C'(*#()*FlP0$h! h @2($h6l0H*(h! h #l(*#$+*# ,! , @2($ )h,PX8 $lPX8 <$*(h! h Dl(X8 8$/(h X8 L$c=$[h8hc= [h<hh! h #h8 TX`\< ($ h,l0p l l`5lh! h @hh! h #h%Th! h lThh*lh! h l(D]3h5l4lh! h l0! 0 )h05l (lh! h Dh5l Th! h lTpfh,kf#,*#(h! h @2,(h  8)l  l [h<h5l,h! h (0! 0 l>($,l l, "#!  #2$, )h05l5,h! h #0l,X< x/,)h0O,h! h #0l,X< |l0=$[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh -\0,h! h l,\ $.k/,h<h\ .QhXh\ (.Qh` dMD@h! h Dh ddl l@5l@`lP3:D%NllP &F4P6l4  8C'(*#,)*FlP4(h! h @2,(h6l4H*,h! h #l,*#(+*#$0! 0 @2,($)h0TX8 $lTX8 <$*,h! h Dl,X8 8$/,h X8 L$c=$[h8hc= [h<hh! h #hl 0`X\4 ,($ h0l4@:h7%,8T! T @TT! T #TT! T XTC',PT9$: ,;T L;>PF<L! L <)TL6<,+',:h=N<<T! T <T6<,[T4TT! T @TP(x PTL<,$_'lp! p <ll=0/lp l>l1xlxJFhp! p <lhi4xMT@d! d <)pd54 _>hp! p <lhi4d! d <)pd54p! p <p,lp! p <>l1xp+2>Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__Id(x lpd4@ ?j -x TTHTKoR x $.pjprKTx .QTtTt t@QT[LdHAjTd AlT=B`Tl`XDC, lXDXW$E:4F}5$ kjpjO G*#(*F:4HN$$B  :(`1\/6 $\l\F4XW$E:IXWE>F:(`1\/6$\l\F4XW$E:IXWE>F:(`1\/6$ TTHT XDCkj[l\X8 8$@X8 @$ dHA TT lqT:4J$l $:(:K F:t(:dL TT ,>FTD:4($:M  li:(:NX8 8$/)T6$TD$@X8 @$ l c=OtL4 LHD\txd`XlTT$TD$$ l Ct-ltCp lpP0*QCx lpR0BSCx lpT0ZUCx lpV0rWCx lpX0YCx lpZ0x lp\0]Cx lp^0_Cx`Cx/ 0xpt Kc=[x4xbt xx ltqpx<'''<l xx ,>lF\ x6\<  $ $lx\<x    p pg8      !"_N%&')+,-./01234567#:\<=>?@ABCDEFGHIJKLM9PQRSTUVWXYZ[^`abcdefghijklmnopqrvuwxyz}{|~Xy}-OaVXMAi.0\:ANMۿ>6-r@ȇ~r - 1hWun2DXx`V7(.C T)zK8 k*Hp ^-O`H=u#[EH ^ . 1 RecoverkݼJJ΂U  9iI x/Ib PCI 01-SA* J Contains the following SafetySymbols = :  4Error Encountered Opening  Location:  Error: Error Number:  PThis File may have been open or corrupt. &BlockRef_Report.txt /A#~Li<_3{p DFQ{ա AECGather GetAecObjs H48MtjJc"K/EUMaC~BoiciEV 4 1xCommandButton3CommandButton3_Click $$48<@P` !-xC38]9<(NU0[z)KhJpaHu!= &qIIM@MI L)KBx"k AcadDocument @ ~۵B2<.ϹW/JNGX0 $AcDbBlockReference \γQNl [K. D@7f;i=ژ6FfԁI"` Oi>>>q?Y TTFUT pH`taxq ` |C` J`  10 `0 `IQygWWW_ -KXqL L TL *(,(   `#TL/6, qL"(,(   `1P6,,X^q<X lqT lTR lP4llT F, 6, / +'hPxi0c,e'P Xi P,eiXP t$,  4Kx Js(l M`@P P:@ ]@5PK  *'   *FP 1x5P lx=  lx0lx0;xM`@P PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^/Q+'''0 lx*FPt$ 6P0   lx*# Hk/+'''0 lx*FPt$ 6P0c'P 1x5P iXt$ $lVrt$ $lcV3PrM`@t$ +lP`/5P rd  c=tb  lq<'''0  ,>FP 6P0 ue0xt$P0P tX4 $ltqx/  $ -K3"X Mh@X4 X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L[x4x$ x. qdld  qhlh`* Jldl MP@@ @`1`5@plhqdlh l`FPl/ <,l`@ l l`5lh! h @hh! h h%8h! h l8h*lh! h l((]3h5l4lh! h l!  )h5l (lh! h Dh5l 8h! h l8pfh,kf#*# h! h @2 h  8)l l![h<h5lh! h  !  l> "ll ##!  2)h5l5h! h lX< x/)hOh! h lX< |l=$[8/)hl l`5l.d8h! h l8hc dM(@h! h Dh %T0h! h lT $&k/h<hT &QhPhT ,&Qh\8\$ $l8>h! h l<*# o*#X8 8$2 hX8 <$I()*#)*# )*#)*#)*#**#X8 8$2  6:(+NllB  X8 8$/6l\VXt lX=,LcL ,l)*# )*#)*#)*#)*#L X-l*#X8 8$2 ).*F((%lL ,l:/(t%L ,TD:4/$(%L ,:0X8 8$/6lTD$L ,k)1*#X8 8$/X8 <$@))*#2*# )*#)*#3*#X8 8$2  A:):(4Nll!  X8 8$/6llL ,l< <5ILb<5Icy))*Fb@h! h l*# ?*#!  @2 )h8X8 $l8X8 <$*h! h DlX8 8$/h X8 L$c=$[h8hc=![h<hh! h h@"(\PLXT<l hlTD$@l l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,kf#(*#$h! h @2($h  8)l l![h<h5l(h! h $,! , l>$ @ll( ##!  2 ()h,5l5(h! h ,l(X< x/()h,O(h! h ,l(X< |l,=$[8/()h,l l`5l.dPh! h lPhc dM@@h! h Dh AX0(h! h l(X $Bk/(h<hX BQhThX 0BQh`P`$ $lP`V\t<\WlC:@)0\WD(X8 8$/(6l0X8 <$ \uk dM@@h! h Dh dd)3'':7N00@:@8Nll 6l0l l@5l@`lP3:@9NllP :F0P6l0  8C;<*#(=*FlP0$h! h @2($h6l0H>(h! h l(*#$E*# ,! , @2($ )h,PX8 $lPyX8 <$*(h! h Dl(X8 8$/(h X8 L$c=$[h8hc=![h<hh! h h8 TX`\< ($ h,l0Hl l`5lh! h @hh! h h%Th! h lThk*lh! h l(D]3h5l4lh! h l0! 0 )h05l (lh! h Dh5l Th! h lTpfh,kf#,*#(h! h @2,(h  8)l l![h<h5l,h! h (0! 0 l>($Fl l, ##!  2$, )h05l5,h! h 0l,X< x/,)h0O,h! h 0l,X< |l0=$[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh %\0,h! h l,\ $&k/,h<h\ &QhXh\ (&Qh` dMD@h! h Dh dd3'':7N44@:D8Nll 6l4l l@5l@`lP3:D9NllP :F4P6l4  8C;<*#,=*FlP4(h! h @2,(h6l4H>,h! h l,*#(G*#$0! 0 @2,($)h0TX8 $lTX8 <$*,h! h Dl,X8 8$/,h X8 L$c=$[h8hc=![h<hh! h hH0`X\< ,($ h0l4@:hH%,IT! T @TT! T TT! T XTC',PTJ$K ,LT LL>PF<L! L M)TL6<,+',:hNN<<T! T MT6<,[T4TT! T @TP(x PTL<,$_'lp! p MllN0/lp l>l1xlxJFhp! p Mlhi4xMT@d! d M)pd54 _>hp! p Mlhi4d! d M)pd54p! p Mp,lp! p M>l1xp+2OCllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd4@ Pj %x TTHTKoR x $&pjprKTx &QTtTt tQQT[LdHRjTd RlT=S`Tl`XD-, lX,XW$T:4U}5$ kjpjO V*#<*F:4+N$$B  :<`1\/6 $\l\F4XW$T:WXWT>F:<`1\/6$\l\F4XW$T:WXWT>F:<`1\/6$ TTHT XD-kj[l\X8 8$@X8 @$ dHR TT lqT:4X$l $:<:Y F:t<:dZ TT ,>FTD:4<$:[  li:<:\X8 8$/)T6$TD$@X8 @$ l c=]tL4 LHD\txd`XlTT$TD$$ l Ct-ltCp lp^0*_Cx lp`0BaCx lpb0ZcCx lpd0reCx lpf0gCx lph0iCx lpj0kCx lpl0mCxnCx/ 0xpt Kc=[x4xbt xx ltqpx<'''<l xx ,>lF\ x6\<  $ $lx\<p |   x o $ $lx\<x    p pg.*Shell Label4.Tag, vbNormalFocus ( ]H ]` ]` "Ensure ListBox contains list items ! (If no selection, choose FIRST list item. !  !  ( ,k $ ! ' Files To Update  ( B@Scripting.FileSystemObject$.* !d !d$AECEntities_Report.txt $ ( ! *B@ !  " *%.& '4  !    ,.N !d N% N!T. N!.LkH! L! R L &B@( Rk  , ENDWHILEd '0 0 4 '2 2N:Ss$ '2 B@Searching Complete! &in  2 ( &! got something here &B@( ! &B@k` &B@B.&.* (o R! T R! &B@ ObjectDBX Explorer ((8(7Please Select some Files! Need Files for DBXA@r|7k7d7Please Select some Files! Need Files for DBXA@r|8707d9Please Select some Files! Need Files for DBXA@r|88x Browse to !! to review DBX Aec Entity Report. (3 Browse to !2 to review DBX Block Reference (Insertion) Report. (4 ! ]" R  Rk33]" R.!]B=$\ &B@t_File !DBXBAt !'k   TxtStr vbTab T$The Following Attributes were found: &B@ &B@( T T $! T T $! &B@1 !d &$Contains the following Block Inserts &0OI{r2Ä;NOdw0 A 18FvưBt)[RIJA3UKz+> SAخ!~YЗA:O>Q$ C 1cmdGetAecEntitiescmdGetAecEntities_Click $ObjectDBX Explorer : to review Aec Entity Report.ObjectName CP13_3DBXWrap67@ %'C:\PAGEDIR\VBE\MSForms.exd QEX8 <$*,h! h Dl,X8 8$/,h X8 L$c=$[h8hc= [h<hh! h #hl 0`X\4 ,($ h0l4@:h6%,7T! T @TT! T #TT! T XTC',PT8$9 ,:T L:>PF<L! L ;)TL6<,+',:h<N<<T! T ;T6<,[T4TT! T @TP(x PTL<,$_'lp! p ;ll<0/lp l>l1xlxJFhp! p ;lhi4xMT@d! d ;)pd54 _>hp! p ;lhi4d! d ;)pd54p! p ;p,lp! p ;>l1xp+2=Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd4@ >j -x TTHTKoR x $.pjprKTx .QTtTt t?QT[LdH@jTd @lT=A`Tl`XDB, lXCXW$D:4E}5$ kjpjO F*#(*F:4GN$$B  :(`1\/6 $\l\F4XW$D:HXWD>F:(`1\/6$\l\F4XW$D:HXWD>F:(`1\/6$ TTHT XDBkj[l\X8 8$@X8 @$ dH@ TT lqT:4I$l $:(:J F:t(:dK TT ,>FTD:4($:L  li:(:MX8 8$/)T6$TD$@X8 @$ l c=Nt,''>LF,>TFF, 6, / cumhPxi0arcEnts Xi nd If coP Cs$,  4Kx Js(l M`@P  P:@]@5PK *'  *FP 1x5P lx=  lx0lx0;xM`@P  PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^!/Q+'''0 lx*FPt$ 6P0 "  lx*# H#k/+'''0 lx*FPt$ 6P0c'P 1x5P $iXt$ $ lVrt$ $ lcV3PrM`@t$  +lP`/5P rd  c= tb  lq<'''0  ,>FP 6P0 u0xt$P0P tX4 $ ltqx/  $ -K3"X Mh@X4  X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L [x4x$ x. qdld qhlh`* Jldl MP@@  @`1`5@plhqdlh l`FPl/ <,l`@0   0   l %l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,&kf#(*#$h! h @2($h  8)'l ( l)[h<h5l(h! h $,! , l>$ *ll( +#!  2 ()h,5l5(h! h ,l(X< x#/()h,O(h! h ,l(X< |#l,=,[8/()h,l %l`5l.dPh! h lPhc dM@@h! h Dh -X0(h! h l(X $.k/(h<hX .QhThX 0.Qh`P`$ $ lP`V \t<\Wl9:@00\W1(X8 8,/(6l0X8 <, \uk dM@@h! h Dh ddl %l@5l@`lP3:@2NllP 3F0P6l0  8C45*#(6*FlP0$h! h @2($h6l0H7(h! h l(*#$8*# ,! , @2($ )h,PX8 ,lP>X8 <,*(h! h Dl(X8 8,/(h X8 L,c=,[h8hc=)[h<hh! h h8 TX`\< ($ h,l00    @:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__st_d(x lpd40   0 P  0   x    p pgA06 :Asphyxiation - Confined Space 01-SA07 "Demolition Hazard 01-SA08 4Struck By - Steel Erection "Unknown Symbol...tPL;Eŷ%^unsGgW.! n LECNWHbo ^y)dIϱ!^P:RI溙,zDD^h8LC!JApLSwG ,1P7]PM47/@GVQX:J^Q+RtDwgProps,Ce, SfI1UHGĠ5EYLa8lgH[(͡HuG[K1S^ AJ 1h  cmdGetXRefscmdCancel_ClickcmdGetXRefs_Click 2Please Select some Files!C*ŽLoDSLE ww $Need Files for DBX\DJ iK{3 O'c=,E\cANd)Jt|@ +G,QA/=T M 1 DBXWrapMainForm(>?Kŝ 6íB=`y|BS@E~N-(jCA F=aBD)J=`(xboewOM) N 1 vܵ?EMrҁ./AbJJDĨdmTHN,hE- /w$ A8  Tag K 1  d to review DBX Block Reference (Insertion) Report. B to revrU  ))1! Qzno pQppqyqq9rrr sIsyss t9tqttu1u!*** +1+Y+y+uqvovu )z Qz@@Y   WWWL[x4x$( xL- 4x/ (x H l 5l$ lX .c=[h4h/  (lhHl CtKG4c$/'d%ltX4 pz/$\ `` l\`v\ `` T XX $L PP ,''>LF,>TF8F814 l4"00<c#[X<X+28t !>8F<X< 0$k25<+<8t !ltXXM @>8F<X< ($lX=tX5< l4%0@8t !l8 & /8H8t !''>8F($)l l, #!  2$, )h05l5,h! h 0l,X< x/,)h0O,h! h 0l,X< |l0=[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh *\0,h! h l,\ $+k/,h<h\ +QhXh\ ,+Qh` dMD@h! h Dh dd3'':N44@:D Nll !6l4l l@5l@`lP3:D"NllP #F4P6l4  8C$%*#,&*FlP4(h! h @2,(h6l4H',h! h l,*#(,*#$0! 0 @2,($)h0TX8 lTX8 <*,h! h Dl,X8 8/,h X8 Lc=[h8hc=[h<hh! h h H0`X\< ,($ h0l4@l l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,kf#(*#$h! h @2($h  8)l  l[h<h5l(h! h $,! , l>$ ll( #!  2 ()h,5l5(h! h ,l(X< x/()h,O(h! h ,l(X< |l,=[8/()h,l l`5l.dPh! h lPhc dM@@h! h Dh X0(h! h l(X $k/(h<hX QhThX 0Qh`P`$ $lP`V \t<\Wl:@0\W(X8 8/(6l0X8 < \uk dM@@h! h Dh dd)3'':N00@:@ Nll !6l0l l@5l@`lP3:@"NllP #F0P6l0  8C$%*#(&*FlP0$h! h @2($h6l0H'(h! h l(*#$(*# ,! , @2($ )h,PX8 lPyX8 <*(h! h Dl(X8 8/(h X8 Lc=[h8hc=[h<hh! h h8 TX`\< ($ h,l0p l l`5lh! h @hh! h h%Th! h lThh*lh! h l(D]3h5l4lh! h l0! 0 )h05l (lh! h Dh5l Th! h lTpfh,kf#,*#(h! h @2,(h  8)l  l[h<h5l,h! h (0! 0 l>($)l l, #!  2$, )h05l5,h! h 0l,X< x/,)h0O,h! h 0l,X< |l0=[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh *\0,h! h l,\ $+k/,h<h\ +QhXh\ (+Qh` dMD@h! h Dh ddl l@5l@`lP3:D"NllP #F4P6l4  8C$%*#,&*FlP4(h! h @2,(h6l4H',h! h l,*#(,*#$0! 0 @2,($)h0TX8 lTX8 <*,h! h Dl,X8 8/,h X8 Lc=[h8hc=[h<hh! h hl 0`X\4 ,($ h0l4@:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd40   0 P  0   | x    pp_yEH )ݠ`vGS}?M=p0:LF,>TF8FF, 6, / hPxi0,eXi ,eP $,  4Kx Js(l M`@P  P:@]@5PK *'  *FP 1x5P lx=  lx0lx0;xM`@P  PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^!/Q+'''0 lx*FPt$ 6P0 "  lx*# H#k/+'''0 lx*FPt$ 6P0c'P 1x5P $iXt$ $ lVrt$ $ lcV3PrM`@t$  +lP`/5P rd  c= tb  lq<'''0  ,>FP 6P0 u0xt$P0P tX4 $ ltqx/  $ -K3"X Mh@X4  X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L [x4x$ x. qdld qhlh`* Jldl MP@@  @`1`5@plhqdlh l`FPl/ <,l`@Hl %l`5lh! h @hh! h h%Th! h lThk*lh! h l(D]3h5l4lh! h l0! 0 )h05l (lh! h Dh5l Th! h lTpfh,&kf#,*#(h! h @2,(h  8)'l ( l)[h<h5l,h! h (0! 0 l>($*l l, +#!  2$, )h05l5,h! h 0l,X< x#/,)h0O,h! h 0l,X< |#l0=,[8/,)h0l %l`5l.dTh! h lThch dMD@h! h Dh -\0,h! h l,\ $.k/,h<h\ .QhXh\ ,.Qh` dMD@h! h Dh dd3'':/N44@:D0Nll 6l4l %l@5l@`lP3:D1NllP 2F4P6l4  8C34*#,5*FlP4(h! h @2,(h6l4H6,h! h l,*#(7*#$0! 0 @2,($)h0TX8 ,lTX8 <,*,h! h Dl,X8 8,/,h X8 L,c=,[h8hc=)[h<hh! h hH0"`X\< ,($ h0l40 X  0   @:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd40   0 P  0   p |   x oiew DBX Aec Entity Report. XRef_Report.txt R to review DBX External Reference Report.hrBs9f2 / HMI>DBX_DemonstrationL'%7ҸlEivh!\czN XS&Dޖ1?`wFK |d T 1 3HsaK) $ϏFLBS=ME0g_A _ț&ӜuC:ݰ?(`'N=g )Uf!o`i01 ' n``X@CompObj"$nVBFrame{$SchedulesA0Cfo&(B@07@7`7H7 ! T T T T ! & &B@h7Name T T T T T T TLayer & &B@& TInsertion Point (x,y,z): ( %, %, %) & &B@p7 T TTag T TValue & &B@&7 T!-$\ & &B@B@777 B & &B@ B & &B@7 B & & &B@77 !  B & &B@B=$\ &B@ B & &B@   ! T T T T !: & &B@& TInsertion Point (x,y,z): ( %, %, %) & &B@ B & & &B@ k4 !d &*Contains the following External References &B@Name T T T T T T TPath & &B@5X+ Attribute VB_Name = "DBXWrapMainForm" Bas0{1BB0A07E-D30F-4160-972A-6567C1C873BD}{37EF54CB-1936-4EE5-8531-0A1FB11092AB} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit 'USE WINDOWS API FOR RETURNLDER DIALOG P8 < D_ Func'SHBrowseFolder _ Lib "shell32.dll" A@lias "A""(lp"Info As BR$EINFO)0Long,X!GetPathFromIDList! D"ByVal pidl, ,szASng)+M'TypeH0 hOwnF BRootEA pszDizs@xy¾@ l1Titul FlagsIlpfnParamIiImageG0End -XConPMAX_PATH2600'A varito h} foufiles "f@` th'FFinmethodǑc_- Colle Dim o_TxteTefs"DScri Zng. Syst`emObj m@yBatch@T ime, Total+Star#b//$0A R `[`[Dialog ///%a`Retura(BW'8a rA/G\;qlngDh@P.Des`o!ResuF"`s`UyUtility Proc edureA?searchzr z b]ub Sub !nz("gS,Extensƕ, 5~Boolean)D\ OcDi"3New B1intcnrTIntegc1aMtrol$Len ) > 0 5%Right, <> "\"V'AC-Dݲ&QUQ" 1( =16 *.*"2 vb8o Wh@T q) 6"Me.MousePo@eP= fm Hp%Glass 'Do@n't wasRA%PNot ".{#12 L".8 `StrComp(C, 3),!,] )9Gi! Tb.12&&Y E1 &ѡ(AH1q&tr V)ahA5 .]9sts/ le/)L  #  AX'IY(c'allow lly bi4g #Be%p8oEventLoopQ?"@( zC tq7v== 1 m {(%õ N0 CC'44Defaul`?et  1hiѩ Wwa3P$aonQHOarrOaOaOaAAOaOa Eaca2 apera 5_Cʼnq=:%fa` pP of aG cin2chuv(~ID嬿\``d`T(U?}cz}n}}r}(}Ku etAs(cS1,T=2u !`iJi? o~cPo1#,!SqsSUGƶame As String lngStar t = 1Do#tPoslIn(, strFullPath@, "\")fI f Nl0 Then6S:ileN= RighDt( NLen ) -P+ 1jElse \1"End IfLoop WhcEW> 0 P`arseFU\  %Functiop Private Sub cmdGetBlockRefs_Click(\myBatchTimeNow Label40.Cap'^"" TagDim CntLBoxInteger i, kcol_Br#ANew Col leD/genOcontains l itemG AAst_ls.A Count >̡' no seD@, choose FIRST.CIndexf-1l!TopE 'B SB&ed(0)Truȹ A 9E= B?frXm_M&L b% @To UpdW" &%L''Me!& " s Process@ " fgs`YaRepF!e'Tex!;1.$(+*_' ' p -DA@'WHILES@et fsore@ #_("Scr"iqng.a$Sy~sLcvCtl0ace(G, [ )__ort.txt", 1,, vbComparesh`.C"a , AF, Fa*o_Txteam Ope n ( ForApd@ 1 Then{got sometah' Write  (UEnd If #Close Set3JNo> fso 'Shell* ,NlF ocus 4.1I= "@=Sub Pri vate  cmdGetAecEntities_Click(@+g@S w{" Dim CntLAs Integer  i Mcol_AECsN@sCollecAnC genObj@cCaec@~'e.rDBmecADbxAXDBLib.AxDb'Ensure List!A-conts l {mUlst_FilesstCount >= A ' no se3, cho{ FIR4ST.ÐIndexU-IA !TopE ' S"ed(0)@ Tru@Q!aUs9=  frm_M&ix b% To UpdAO 'ib_C utec?("ScDring.A Systemce!Rlace(Text, ParseNam>)Ic`txt", 1, -`vbarefE. v-, FaleπOpeneC {orApd@, # TrU`,UseDefau/ Om%qNp3 _ B;" /bi'ENDWHILE#E2"Plea B{F!:vbInfpeedH`!k Exit!qzD3 ԓNo`p- bjU??7_YV___mp rR_S__X Ry QP/)q$ OOP~-G(O (߹OpNO &B/"OetXRefvәwl_XBrwmP(VoBXP??1my _XcadExternal OOB#ftO OOњO1xO(wOOONO)"5O BqO O!O mp)OOaO?OOaA2_Bߔmpߔߔq璐ߔ`WAbgyueѕ+'Q8_U a e/|/>les.Selected(i) = True  Set myDBXStarterNew O bj,Document jIf h .OpenR(l st_FiText) Then 9zsDbx0m |.m3col_XBrefs 7X hEnd If 'ReadP_From_ListBox [!vNot >.Count < 1po_TxtStream.Write & v bCrLf"Contains the following Exnal References"K4vbNull>"!"Name"&Tab"Path6)(66, "= ") 7For PEaché_ |InqS§.HEH ADB DUp_"Inserti@on Poi(x,y,z): (AY (0)_8Ak", 1 2)! #[+c9X&Nh: q~ Cl@+ tFalsiG'ENDWPHILECEMsga"Please  somDe B!",Informa=`a0Need r hExit S ub myBaHtch Ti =0 Now$Totald-*6`k $( :Ssx'$ Me.RepLabel4.Cap"]= "@SearchComplete!J@C"in  b 5i Brow.to"d Tag revi,@port.`/`ILine >Y'g`ġ:tBh`(NT (D! eZCloQA[ԡ Afso)'SheXll 7a'NA'lbF@~s p"P& Prival U`I1 P_ActR([Dim strBlank As S tr@'/Initialize Begna` h&plorer '/Fri#rrol frm_M$3lTo06$ '=Visible eQEnadc bo:@B.AddItem ApplicR:.]Q ݀"'ccGd`!? _CkfA0lngCcpLo ng1 =tic blnCodeBooIš'This keeps52c!f'Becom9recursive wiP i"'Index6a n-6i(wi1(fira evT'Ag%e դ`J5H ("=Aq(Scmoao&f f n:r9Resetbm'ChangpnKs t aPyou ca&G %QsP=omsubs..!tFi0%r!F1fdwgs Str@(66, "=")+A&CaS+:+& RtnF'Category(G]!EJ.C?! CLWc_Qs.>OoSOo ;a\YOo|s Oo?K17 2 ?K ] @)fWذ!HBx*=h8+3qU]#Mi#LMBexU]#Mi#LMBe)fWذ!HBxME$T P@SS SL!0^LP!9 LLP<JN.>@)fWذ!HBx*=h8+3qU]#Mi#LMBexU]#Mi#LMBe)fWذ!HBxME$T P@SS SL!0^LP!9 LL2 Second Floor Framing.dwg Xref Name:  0Found at This Location: (Xrefs From ObjectDBXƸiCS +C:\Program Files\ABS2004\AecXSchedule40.tlb AecXSchedule jkakxnOGܤZlU]#Mi#LMBeFH@ܬ~6èeOȴg AecByType AecGather L48<9 C:\Program Files\ADT2004\Sample\ADT Sample Project\Constructs\Architectural\Partitions\01 Floor Partitions.dwg AecDoorĸiCS (Doors From ObjectDBXBB$co AecWallFace AecBdgSection "AecBdgSectionLine (AecCeilingLayoutGrid (AecCurtainWallLayout $LLPLLPLL!!>"LPLLLLLP(az.aN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}P(%%$%L`x0 \%$%$% iPpAecCurtainWallUnit &AecBdgElevationLine AecOpeningBase AecOpenFiller AecWindow AecRailing AecRoof AecSlabBase AecRoofSlab AecSlab AecSpace AecSpaceBoundary AecStair AecWall "AecWindowAssembly AcDbDoor  %%) %"48@%%`t@`t8i  R `lH4 `tH`t0`t`ti   %`t) AecDbDoor AecDbWall $coIvolRX)XM`'繈%9Ob"|!vlM0e[TO] ', DoorObjects Number  Door Num: 9 C:\Program Files\ABS2004\Sample\ADT Sample Project\Constructs\Architectural\Partitions\01 Floor Partitions.dwg6K #5x  pP@  %,P`tHX $H t,`0o<))M%%,!Txhx) (z  , `tH0(!  h@ t%`tH,p` tk@,I) T% Xp d`P% l %x  pP@`t`t`t@@`(d d `t,e l(8  8(P%P h`` `t0 P\ 0 8X T K).C_{ IG,_l$GoT#$ Door Name: GetScheduleDataƸiCSGetScheduleDataItemƸiCSAttachScheduleTag øiCSGetAllThatApply 5 C:\Program Files\ABS2004\Sample\ADT Sample Project\Sheets\CDs\Structural\S102 Second Floor Framing.dwgModule1 SchedulesGet@P h L @< @, @ @ 0 x 0 ` 0 H P x8 %X `h i  ` @  (  x@@ `tz, `t`tH`tH 8  ( t ( h x  %p %`t( h 00d@t %x, `J8##%%)( %h8P (  x h h@d @h` P(l l 8x l (((h h @\O h@XO `@T @D @4 @0$ @H @ @ p h@ XPp @(xh (@@ (` @\ `XO T @D x4 @$  @ @ O @ @0 c8@@ h @pHD@ )A*\R0*#1c*\R3*#105$*\Rffff*144116602c*\R3*#85*\R3*#f5*\R3*#5c*\R3*#5f*\R3*#b9*\R0*#1b*\R3*#5b*\R1*#8b*\R3*#5f*\R3*#5e*\R3*#85*\R3*#5c*\R0*#1b*\R0*#19*\R3*#5e*\R3*#cb*\R3*#ec*\R0*#13*\R3*#104*\R3*#104*\R3*#5f*\R3*#5b*\R0*#1b*\R1*#8b*\R3*#8b*\R3*#8b8 88 " @( &h 8 (  B  8 :@  (8 "@ : $ <X : * HP B X 6 ,`h B p < 8P > (x B B $"v B <` > .   B HPX "`! 8 8 4P   H  H h  4H( XH  ,   B  B !( .(Xh "X8H   @ 6   ( x@o$.tiveX Gzj]@xA@op .i  B@'ip`z n!pk8Just pass it back out.Sou n!p n! n!t nB@0t L  .Tm ]] Get list of availble Xrefsode sk k& Return list of Blocks in this drawings\ ! . ogrdP. k@i8p]X]' Get list of available Block references !AcDbBlockReferencek0 Return list of Block references in this drawing ! .dh.kXiP]h]8  !  !.  Pi .i .  ! B@sp . p]]]  ! !.h  h  T (- Simple way to avoid duplicates in collection @- Simple way to avoid duplicates in collectionion h!k8 - Simple way to avoid duplicates in collectiond h..Handl  ! B@   ! B@@1Declare a Private Variable to bind to our drawing9This is the first routine that will fire when an instanceof our class is first allocatedis calling it.we i!and allocate the memory required.2This is where we initialize our ObjectDBX document2This a public property allowing us to pass out the4ObjectDBX document to a form or other function whichof our class is is destroyed. wil$object destruction in that function..we i3This is the routine that will fire when an instance/This is where we destroy our ObjectDBX document5Since the Cleanup function can be called by any other3statement we will centralize all memory cleanup and%and clear the memory for other usage.6This function receives a fully qualified file name and 2the path to the file (dwg) and if all is well with8the open command, it will return a boolean value of TrueS;The default setting for a boolean is False so we don't need1 <to do anything, just raise our error and let it report back.RTY5Maintain our separation by using a public function as(passed out of the private function belowec 7an intermediary to return the Xrefs collection which isA 8lAttribute VB_Name = "ObjectDBXDocument" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacIFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz EOption 0licit 'DG0 a P(, Varito bind our drawing AxDb As AXDBLib.  ./HelpI2D-1A'Sub Class_Initialize() @'This the first routine that wille when an ins0tanc@hof6 1^salhloc=dLr=e@E"F d;aI@$e memory rPequi@{. Set B?NewTNECBGub@k@goperty GŸ()_B=BMa pprA*r usAwp\7t.3: a form or oar func`whichic it=->i@ 9PD%TerminhR@y@ destroyed'Si`F"8CleanupŇcJbe otbyLy!$Ntea wG!RcrY @"Bc$ FU$o uC*in [e,C'KDF1d.&Z_Z!r!Y?d?usageZC;CHYOpenB(ByVal sB%SngB[Booa%$YfNrec e@s@fully qu -fi`3tfi n!G,p8athXab(dw  if"4@Bwe@witYfn comm@,Zretur fStNI'B lXC-/S>M>;J" j  qLqF(|L`m ! 18 ƸiCS%øiCS ƸiCS+øiCSƸiCS 1 , H^,<gtF! 0AEC_PROPERTY_FORMAT_DEFSgID9 l AecMVBlockReføiCSƸiCSƸiCSAøiCSO<*rMR[Z 9bK.u-m)@zA;p ! 1 J\O%b 񈧂L7 ZXRtGw`m7-PhIAra~k&GK A 19Jb[VǻN jBs.Q(iE9&uPHrFAatA!@a*P 1'PKfAcqЉVV+Noئ9SI@~R.D}i#@ݐ^b value @TruOrr fGoTo ErrCat0cherCtIf!FIs N' TExit '(ag.'& d*logaL :ceOfault set@g}+`# so\don't nee$dobth?, j raiA6e a-l@report backH'JA‘@T$.Number <> n02Rw,I.SceDescripA*|If4Pn3S% XrefsWCollt#'MaXint0 rparabQbyVg@$X+asjtPNediacPt%'R'mVp߱/pa'pd|belowq:=qdx gDim XRefLi@y;QmQ1o_BvkkcadB REn rG  ity8_Lay!pSYwXRxnal0 ere'! lQ  0 Set Gveʉs)ElstNoFCuFunctY _urn lB of J rbthis drawingG^Cou> 0 Set Gets)ElstNo@#!:Funct Y _@SLSS6"<<^<F, 6, / hPxi0Xi P $,  4Kx Js(l M`@P  P:@]@5PK 1 **48<@P` GDMڼKJw"IKJtI*W(<6@gu@sCU+1GVN>  1V1f@t=H]gnwbdpBT W5hܐHC%l 5F_c'8Uң1LXK>zQEXp2s 1` TContains the following External References P *'  *FP 1x5P lx=  lx0lx0;xM`@P  PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^!/Q+'''0 lx*FPt$ 6P0 "  lx*# H#k/+'''0 lx*FPt$ 6P0c'P 1x5P $iXt$ $ lVrt$ $ lcV3PrM`@t$  +lP`/5P rd  c= tb  lq<'''0  ,>FP 6P0 u0xt$P0P tX4 $ ltqx/  $ -K3"X Mh@X4  X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L [x4x$ x. qdld qhlh`* Jldl MP@@  @`1`5@plhqdlh l`FPl/ <,l`@0 0   0 X  l %l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,&kf#(*#$h! h @2($h  8)'l ( l)[h<h5l(h! h $,! , l>$ *ll( +#!  2 ()h,5l5(h! h ,l(X< x#/()h,O(h! h ,l(X< |#l,=,[8/()h,l %l`5l.dPh! h lPhc dM@@h! h Dh -\0(h! h l(\ $.k/(h<h\ .QhXh\ (.Qh`P`$ $ lP>(h! h l(/*#$0*# X8 8,2($ h/*#(X8 8,/(d12*#(2*#$2*# 2*#2*#2*#2*#3*#/*#X8 8,2($ 6:@4NllB0  0(X8 8,/(6l0/*#(X8 8,/(`V T5c(T 6l(2*#$2*# 2*#2*#T 5l*#/*#X8 8,2($ 27*F0(@%lT 6l:8(%T 6hX:H88(%(T 6(:9:/(X8 8,/(6l0hX(8'/*#(/*#$X8 8,2($ T5~ ` dM@@h! h Dh dd@3''::N00athԄ"A|^/e%H*oea@o\\@]-ek7_BVL*X- 1DhEkZ2VnG5<+V:SEy8%_DPCntD_N*D/' XEbQj5 ч 1@Cw@ zBB\'Į:MHef[a+dSym;F]l>0i)]OƸsI9e  1Z$>qkDOMGݩF@:@;Nll 6l0l %l@5l@`lP3:@<NllP =F0P6l0  8C>/*#(?*FlP0$h! h @2($h6l0H@(h! h l(*#$A*# ,! , @2($ )h,PX8 ,lPX8 <,*(h! h Dl(X8 8,/(h X8 L,c=,[h8hc=)[h<hh! h h8 XT`\t($ h,l0hX8(@:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd40   0 P  0   p |   x o)=oefrm_Mpy9 BUpdp= o#pC&p xPro!]` =f s&UYG5'0'1. _U -7[g:CoC*("?_UU*40Klaceg,`rse_}i[1<_Otxt", 1, -0pWarew=U`E.  Ql5KKŕoolťK CompObjp__SRP_a,1__SRP_b%81 H> #<6K #u!= &5K).Cx5K).C6K #MEp40h8X@SLSS6"<<^<F, 6, / AhPxi0B$"utoCAD_VXi $"P $,  4Kx Js(l M`@P  P:@]@5PK *'  *FP 1x5P lx=  lx0lx0;xM`@P  PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^!/Q+'''0 lx*FPt$ 6P0 "  lx*# H#k/+'''0 lx*FPt$ 6P0c'P 1x5P $iXt$ $ lVrt$ $ lcV3PrM`@t$  +lP`/5P rd  c= tb  lq<'''0  ,>FP 6P0 u0xt$P0P tX4 $ ltqx/  $ -K3"X Mh@X4  X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/ (x$HTX8L [x4x$ x. qdld qhlh`* Jldl MP@@  @`1`5@plhqdlh l`FPl/ <,l`@0 0   0 X  l %l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,&kf#(*#$h! h @2($h  8)'l ( l)[h<h5l(h! h $,! , l>$ *ll( +#!  2 ()h,5l5(h! h ,l(X< x#/()h,O(h! h ,l(X< |#l,=,[8/()h,l %l`5l.dPh! h lPhc dM@@h! h Dh -\0(h! h l(\ $.k/(h<h\ .QhXh\ (.Qh`P`$ $ lP>(h! h l(/*#$0*# X8 8,2($ h/*#(X8 8,/(d12*#(2*#$2*# 2*#2*#2*#2*#3*#/*#X8 8,2($ 6:@4NllB0  0(X8 8,/(6l0/*#(X8 8,/(`V T5c(T 6l(2*#$2*# 2*#2*#T 5l*#/*#X8 8,2($ 27*F0(@%lT 6l:8(%T 6hX:H88(%(T 6(:9:/(X8 8,/(6l0hX(8'/*#(/*#$X8 8,2($ T5~ ` dM@@h! h Dh dd@3''::N00@:@;Nll 6l0l %l@5l@`lP3:@<NllP =F0P6l0  8C>/*#(?*FlP0$h! h @2($h6l0H@(h! h l(*#$A*# ,! , @2($ )h,PX8 ,lPX8 <,*(h! h Dl(X8 8,/(h X8 L,c=,[h8hc=)[h<hh! h h8 XT`\t($ h,l0hX8(@:h%,T! T @TT! T TT! T XTC',PT $ , T L >PF<L! L )TL6<,+',:hN<<T! T T6<, [T4TT! T @TP(x PTL<,$_'lp! p ll0/lp l>l1xlxJFhp! p lhi4xMT@d! d )pd54 _>hp! p lhi4d! d )pd54p! p p,lp! p >l1xp+2Cllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd40   0 P  0   p |   x oH(( ( x %8 @t 8~N#* 1x JOEH~xgڂpO<Viy ߹7Jh{m.䆒_B8UVʞP,D 1[;GkILaqNECΞ?]^lmI\i:=/QCVh 1X|΂ FJ^ǎ)fymHmځ7VO[FWWBC[հPL   1%%@ %X   `@ x l`hH0 F`x@`r KT8 x`0%`P@`` LX%xx tph%v p0v d  IX08` @\O @  8Xr<8@X @T @P  ((L @H hhHPh8P(D @@ @< @, @  @  @  @h0HX0P^ (H @D @@ x0 @. h@ X, sXBa   r ̀ yY 1  HContains the following Block InsertsnD #X(!GZB?uwWEAp}$t^NN)Z A[ 1H ZnOp[B׳(ds@UEKlF\ x6\<  $ $lx\<x    p pg 1  J Contains the following Block Inserts Name Layer 4Insertion Point (x,y,z): ( , ) HThe Following Attributes were found: Value -TagStringTextString`⽖Kk/C{E/J J|+swGg}+vgL@ -" @@wH.eF.R;ʽE?41 " 0 " HX `tp0 ^_ @(&.X PP "  HHP|8@H0PøiCS 1 0 hOCNKhʋI"FG}昅JG*(D*D.6VIJTD}8c &qQ Gy'  1 R'&+H罫GuS\sD3(v/%c7DְDm3'Oaܭ09B3IviNJ Y 1XkNH)W- )/ .TerminGE.Clean up&FuncBW;othing 8FOpen-(ByVal, sBfS@ng 0'ARai,.SourcecDescrNi"]Csa`2a ao_Blo%Iscad X  P *5` Rk h   (h&.p (x08Ho B@80o8]p.9 fC:\Program Files\ABS2004\Sample\ADT Sample Project\Sheets\CDs\Structural\S102 Second Floor Framing.dwg B@]]] !. ! k   .  Xrefs From ObjectDBXA@re:  & Xref Name:  ! &Found at This Location:  & !:'o]H0.AecDoor %.H\Sam]h]0]h H!  *Hk  Doors From ObjectDBXA@r:.nC:\Program Files\ABS2004\Sample\ADT Sample Project\Constructs\Architectural\Partitions\01 Floor Partitions.dwg B@Mo Next myDoor Name:]]rU  )1! l*** +5y+ 97g  l@8Y    W   W      L[x4x$( xL- 4x/ (x H l 5l$ lX .c=[h4h/  (lhHl CtKG4c$/'d%ltX4 pz/$\ `` l\`v\ `` T XX $L PP ,''>LF,>TFTF4lhddMD @t$ ld=hd64K hXN l\%t$ $ l tV x c= x/ D,x`\Xhptl Td488X4 tQd[`l\dl ld=pdlphXTh lT 0/TKHTh  ''>TF4lhddMD @t$ ld=hd64K hXN l\%t$ $ l tV x c= x/ D,x`\Xhptl Td488 W    W   _ -KXqL L TL *(,(   `#TL/6, qL"(,(   `1P6,,X^q<X lqT lTR lP4llT F, 6, / hPxi0Q{  4 Xi ƄQ{ P $,  4Kx Js(l M`@P P:@ ]@5PK  *'   *FP 1x5P lx=  lx0lx0;xM`@P PF@0( ]36P0+'''0 lx*FPX4 6P0 lx*#^/Q+'''0 lx*FPt$ 6P0   lx*# Hk/+'''0 lx*FPt$ 6P0c'P 1x5P iXt$ $lVrt$ $lcV3PrM`@t$ +lP`/5P rd  c=tb  lq<'''0  ,>FP 6P0 uP0xt$P0P tX4 $ltqx/  $ -K3"X Mh@X4 X`1x5X/bP TT lPqLT<'''8H TT ,>HFX T6X8 +/h (x$HTX8L[x4x$ x. qdld  qhlh`* Jldl MP@@ @`1`5@plhqdlh l`FPl/ <,l`@ l l l`5lh! h @hh! h h%8h! h l8h*lh! h l((]3h5l4lh! h l!  )h5l (lh! h Dh5l 8h! h l8pfh,kf#*# h! h @2 h  8)l l![h<h5lh! h  !  l> "ll ##!  2)h5l5h! h lX< x/)hOh! h lX< |l=$[8/)hl l`5l.d8h! h l8hc dM(@h! h Dh %T0h! h lT $&k/h<hT &QhPhT ,&Qh\8\$ $l8b>h! h l'*# (*#X8 8$2 h'*#X8 8$/d)**#**# **#**#**#**#**#+*#'*#X8 8$2 6:(,NllB  X8 8$/6l'*#X8 8$/\VXtb lX=-LcL -l**# **#**#**#L X.l*#'*#X8 8$2 */*F((%lL -l:0(p%L -P@:00 (%L -:1:'X8 8$/6lP@ L -k.*2*#X8 8$/X8 <$I***#3*# **#**#4*#'*#X8 8$2  L:*:(5Nll!  :'X8 8$/6llL -l< <5ILb<5Ic.y***Fb@h! h l*# ?*#!  @2 )h8X8 $l8 X8 <$*h! h DlX8 8$/h X8 L$c=$[h8hc=![h<hh! h hl @(\PLXT<t hlP@ @l l`5lh! h @hh! h h%Ph! h lPh*lh! h l(@]3h5l4lh! h l,! , )h,5l (lh! h Dh5l Ph! h lPpfh,kf#(*#$h! h @2($h  8)l l![h<h5l(h! h $,! , l>$ @ll( ##!  2 ()h,5l5(h! h ,l(X< x/()h,O(h! h ,l(X< |l,=$[8/()h,l l`5l.dPh! h lPhc dM@@h! h Dh AX0(h! h l(X $Bk/(h<hX BQhThX 0BQh`P`$ $lP`V\t<\WlC:@*0\WD(X8 8$/(6l0X8 <$ \uk dM@@h! h Dh dd)3'':8N00@:@9Nll 6l0l l@5l@`lP3:@:NllP ;F0P6l0  8C<'*#(=*FlP0$h! h @2($h6l0H>(h! h l(*#$E*# ,! , @2($ )h,PX8 $lPyX8 <$*(h! h Dl(X8 8$/(h X8 L$c=$[h8hc=![h<hh! h h8 TX`\< ($ h,l0Hl l`5lh! h @hh! h h%Th! h lThk*lh! h l(D]3h5l4lh! h l0! 0 )h05l (lh! h Dh5l Th! h lTpfh,kf#,*#(h! h @2,(h  8)l l![h<h5l,h! h (0! 0 l>($Fl l, ##!  2$, )h05l5,h! h 0l,X< x/,)h0O,h! h 0l,X< |l0=$[8/,)h0l l`5l.dTh! h lThch dMD@h! h Dh %\0,h! h l,\ $&k/,h<h\ &QhXh\ (&Qh` dMD@h! h Dh dd3'':8N44@:D9Nll 6l4l l@5l@`lP3:D:NllP ;F4P6l4  8C<'*#,=*FlP4(h! h @2,(h6l4H>,h! h l,*#(G*#$0! 0 @2,($)h0TX8 $lTX8 <$*,h! h Dl,X8 8$/,h X8 L$c=$[h8hc=![h<hh! h hH0`X\< ,($ h0l4@:hH%,IT! T @TT! T TT! T XTC',PTJ$K ,LT LL>PF<L! L M)TL6<,+',:hNN<<T! T MT6<,[T4TT! T @TP(x PTL<,$_'lp! p MllN0/lp l>l1xlxJFhp! p Mlhi4xMT@d! d M)pd54 _>hp! p Mlhi4d! d M)pd54p! p Mp,lp! p M>l1xp+2OCllx/lp! p Lpthlhd(1'llt>lF4p! p Hp64 tf(__d(x lpd4@ Pj %x TTHTKoR x $&pjprKTx &QTtTt tQQT[LdHRjTd RlT=S`Tl`XD., lX-XW$T:4U}5$ kjpjO V*#'*F:4,N$$B  :'`1\/6 $\l\F4XW$T:WXWT>F:'`1\/6$\l\F4XW$T:WXWT>F:'`1\/6$ TTHT XD.kj[l\X8 8$@X8 @$ dHR TT lqT:4X$l $:':Y F:t':dZ TT ,>FTD:4'$:[  li:':\X8 8$/)T6$TD$@X8 @$ l c=]t(L4 LHD\txd`XlTT$TD$$ l Ct-ltCp lp^0*_Cx lp`0BaCx lpb0ZcCx lpd0reCx lpf0gCx lph0iCx lpj0kCx lpl0mCxnCx/ 0xpt Kc=[x4xbt xx ltqpx<'''<l xx ,>lF\ x6\< . $ $lx\<p |   x oOjݲ@8.En!G7݈ZEoXѾ%w e 1