ࡱ> 'DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Microsoft 9" \ Ob Library/;C1sA00}#0#0r B89669C8-1E[47F2-A348-24BB1FB7198AP@OP\VBE\G.exd /.E .`(M AB"uBTh isDramgGThi^DrawAng 2E HB1B,B "B+BBlocks_XRefsG@Bock$_XRf 2 $Mb$>!B#$Lzu#<4=J]F{no&u!= &`>xD5l,x`>xD5l,4=J]F{no&ME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (Root Entry ,Dd1VBA_Project Gq ,DdVBA_Project_Version(VBA Gq Jd x  #!"*$%&(),+.1/023456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYc[\]^_`abgdefhq|r E  !"#$%&'()*,-./412356789:;<=>?@ABCDFGIJKLMNOPQRSTUVWXYZ[\]^_yabdefghijklmnopqsuvwxz{|}~ID="{056B416F-46F3-450C-8B88-69BC5B2369F1}" Document=ThisDrawing/&H00000000 Module=Blocks_XRefs Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F4F63DD9C53BC93BC93BC93BC9" DPB="5A589347F848F848F8" GC="C0C2098A0A8A0A75" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Blocks_XRefs=8, 56, 652, 425, Z 5, Z PROJECTwmMPROJECTThisDrawing Blocks_XRefs-\ThisDrawingThisDrawingBlocks_XRefsBlocks_XRefsrU~}  xOldxNew j0* pHd ACADProject8@ = t  gn=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3_VBA_PROJECTdir __SRP_4 t__SRP_5rB__SRP_2 c&__SRP_3`__SRP_0 Z__SRP_1 %` % %`h8@ttgn= $*\Rffff*033fadff584 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit llL$ L 8l8= x)L8pM(@tM<@ 18ltF<%L$ $L P 8 H)L8*'''lt*F 6.`HltTtoAD\2xp$L8(!d$ 4l$`@0      /    /Qd[`x\"Xx lX0/XxWH#hxWH835H '''xWH:8 ((%h:!(%h:x!h(X%h8(:" 6H(h8( x ,xWH 835H%x''('HxWH:8%(Xx >XF:: (%hh:!8(x%h(:H!(%h:& :x$h 6(H(h8(hH( x\# t(4`\hxdXdH(h8(hH( >    *)P<5 $ +''':@(N  &6 ?<8t >8F %P$ $P P< H)P<5 $ +''':@)N  &6 <'''8 *PP ,+>8F &P6 \DpXtx0 840P< 0  H  0 X  0 8  0   0   0 X  0  KFCpXXXL<9999XM@ %lpP$ P 8l<=t)P< $ L'''*#48t l8*#0*F 24806 ?<8t >8F %P$ $P P < <)P<5 $ +''':@N  6 ?<8t >8F %P$ $P P < @)P<5 $ +''':@N  6 ?<8t >8F %P$ $P P < H)P<5 $ +''':@ N  6 <'''8 !PP ,">8F P6 \DpXtx0 840P<  :(h :(X<<<CTS9999M8qqv/ H*"FkEapiH6PAnd As=dimBDoubleCEachDElseEElseIfHendifPexplicitTFor_IfbInnameObjectoptionorSetstopSubThenTotrueVariant AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateChap12_Examples;(AddMInsertBlock: AcadCircle,Block1 AcadBlockBlock2AcadMInsertBlock P1^P2^RadiusVBlocksӍAddr AddCircle newMBlock ModelSpace_AddMInsertBlock2%`AngleA AcadDocumentZItemz_B_var_newMBlock _B_var_SubExample_Blocks"blkCollO AcadBlocksnewBlockQ insertionPntMsgBoxR vbInformationnDocumentj_B_var_DocumentPath2_B_var_AcadMInsertBlock,xPath _B_var_set InsertBlockcNAcadBlockReferenceSymbol _B_var_P2?PgBlockqChap08_ExamplesU Blocks_XRefs2 (CopyObjectsoldObj1-voldObj2.vnewObj1newObj2CenterW;oldRad1oldRad2newRad1y,newRad2z,IDPairs SourceObjectsҖObjectsReturnedColor2FacRedacYellow Application*ZoomAllm$KeyvbTabc9vbCrLfValueK CopyObjects2GObject2LObject1LObj1dObj2eObjectsLRad1iusCRad2ObjArray.Obj _B_var_ObjzRadq _B_var_Radect1F _B_var_oldObj1y_B_var_SourceObjectsyi`_B_var_i  _B_var_ForjLReport$ _B_var_Report|ObjectIDoSaveaasrSaveddoBlockrBlock3 Example_ItemY\Count0vnewObjs AcadEntityiIndexlayerObj~ AcadLayer LayersAddBlockblockObjOriginFExample_InsertBlockVW circleObj blockRefObj_ Add_InsertW_B_var_newObjs| ObjectNamead~\_B_var_insertionPntjCreateTypedArrayEntityAcadLWPolyline :H:8(>XF::h:8(:H 6"H(h8( 0 h       *ributes.Example_GetAttributes TESTBLOCK Attribute Prompt Attribute Tag Attribute Value  Tag: TagString  Value: TextString   IsXRef DThe attributes for blockReference  are: *GetAttributes Example NEW VALUE! (One Object ID)  Key ( (Cloned Object Key) valuxX x\ #8 $$4V`xX( $ $!d$ Qd[`x\ Xx lX0/XxWH835H'''xWH:8((%h:(%h:xh(X%h8(: 6H(h8( x , xWH 835H%xxWHhxWHXx  (%h(x%h((%h'X'x`\hxXXdH(h8(xX$!`$I`$q`$`$`, `ay//n0        *     *dx\@`D0 `0 pP0  0   0  0 0      / l@*#8*#4,*F$bx kb:: x Xli fitPointsUtlObjUtility1JvbDoublebAddLightWeightPolylineUpdateExample_GetConstantAttributes attributeObj AcadAttribute+Height|ModevPromptmTag&acAttributeModeConstant AddAttributequeryAttributeGetConstantAttributes0Example_GetAttributesinsertionPointacAttributeModeVerify varAttributes GetAttributes strAttributes TagString TextString newvarAttributesacAttributeModeNormalʸExample_IsXRef centerPoint InsertPoint{ insertedBlock  tempBlockmsgQIsLayoutIsXRefEl Documentsexternalreference_B_var_externalreferenceiQAcadExternalReference_B_var_AcadExternalReferenceZ" XRefDatabase FullNameОmshbox5 _B_var_mshboxޒActiveDocument\ xrefBlock _B_var_count:AttachExternalReferencew!Example_IsXRef2 Example_AttachExternalReference PathName' (ListBlocksдExample_Unload ERRORHANDLEROxrefHomer xrefInsertedErro Description  TerminateyLReload'Regen  _B_var_Regen acActiveViewportrN XRef_DemoDetachPvbCr$HasExtensionDictionaryWCHandle _B_var_ObjectjeBlock xObject`_B_var_xObjectcyxObject_B_var_yxObject tempblovkHandleToObject"_B_var_HandleToObjectrOwnerID XRef_Demo2=IteChngFont TextObject StyleName ChngFont1 o ChngFont2 o _B_var_IfP_B_var_AcadEntityeObject$[ eobjectname _B_var_PriFindXRefInsertionsK dwgObjectja thisBlockRefk_B_var_ModelSpaceD HasAttributes XScaleFactorkbExample_IsXRef1  Swap_XRef6EditXRefInsertions FindXRefsf+XRefInsnXRefEnt XRefBlkbObject _B_var_msgbroldXRef%oldxfrei0] _B_var_i0: RenameRefsXref_Old4OldX'NewXu xOldRxNewnewXRef) RenameXRefs XRef_SwapXRefSwap (XRefRenameZ XRefLocateQ XRefDefine*(XRefDemoe&xrefntD _B_var_xrefntžDeletex (XRefRedefine XRefRedefine2 _B_var_oBlockj _B_var_CenteroBlRefoBkRef : (AddInsertobCollMessage_B_var_message# _B_var_Origin  (BlockTypestxt (ListBlkRefsoExRefAttrib{2Pprompth?(MakeAttribBlock]LinetypeGenerationoPLineClosed,SetWidthHP3^oTextAcadText~AddTextQBas_bldg8naneXRefTest$msgvox _B_var_msgvox7crefentm 2\XTLPHD<@846$`@-l\x  l\$ lll=t/\l1'''\t >\F$ 6$bx kb-%lp\x \l\*#X*1p2\Xjbx kbj%lp\x \l\*#X*1p2\X lp*1p xd/*'''lp*F$ 6$<8 hdptx\\XTPLHD@<8e , (Cloned Object Value) 3  ringsExample_IsXRef : Simple()`5IsLayout (: External Reference : and Contains Layout Geometry 4: Contains Layout Geometry dBlocks in this drawing have the following styles:  CBlock .: External Referenc_B_var_crefentTi   $ #=&Mu݇>xME@P|L<  "<<\< <<<< <$<(<,KF CpXXXL<9999XM@ % lpP$ P 8l<= t)P< $ L'''*#48t  l8*#0*F 24806 ?<8t >8F %P$ $P P < <)P<5 $ +''':@N  6 ?<8t >8F %P$ $P P < @)P<5 $ +''':@N  6 ?<8t >8F %P$ $P P < H)P<5 $ +''':@N  6 <'''8 PP ,>8F P6 e Name *AcadExternalReferencePath "externalreferenceExample_AttachExternalReferenceExample_IsXRef2 xD:\AutoCAD_2000i\System\O'Reilly000910\Petrusha\Bas_bldg.dwg XREF_IMAGE PThe current blocks in this drawing are: 1g XREF_IMAGE PThe current \DpXtx0 840P< Ct CpTTT ClL89999TM< %lpblocks in this drawing are: 1<0<4<8<<L F<< LLLLLLLLL<,LLLLL LPPLLL"> 68Gx   ` " x  3   & p  " hp ! 0  N $ `&x p   " ( 0 !P "h  8  v    H " D<"7 `@pPPx &"Px&*:"(:"8(:`$*:$*:X0`(: h(*  D8D8"P x8" ( P  * * R hx B " H(X` 2*<Z  0 "  2*2*(GH   - H (p$% 8 X  "7H40 (2*p2G8   "8 0   X 2*`FL 2L ?@ `+ ? h+ ?X  8+ H  0 @<HX @ "XH Xp x  P ` 6*  :L  1 *0 \  " `  !("    b H    8 0      !'bmple@]] Example 8-10.]]C:\A2K2_VBA\Chair.dwg'^$+bF+bF+b+&-n! @'6 b ^ 6$ !2% .d%o Example 8-11. Example 8-12.2PpP]] ]p]+tF+tF+t  ~ %j' (0) =  t $( !2%. 2 $ 2=o+(F+(F+(  oldO] $(? $((  $(((bj  $(( o( $.  ! (One Object ID) $~! (Cloned Object Key) $~! (Cloned Object Value)A@J "C]  al@ !B@]]   %j'& t3rings !*%,.+tF+tF+t Cl t3rings !2%Z.ed Obj  tRing !*%,.+tF+tF+tllecti] t ( %..'(o ]X]p ]A@] ]]@+tF@+tF+toH Xref attached ( !R)A@J @d]@]  |'   !*k !>ek A@J: Simp  ...is also a Layout' so a !< Simple Block:  !'  !<: Cont ! !*%:B@rA@A@(po` Xref unloadedA@J ! !*%:B@p Xref reloadedA@Jh08n8]x ] ] A@nP j!lA@Jo8+bF+bF+b A8 RNew_Xref b !2%X.P ! Xref detachedA@J*ZoomAll forces Regen so effect can be seen| ! !*%:B@z A@( !!]8"x!"p" $&p((((() ***] ] !'bh+  !2t.name !AcDbBlockReference k80o(H*)1  ! (Handle:  ! at $b,$b,$b)A@J-]x Old_Xref'New_Xref']]----]X]8 !AcDbBlockReference~~ ! kk,o, ! e,` @$#  (nt B@sgBox C:\A2K2_VBA\Xref_New.dwg'R$]  !*%:B@z+bF+bF+bF:  R  b !2%X.  A@o!"'] ]# Example 8-3. tRing !2%Z. A@J!   '  Example 8-4.  !*!    !*%:! (Origin: $,$,$) |' " Example 8-5.% Layout:  !'   XRef:  ! (with  ! objects)' $  !2$ Example 8-6.% o@ ]p]x+$F+$F+$ $SFdata !*%,..]( ] ] ?? "B@&? B@&] ]]  "($H+&x+(F+(Fx+(F+( "+(F+(F+(F*+(!  ( %."ock ZoomAll@' ? .'+@+&F2@+&+TENANT'F Tenant Name'TaNOTE1'FNote One'.    &  %.NOTE2'FNote Two'F-    &  %.!@+&& DATE'F Takeoff Date'@+& Square Feet: &  %..*    &  %.@+&@+&F+&+7@+& D&!@+&LAYER'F Layer Name'&    & - %.    & - %.rU]]X    & - %.%# Dim oBkRef As AcadBlockReference$ P1(0) = 2#: P1(1) = 2#: P1(2) = 0L Set oBkRef = ThisDrawing.ModelSpace.InsertBlock(P1, "SFdata", 1, 1, 1, 0)~~%]]AREA'FArea'&&&  detachedA@Jwg'R&C:\A2K2_VBA\Xref_New.dwg'R& ! at $b,$b,$b deletedA@JP&H&X/ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark# Copyright 2002 Prentice Hall PTRJ This software may be freely copied and used so long as this disclaimer,K together with the above copyright notice, are included in all copies andL any accompanying documentation. These example programs are made availableK "as-is" without any explicit or implied warranty. Neither the author norG publisher warrant that these programs are error free or will operate without interruption.8  PX" Example 8-1.5h]HA@ # ! (Handle:  !) at $b,$b,$b   renamedA@J< Example 8-8. (changed Symbol path, added ZoomAll 03/04/03U Example 8-13. (fixed MsgBox, changed location of P assignment statements 03/04/03)(!Attribute VB_Name = "Blocks_XRefs" Option Explicit ' A for AutoCAD 2002: W@riting*M acrosbJeffrey E.@ Clark*CopyrightA Prentice Hall PTRoThis software may be Oely copied and usso lBoas t6disclaimer,ttogether withe above$FnoB, 6@includ+iln J7s7&any accomp~documca. These example progr,amcd=va@ilable'"@as-is"Mout3y i#wranty. Necfi authnor&publisuarwatyIEerrTAwi_operat%J#int ,up7gED78-1.Sub AddInsert() Dim Ewty As AcadCirc=EoEqoBk e-@c(C^er(0 To 2)A Do@HRaddius IS(et !=nisPDrawt."s .4(C, "R]"6)04: 1@%= 0 "= 1H="IFC D> 2#K*ModelSpace.c8< _# a-f!, 1E0$ZoomAll E t CF3FListc-FobCoQF+CaJiazQ 1: 2qTENANT" !en3 q.ENЕ( , A ,p2, `З- 18 K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~$  ʤ"5Nޒ  a A  q 19I Y ThisDrawing Blocks_XRefs ACADProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA ! I0W &D:\AutoCAD_2000i\ACAD.TLBAutoCAD Ai@0Fc:\windows\SYSTEM\StdOle2.Tlbstdole AP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms  1q`iGH$c:\windows\TEMP\VBE\MSForms.exd   qp Add_InsertExample_GetAttributesExample_GetConstantAttributes CopyObjects CopyObjects2AddMInsertBlockAddMInsertBlock2XRefDemo XRefRedefine XRefRedefine2 XRefRename XRefLocateExample_IsXRef  Ringu!= &# ^IG\N|u!= &LM}] Xh{ _ AcadDocument @(x`5~a! c%^I`5()`5()`5u!= &u!= &   AddInsert ListBlocks  VBE6.DLL  S     Origin:  ,  (Origin:  ) BAS_BLDG New_XRef bC:\Documents\O'Reilly000910\Petrusha\Bas_bldg.dwg()`5  detachedW[`5W[`5 $AcDbBlockReferencename  at   deletedinsertionPoint  (Handle:   renamed   : Simple .: External Reference  : and Contains Layout Geometry 4: Contains Layout Geometry dBlocks in this drawing have the following styles:  - Layout - XRef with   objects - also a Layout - Simple Block  - Layout  - XRef with - also a Layout  - Simple Block BlockTypes Layout:  XRef:   (with   objects) , ...is also a Layout Simple Block:  ListBlkRefs New_Xref Xref attached  ( Xref unloaded Xref reloaded Xref detachedfĤIx8<   ! ~C:\Documents\O'Reilly000910\Chap08_BlocksXRefs\bmp\Bas_bldg.dwg TESTBLOCK Attribute Prompt Attribute Tag Attribute Value()`5  Tag: TagString  Value: TextString   DThe attributes for blockReference  are: *GetAttributes Example NEW VALUE! MakeAttribBlock USFtag()`5 Tenant Name TENANT - Note One NOTE1 Note Two NOTE2 Layer Name LAYER Takeoff Date DATE Useable Sq.Ft. AREA Square Feet:()`5 SFdNOTE1p"NoOne___SNA2O TwoOO$mptMLAYER;^ 1_\DATEQT>off Dpc0!,!aJ= 72++ AREA Area    S@oT1 BI("SquFeet:"C3tPLinLWPolyline Dim P3(0 To 7) As DPoubliPInteger) = 0:V12 0330j412nR5:~6 [4Set oPLineooBlock.AddLi ghtWePolyl(P3)3/.Close"d6TruFor i3a0.6Width i, 0.5Next i 'oBkRefAcadNerenc8!P1(0m2#s1(&r&= ThisDrawing.ModelSpace.Insert2(P1, "SFdata", 0:ZoomAll End Sub 3Example 8-8. (changHSymbol path,0 add 0@3/04/0@J  @^M!\B&B MPC>PAng@&'@8StrDD= "C:\A2K2_VBA\Chair.dwg"C C`AC`B_= 45 * 3.14159 / 18g8gqFP, (g,B 6, 324DP_l10.qAaCopyObjects(H`] CI^Circi|C e{r3Radi us9 Arra@y, IDP0sAVariant1SavL9C6f6I71: m}j2a@a<%^i p<'(,9Ei)d1  .Col= acRed B' =# , + C y#+= da (bc L@.+$,`+qgYellowc+Application.FaMsgBox B.ID & p" (O@#M)"vbCrLf}_# `Q.Key`nPsValueQ)Ď^ץ"6+MbsAL"3s"?`F, # FrBZ kA 6"l6: 548 dRl lk)k11PX0 DemoPOn Err07Go Terminat2Ex5External U}aQPraIir/RSb\kXref_Newk/k(.o  0 AttachN (A _ lG, False$:x "Q aed9 7a .B@<2 ARs.Item(Dname).UnloatTuR.RerH} rRvDe! dRpExits'' forces Rn so effect can be seen V0: p2.DescripW126lElseIf "name = xOld ThenL)New$MsgBox U(Handle:s n)" ņg$oHrec E`nd IfkN ext Sub 6Qe17 ;3i bb'01Pc'_&m 11d"1Ccc c"4`b:c&pavbTabP]{ct2~1)dgR "S 10).d/0ڢ+Q86Q*M!_o_Ic!P?AngW?-ISymbolaSStaj#T;+Pa+ "\dwg\Ch~.ss020CP?*fP@5 * 3.14159 / 18(mP, Hh b, P6, 3024oimiiɂ" ai21N>g  6k`1_h;2 @iuB%qԣ9Pa`NIT]B>CU!I4oks("ac3}tMM(aaY((C, "R")CE)0: 1c@%= 0 "= HH="IFC D>2#*ModelSpace.c= _# a-f!(, 1E0$ZoomAll Ey HxKListC-KgK2CaKobC^o[dKiaAI9`\ge@haMe ssageaStr:Oin5IF ki=MAECount -;S%= %+1MItem(i).n&2/ " (%:`& %) & ","$ PQ7b@D )vbC%Next iMsgBo&x;b 1Types;3C ;a4(>)8C3EachzINnp-C!IfnIsLayn%8&#C1â7ElseI Ae T  off DE/!;24+7䨕" AREA Area     Dim oText As AcadXP2(1) = 8.75DSet= oBlock.Adb("Square Feet:", P2, Height)v PLineLWPolyl!P3(0 To 7)%DoPubleiInteger/0:  J2 3 3054Y125: 6 C= `LtWwg((P3}o.C losedTrugFor imv3Ka 6Width i, X0.5Ni1 'BkxRefЀe0renc8P1(0m2#s1wJB9= ThisDrawing.ModelSpace.Insert(P1, "SFdatna~0@AZoomAll End Sub  Exampl`e 8-.@ _GetAttributes(R88A72 >0>>#CC>K>:s(P;TESTB`LOCK"&' DefAthe$ a0 dition *72;?MAaLong PrompSNJ2@:E1Tag Valut d= 1%B= ac!VerifyC= "F c"aR5A3dd&o$CB ' Create U3 object in m\ s\BuG&(#, B1, )Eeh}bbN2wObj31zA[8z) zck ],>ga{ f{w,8s f@!/ refŒvar )@s`&riantc bj1 ID: Key   oldObj2 ID:  newObj1 ID:  ValueF (One Object ID) ( (Cloned Object Key) , (Cloned Object Value) 3rings4=J]F{no&`>xD5l, \Chair.dwg()`5 *C:\A2K2_VBA\Chair.dwg::  at   (Handle:  FindXtem\O'Reilly000910\Petrusha\Bas_bldg.dwg bC:\Documents\O'Reilly000910\Petrusha\Bas_bldg.dwgAddCircle%= h.j+'1v >taPgs av\s=to a sbf `be dis0playAa Msgboxc A`KmgO%LBoPund()AUoC!$K=H&P " M:& (i). # & _g q90{*osb@gv 6hcBox "TOs Iname " P*, @WbM>0hang3 of( ' Not e:m is no 027. OPs you haD$) ray,Csl!Fq sm cR sqF1dus 0GNNEW VALUE!l6gs*newjDVa55xcS' Again,25+" o1o1tTq}o1f o11=o17 o1 o1o1Lo1f_.o1*o1n1??b1Const@W'r e$ct9T c$ oNnUr>1Itq"n quPe31Wreturn$,5'h|fholdK/z:tPA2s#ԏQu uܢNew_"ߢߢߢ0E  "ߢߢb^"TNorma1&1 PD7c  ax+60,y{ ' xbcq/!D,(2) = 0  Set blockRefObjThisDrawing.ModelSpace.InsertB(P, "New_", 12#0) ' Gthe constant attribute definition from &;Dim @queryA1As VariF" = .yCtAs70CouI+IntegerC = UBd( 3) - L MsgBox "Tzg reference has " & 0&s." End Sub  'Example 8-.' !pyec0ts()'0`00904Myi ;A(0 T o Acad@CircleC eIrI DoubIRadiusY@Array, IDPairs#u#SavedAO!#": 1 %A1: - 2 3CFor iBDXAMKiAdO(&,i)D.Col= acRedCNext iC NCoC, FW/CV= #(v(b+$,`+ 0.5qgYellowc+ApplicaA.ZoopmAlldnB. IDl" (O,neDM)ovbCrLf_`Q".KeyClonP# sValueQ)|^~o"^6=f )"bs.ML"3r`s"?`Frj, # Fr #o0a6q4q 4eheEWHd2٥527B2ld (1@%2new(goldjC"@b  CvX Source efBbS@b#$Retu~r3 ]"0""u= 1.5: 2PF3E1= 2u= 444'Ď[1G18+Od 6Q17 ;rk323 bb'01Pc.0&ius`&m 11duUCcc"4`b:B1avbTa.bP]{ct2~1)WdgR "S 1).d/( )MY)B O!Q83(!Q`)3!PAngAJSymbol1US0ng#T -Path + "\dwg\Ch}`.tus0EPwp)EPσ B5 * 3.14159 / 18K>J jb, 5, 6, 3024@.?k k21@i  maq1P1P2Bq1'1:A0rPbTP_OBcP1C%J4oks("q(acM}DOM(_cr]9P28%@ 4$!S $$X0Demo() '010714 On Error GoTo Terminate8Dim oBlock As AcadA8ExRef8External$ erencEPath&StrinBg@P(0 w2)Doubl4"6= "C:\A2K2_VBA\Xref_Ne@w.dwg"&(0) = 0: xP(1 * Set oV= ThisDrawD.ModeH0+lSpace. _@Attachj(QJ, "A_E"B, P, 10, False)-ZoomAllMsgBox "" a6ed" & " (X. )v bʀs.Item(name).Unload uB O CRersB De`$/dB Exit S,ub C'D forces Regen so effect can be seen F:i.Descriptio End 'Example 8-. H @ XRedefine(WJ BlFold , newuS_m] i"Old#\#$ !f_#xod(?ytusp?u#sRe}g +c2)@EgW$He+!|VH_t,{AURc Re s5 &IS>TTCwt#).|De<5%@ dedP@UUVEditInsertionsVi, j'$]?B&AVaria1sjp% 3 - 1U(1+j/$i)p7.XMap(AcDb% " χ =<"Old瓖?q PPoi}@ut o!("`%%h.Handle & ")" End IfL