ࡱ> ( Update Allckg OuTahoma (arun;ad_AttributeUpdate.dvb!ad_AttributeUpdate; version 1.00# Copyright2000-2007 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be freely utilized for your own personal use so long__SRP_2__SRP_3__SRP_0__SRP_1Root Entry@EB[@+VBA_Project`kĿ@EB[VBA_Project_Version(VBA &Ŀ(B[#*  (%9 !"$&'+),-./012345678  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`abcdefgqijklnp|rstuvwxyz{}~acID="{A7BE5197-307D-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7173E90FED0FED0FED0FED" DPB="7371EB0BEC0CEC0CEC" GC="7577ED0DED0EEE0EEEF1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, CUserForm1 &Ŀ &ĿPROJECTwm \PROJECTf UserForm1=-1, -1, 664, 586, Z, 44, 44, 756, 586, C Module1=4, 5, 716, 547, 47, rawingUserForm1UserForm10* pHd ACADProject8@ = t  )9( J< rstdole>stdole f%\*\ThisDrawingThisDrawingUserForm1UserForm1G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Micro oCompObj maVBFrameh$ThisDrawingUserForm1 3Module1O _VBA_PROJECT1dir osoft E: ] Ob Library/;D1t00}#0F#0r CDE76968-21D6-11D4-B11105A11B3C9P.OP\VBE\G.exd /.E .`(M ”"0–ThisDrawingGThi^Drawng 2 HB1%B,B "B"+B Usere1Gm!e!1! 2S O %O D (!odule@!o@uBǻA 2Ĭ E,QM?!bA@e@Es1PP>MD(odule@am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2007 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\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{CDE76968-21D6-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   )90ThisDrawing0@47590dbaThisDrawing%UserForm10A47590dbaUserForm1%Module10B47590dbaModule10E P0P>h*vN.s//-u}|믍KFTwTqg@j,ʅ10GH0/AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate UserForm1)BlockObjBlockObjAttributesSi` BlockNameB BlockMatchcAttributeList_ChangeCmd_UpdateAllTypeUCaptionx AttributeList6pCmd_ReplaceAllWEnabled۪Cmd_ReplaceThisOneCmd_GetBlock_Click~ ErrorCatchIHide9zsset/.handle SelectionSetsAddrSelectOnScreenHandleToObject"Itemz GetAttributesAddItem  TextString Deletex Cmd_GetBlock6ShowErroClearCmd_ReplaceAll_Click errcontrol count0vent݉ ModelSpace_ EntityNamex NewAttribute NextBlock Application*UpdateMsgBoxR Description Cmd_ReplaceThisOne_ClickCmd_Quit_ClickdOption_ModelSpace_Click+ ActiveSpacee acModelSpaceOption_PaperSpace_Click_* acPaperSpacen1Cmd_UpdateAllType_Click<UserForm_Initialize5cStylepfmStyleDropDownListomModule1bad_AttributeUpdate AcadDocumentZUserFormNCmd_QuitLabel1,Label2,`   6\c? 0Attribute VB_Name = "Module1" ' ad_Up0dateXdThis routine takes user def"d inpu@t to ul block as ' the current drawing. Of particular8 nop*dynamic@_2 ofItons and, on comple tion,repoWng0!+total numbb%Xj_gtitle b(ar.NK:Aftyou speleczh, right-cli~go9?form. We hopiallow `multidsources,!ose daysOIt wa"svel-d 5 AutoCA@D 2000I above DemN load: -v@:un;A.dvb!;C#$vers\ 1.00Cop*yCA-7 ActiveDw P@ P .  (08@ "H0P    " " "  H Xh "260 hx   "  F F0 Dx D & 0 @ "X           ( 0  8  @ H P X ` h "         8 H P  X  ` h p x  "          (  8 H "P FX F D D0 &x        (H h        "( 0@ "H P` "h p " F F D8 D &" @ P` "  H Xh " 8 H X h x    " &   0@ P ad_AttributeUpdateB This routine takes user defined input to update block attributes> in the current drawing. Of particular note is the dynamicA updating of the buttons and, on completion, the reporting of9 the total number of blocks updated in the title bar.@ Note:After you select the block, right-click to go back to the@ form. We hope to update it to allow multiple block sources, one of these days.. It was developed for AutoCAD 2000 and above.B Demand load: -vbarun;ad_AttributeUpdate.dvb!ad_AttributeUpdate; version 1.00xMEH 8   H( Dp H @ F@ F  4 H( p x  *  J J  :p N > P@ P . " 0@ ad_AttributeUpdateB This routine takes user defined input to update block attributes> in the current drawing. Of particular note is the dynamicA updating of the buttons and, on completion, the reporting of9 the total number of blocks updated in the title bar.@ Note:After you select the block, right-click to go back to the@ form. We hope to update it to allow multiple block sources, one of these days.. It was developed for AutoCAD 2000 and above.B Demand load: -vbVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3420 ClientLeft = 45 ClientTop = 330 ClientWidth = 3915 StartUpPosition = 1 'CenterOwner TypeInfoVer = 26 End  Microsoft Forms 2.0 FormEmbedded Object9q( Select Block OuTahoma8 as the entire contents of this header remain intact.J This routine is provided "as-is" and no declaration, written or implied,J is made as to its reliability for any particular task. Any use of this' routine is solely at yoUpdate Selectedg OuTahoma(Exit OuTahomaAH, {5TahomaH, {5Tahoma$( Current Attribute: uTahoma( Change To: uTahoma$(Update All Like Thisg OuTahoma  } ( <Cmd_GetBlock,<Cmd_ReplaceAll 0@Cmd_ReplaceThisOne $4Cmd_Quit , 8ur own risk. B@No# Copyright2000-2007 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be freely utilized for your own personal use so long8 as the entire contents of this header remain intact.J This routine is provided "as-is" and no declaration, written or implied,J is made as to its reliability for any particular task. Any use of this' routine is solely at your own risk.]]]0] H]`xUpdate All With ' (!d' $(& *(, .(, $(,oH28 B@4]] Block_Edit !:%<.6 6B@> 6%B!8 %@. !' !D'    $!H (B@F  Block_Edit !:%BB@J Block Name:  (& Update All '$!H's' *(& Update This '$!H' Only .(& L(,$!H'  B@N|X2P PB@Ro8(V(]h]@We need to trap the routine if the change is to simply add a newu@ part to the connection list. If the Part to change is defined> as "" then AxME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF27123Module1Module1 " AttributeList; ( 4NewAttribute; D( 2DLabel1O`( __SRP_6__SRP_7@__SRP_5__SRP_4LL blank spaces in the block will be changed tovb> the new item. This trap breaks out after adding one item inA the first blank placeholder.L (!d Z !\l. Z!^AcDbBlockReference Z!  Z!D'Ba$!H b   ~ $!H (!d$ `!d $(H. X 'Xlbkkkkbd Z !\" Z!^A2<Label2O0 DCmd_Update1C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2  HBname  X 1hAllTypep@ttAA8MEcDbBlockReference_Pl Z!  Z!D'$!H    " $!H (!dVBa `!d $(He X 'Xkkkkk !dB@fL X Blocks Updated (&old `(d (B@Rl. L(,4 *(, .(, $(,_PR|V P!jA@hl PB@Rbo@We need to trap the routine if the change is to simply add a new.@ part to the connection list. If the Part to change is defined> as "" then ALL blank spaces in the block will be changed toBa> the new item. This trap breaks out after adding one item inl. the first blank placeholder. (!d    $!H (!dl. `!d $(Hk ~1.d   s.d $!H (!dl. `!d $(Hkx Ak` !dB@fa1 Block Updated (&b `(dl. (B@RK L(, *(,( $(,_TEo A@rtSto t (roX x (rl.oxVh]]@We need to trap the routine if the change is to simply add a new@ part to the connection list. If the Part to change is defined> as "" then ALL blank spaces in the block will be changed to> the new item. This trap breaks out after adding one item in the first blank placeholder. (!d Z !\ Z!^AcDbBlockReference Z!  Z!D'    $!H (!d `!d $(H X 'Xb0k( kkbd Z !\ Z!^AcDbBlockReference Z!  Z!D'    $!H (!d `!d $(H X 'Xk( k k  k !dB@f X Blocks Updated (& `(d (B@R L(, *(, .(, $(,|` VX P!jA@h PB@Ro0   ((~ActiveDwg Attribute Update (& *(, .(, $(,o kAttribute VB_Name = "UserForm1" " Bas0{6A2F97EF-86C2-40EC-B85E-CD6DC7F858D7}{09F8F8@0330-47C9-92B6-4B9473E9038F} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD' aDd_Upd$  ' This routine takes Bu defd input to u bloPck as"   the current drawing. Of particu~ no8dynamic / ofBtons and, on co@@@etion,repong total number,5G/3Btitkb(ar.N%:Aft you spelec@=4, right-c li?Cgo b.af@. We hopSLiPallow multipRsources,o@a@days'It waseveld  AutoCAD 2000I above DemN load: -v@:un;.dvb!;#!$vers\ 1.00CopyCA-7 ActDwg.i ʖ@}proviFd@A/demwtrat purs =lym`Y c@KF beRcriJ0%.4 Only6%.3 3@ o Show Ex|Sub  2"2:rr.CleaH78bD77errcarolq5c&7O#7ѕR U neh\up4ic1ge pZ @s!a`vdd a ne@0"_Qj-nXlQ. IcP1P-0n""n ALL blank sszw{0}sd  Zi<.é bkrabadd¢first2Wholut~ q VB8%=` T,heGp >EacIn:MModelSA b'yq4!AcDBbb,Refe`ce"Gp$#60JQo|401mo Oj3ObW o tes;O? ONewUo @u"=t+ 1O rXR@If};RG`EC+iseb++"+++o#_+eU If BlockObjAttributes(0).TextBS@ng =Match Then For iLLBound() To nU: Oi List M8New(&K cptu+ 1End N?  ThisDrawing.Application.Update5Me.Cap X& "Ƀs d"A > "BXClear Cmd_GetU.Enabled TruBReplaceAllFalsMq2OneU )Typ Exit Sub errcontrol:)MsgBox Err.DescriBA2T PrivN& H0'_CXk() 'We neholder.!-KHKju__|_= p-_ Xtw i"O_c?Fai"1#ܐAԈQuit Unload MO_Mode