ࡱ> lv g+{+xME (<< <$<0  __SRP_2__SRP_3e__SRP_0__SRP_1nRoot Entry0zVBA_Project`0zVBA_Project_Version(VBA0z!   !"#$%&'()*+,-./0123456789:;<=?@ABCDEFGHIJKLMNacadID="{9BBA5E12-0994-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="121080A98FAD8FAD8FAD8FAD" DPB="1D1F8FBA91C492C492C4" GC="282ABABDBBBDBB42" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=154, 154, 696, 680, Z Z gModule1Module1PROJECTwmO>PROJECTThisDrawing>Module1 +_VBA_PROJECT dird__SRP_4__SRP_5@`0* pHd ACADProject8@ = t   Z<( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E: ] Ob Library/;D1t00}#0F#0r 3CAB861-1C65-11D6-B1194761254 F9P.OP\VBE\G.EXD /.E .`M ”g+–ThisDrawingGThi^Drawng 2 HB1EBE,B e+"B+BoduleT1Go@uB1@ Š2OQM{+!H*\G{000204EF-0am  *\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\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{03CAB861-1C65-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M    Z< g+ThisDrawing0;44e5c54cThisDrawinge+EModule10<44e5c54cModule1{+ 8!tUNIJ*c-G 넆bH"#)AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1bad_CircleToPoint\ adNewPoint@= AcadPointPadCirc AcadCircle, adCircleSS>AcadSelectionSetfTypeifDatahC UpdateCountY SelectionSetsErroAddrClearacSelectionSetAll. ModelSpace_AddPoint CenterW;Deletex Application*UpdateMsgBoxR AcadDocumentZT   $?g+e+#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit 5 0.050W[`5ThisDrawingThisDrawingModule1Module1X% x~1.D% "0" a% &( `*d_Ci0    H( Dp 4 D 8 @ X *`  J J :8 Nx > P PX .  "(08@H,h &&( HX hx,   ad_CircleToPointB This routine demonstrates collecting all circles of a particular= radius, in this case "0.50" and changing them to points.. It was developed for AutoCAD 2000 and above.> Demand load: -vbarun;ad_CircleToPoint.dvb!ad_CircleToPoint; version 1.00# Copyright2000-2006 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.]@]`]]]'* adCircleSS %,." .G adCircleSS !,%0."j "B@2+&FCIRCLE+((+&F0.050+( 4 & ( "B@H  " !: !6%8. B@<S} * '* D !>B@@i * circles changed to points.A@B "B@2o0(GAttribute VB_Name = "Module1" ' ad_CircleToPoint\This routine demonstrates collec.g all czs of a part@icular radius@, in tRcase "0.50" and changingem to ps.?It was~veloped for AutoCAD 2000Babove0DemTload: -vbarun;q.dv4b! ;8:version 1.00 Copyright:-6 AveDwg.com provid\/purposonlydmus not be uscrial applicat s with your [if G"0that]ErwilperRm V@ften(PJ0may!freec(lizD$own @son&+ so longthe entirent‚heade8r rmact!Q"as-is"Kno@cBC, wH im@Ied,!@.m<@i reliabilit"yany task. A5+RsolgEYFCri@@ Opi Exliv Sub() Di!cdNew AsadD'SSSeaonSe@#fType(0 TPo 1)I2ger, fDatFa% Upd~C0ountOn Err,ResbuNex )= g U@!= NDraw`.s("ad2"%If en 0s.Addo g .Cleᖔ $)0:e#"CIRCLEǀ(= 4=0% c acAll, !B0F+Eacbhd$ In% $FF+(elSpXaceH(.rCqer)A+.rDEte 8+| 1A= 7A .#!MsgBox I & "&ǿB,h'$3E@h P 0`  *  J J :@ N > P P` .  "08@HP,p && 0 P` p,   ad_CircleToPointB This routine demonstrates collecting all circles of a particular= radius, in this case "0.50" and changing them to points. # It was developed in AutoCAD 2000.> Demand load: -vbarun;ad_CircleToPoint.dvb!ad_CircleToPoint; version 1.00 2/1/2002) 2/8/2002 - Updated selection set filterC 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.]@]`]]]'* adCircleSS %,." .G adCircleSS !,%0."j "B@2+&FCIRCLE+((+&F0.050+( 4 & ( "B@H  " !: !6%8. B@< * '*  !>B@@ * circles changed to points.A@B "B@2o# Copyright2000-2005 ActiveDwg.com%iAttribute VB_Name = "Module1" ' ad_CircleToPoint\This routine demonstrates collec.g all czs of a part@icular radius@, in tRcase "0.50" and changingem to ps.?It was~velopedEAutoCA@D 2000%DemIload: -vbarun; .dvb! ;34version 1.002/1/128 - Updad seset filteyCopyriPght -3 AveDwg.com @providsf orLpurposonlymusր not be uscrial applicat@@s witht your