ࡱ> ThisDrawingThisDrawingModule1Module1`)h !x9E ! x]@]`]+F +F+'   ! %.ms]IsoLines B@$ryVPOINT R 135 45 B@&1o  !*(,REGEN B@&}#oIsoLines@ B@$\VBREGEN B@&EXo] !*!4' A@6ary 8!*!:(< 8!*!:!<'.E A@6 02o/ 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 avaRoot Entry $-VBA_Project`ig $VBA_Project_Version(VBA `ig@#    !"#%&'()*+,-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\]^_`abcdefghijklmnopqrstuvwyz{|}~ID="{70E509FF-687A-459D-BAA1-3D80209A01FB}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D6D4316DD195A399A399A399A399" DPB="ACAE4B43F718F818F818" GC="828065B13AB23AB2C5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=88, 88, 683, 536, C Module1=88, 88, 606, 562, Z PROJECTwmx>PROJECTThisDrawing Module1 [_VBA_PROJECT. dir$o__SRP_4 __SRP_5B__SRP_0 }__SRP_1j__SRP_0__SRP_1nrU~}  pK*mrU~~~~~~~~~~a 2pdzC4VQ  a 1 ThisDrawingModule1 ACADProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  90W & 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD 1Y@0Fc:\windows\SYSTEM\StdOle2.Tlbstdole !IP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms  1q`iGH$c:\windows\TEMP\VBE\MSForms.exd   qp AddSphere ILpropertyILsetvarAppPref u!= &Eu!= &J\EodXh{ _ AcadDocument @(x`5%^I`5()`5 IsoLines VPOINT R 135 45 (x`5 REGEN u!= &u!= &स$*C `J0B`5VBE6.DLL  S ;k0* pHd ACADProject8@ = t  ۏp=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Microsoft 9" \ Ob Library/;C1sA00}#0#Gj0rAB89669 C8-1E647F2-A348-24BB1FB70198APXWP\VBE\DO.exd`7.E .`PM DXT@hisDraugGThi@fDrawng 2 HB1¨BE,B "B+BCoduleT1GDou1@ 2O2QM#f!Ham  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\Program Files\AutoCAD 2000i\ACAD.TLB#AutoCAD 2000 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\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B89669C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   ۏp=XThisDrawing023d708f69ThisDrawingModule1033d708fdbModule1#f2 8i}BRoyLNI"[NH (objectAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b AddSphere&u Acad3DSolidCpoint RadiusV ModelSpace_IsoLines_ SetVariable?R SendCommandc ILpropertyS PreferencesContourLinesPerSurfacejILsetvar AcadDocumentZAppPrefIUDisplaySilhouette6MsgBoxR Application*SystemaShowWarningMessagesT   $(, X#fxME<<0<4<< <<<<< <$<(<,<8<<<H@ `8@ xX2.% `\Sx`Tma`"8H (`x@ .`l@8`@ `l X% 2 `3 6  *0 P` R R R` N  X "( 2*0h7p   "  " @X ( "HilableK "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. Example 16-unnumbered.H Example 16-unnumbered.pAttribute VB_Name = "Module1" Option Explicit ' A for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice Ha@ll PTRoThis software may be Oely copied @and usso loas t6discla imer,ttogether with#e above$FnoB, 6inclubd+in J7s7&any ac0comp~do(cumca. These example pr`ogramcd=vailable'"as-is"Mout3yu i#wranty. Necfi authnor&publisuarwatyIEerr'TAwi_opperat%J#idnt up7gED716-unnumbered.ASub AddSp e() Dim object As Acad3DSolDidCpo@(0 To 2) Do2#Radiu@s ICEB)20: 11= 0 = 3Set(=pisDra ww.elSp0ace.6, C9A*