ࡱ>  sRoot Entry@TCVBMACRODATAVBA_ProjectÞ҅sÞ҅s#Root Entryм҅s LTCVBMACRODATAVBA_ProjectÞ҅sP8҅sVBA҅sP8҅s Y  Z !"#$%&'()*+,-./0123456789:;<=?@ABCDEFGHIKLMNOPQRSTUVWXj[\]^_`abcdefghiklmnopqruvwxyz{|}~Help P8҅sP8҅sPROJECTPROJECTwmJCompressionForm  i*WJOP8҅sP8҅sfGo  i13 n``P8҅sP8҅sCompObj nVBFrame Of\&o CompObjZa  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFHIJKLMNOPQRSTUVWXY[^_abcdefghijklmnopqrstuvwxyz{|}~#CompressionFormCompressionFormModule1Module1ID="{802ED224-2097-11D5-9ABD-0050040284A0}" Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=CompressionForm Module=Module1 Name="Spring" HelpContextID="0" VersionCompatible32="393222000" CMG="23215FBE86C286C286C286C2" DPB="46443AE37E25A026A026A0" GC="696B15E616E61619" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] CompressionForm=66, 66, 948, 643, Z, 22, 22, 1110, 780, Module1=154, 154, 1162, 731, VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} CompressionForm Caption = "Variable-Rate Compression Spring v2001.03.27" ClientHeight = 4905 ClientLeft = 2040 ClientTop = 330 ClientWidth = 7905 StartUpPosition = 1 'CenterOwner TypeInfoVer dirModule1t__SRP_0#__SRP_1.__SRP_2 __SRP_3`__SRP_4Jz__SRP_5]_VBA_PROJECT>CompressionForm Gf,o) = 66 End  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q,,gSegments per Coil 5Tahoma ,lCoilsaX5Tahoma$, sSpring O.D. 5TahomaH, {5TahomaH, {5TahomaCompObj'pH, {5Tahoma$, wWire O.D. 5TahomaH, {5Tahoma(,IInstalled HeightX5TahomaH, {5Tahoma$, fFree Height 5TahomaH, {5Tahoma,xX0| 5TahomaH, {5Tahoma,yY0| 5TahomaH, {5Tahoma,zZ0| 5TahomaH, {5Tahoma,oOk|qOuTahoma(CCancelqOuTahoma(hHelp5Tahoma<!@HICoils: The number of free coils in the feree-standing spring. The value need not be an integer but must be greater than zero. Segments per Coil: Increase for better rendering at the expense of larger file size. Direction: Ccontrols which way the spring is wound. Spring O.D.: The outside diameter of the spring. Wire O.D.: The diameter of the spring wire. Values of Wire O.D. greater than one-fourth of Spring O.D. may lead to problems. Solid checkbox: Check this if you absolutely must have a solid. Be advised that the execution time will be greatly increased and the success rate will be low. Installed Height: The height the spring is to have in the drawing. Free Height: The height of the unloaded spring. As this value becomes larger with respect to Installed Height, more coils are shown compressed at the ends of the spring. Start with a value twice as large as Installed Height and adjust as necessary. X0, Y0, and Z0: The location of the center of the bottom of the spring in your drawing relative to the World Coordinate Sytem. The axis of the spring will be parallel to the z-axis. Default Values: If you wish to have a different set of defualt values, edit the defaults in Module1. Within a drawing session, the macro will remember settings from one use to the next. Error checking: o The macro will constrain Installed height to a value no less than Wire O.D. times Coils. o The macro will constrain Free Height to be no less than Installed Height. Problem solving: The v7 extrude function is a little quirky. If you get a message that the object is degenerated try changing the segments per coil. For example, wiith all other values at default 45 segments will fail but 44 and 46 work fine. Also, checking the "Solid" option will cause it to work. ###5Tahoma4Fd{0>|Solid5TahomaL(9Check for updates at http://home.rmci.net/winstonmitchell5Tahoma$ &B}x6!R KQDBTahomaP(2LLabel2(2@Label3(2DLabel4$ 4Coils{, 4SegmentsPerCoilq<  #Frame1 Winding DirectionÂ$4SpringOD](2D Label5$4 WireODS(2H Label6,4 InstalledHeighto{(2DLabel7( 4FreeHeightq(2<Label8 4X0zg (2<Label9 4Y0z](2<Label10 4Z0zS07<CommandButton1tou0;<CommandButton2to u(!28Label11 "\Help{( %T CheckBox1(&2lLabel12k Microsoft Forms 2.0 FormEmbedded Object9q }t 9rU $`$A`nXI:/a,"P"P캰"P"Px"P"PMESPSSS T V >"L*LLLLLLLLLL*LLLLLLLLLLLLLLLLL*LLPL*LLLLLLLLL<<<<0{046E4919-1C2A-4E3D-A743-BF3B0D823FD7}{2619DEB4-0A1E-4A54-8E81-5A1D926480E6} 0(%X0 % `Hdk%%% `p |kei %%PERT! @`i H %8@ l @"\ @$L @&< @(, @* @, `.@0@ @2 @4 @6X @8 @: @<p @> @@t @B(d `D\`4 `\ l J\(,*@ @ @N @ @Px  Wh h p`0`XxE@H @ i i  P 8hP@ h`@x ,.68:b@`p @` @P @@ @0 @ (@  @  @ @8 @x 0fdht``p$%hX(@ @`([@( m@`@m@P h(n(@/ (Pn@ @| P@l @ h` (@d      @FL @V`< @H, @J  h@LH pP(xHX@h P `*  pP(xHX@h 0 `0Y;$*\Rffff*4>3c02130c*\R1*#64*\R1*#65*\R4*#0*\R4*#1*\R1*#d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#44*\R1*#59*\R1*#3*\R1*#2*\R0*#19*\R4*#1*\R1*#d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#44*\R1*#59*\R1*#3*\R1*#2*\R0*#19*\R4*#1*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#44*\R1*#59*\R1*#3*\R1*#2*\R1*#d*\R0*#19*\R0*#13*\R1*#e*\R4*#1*\R1*#d*\R0*#15*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\R1*#44*\R1*#59*\R1*#3*\R1*#2*\R1*#6b*\R0*#1948<@DHLPTX\`dhlptx| "2HD&  ?h * @  3 )x 3 ) *X h p x  3 )H * 8  3 ) 4( ) 30 )    6+ X H   h *`  )887 & x 4= 8F    (0< ,h H5 D Nh ^6 Z 48&9 p &6( $0P"5x"@  $ =   0 P h  . ,9&2:N & 08  0EP    $* : ,9 :x &2 d 6 LX  @:NPFp&5(0"8 P `  =h    $0 $3@ $3 *> h B 7p # 0  ?hpx P ? < ( $P?0 H ,( .X6*P "( 80 x` \Po B@ed](@Xpcz]0H`x5,'*d] 8P]h]]]PERT! @'* 5('(J5\e<e'Ld'Lk5,',*|56'658'85:':q   (', k ,'.k L 'Ld'Lk.Above comment is fancy term for "fudge factor"eigh Recalculate Calculate compressed coils   X @ @$h ' >Setup extrusionBuild Extrusion  ( X'< < &'> > > > $f$d'@  "   J'H "  X  'B X "  X  'D l!n TCW40EXTRUDE7p.e $PIPE;re$SMOOTH;re$APPROCSIMCURVE;re *Solid;r`ePenColor;rq 6 $ L  B$h '0e 8 $  B$t '2e : , & @$h B @  < '4 ( * G (ffffff?'(j 0 2 4 0 ( 2 47v.N N!z7x.N N !nB@| !~ V B D D B  H 6 $ L  V$h '0 8 $  V$t '2 V @ : , & @$h V @  < '4d V X @  : , & X @ $h V X @  < '4d : , & V$h '4kk 0 2 4C@p Vq TCW40CUBE7p.P *Solid P,r P!~ 6 * 8 * :C@p 6 * 8 * : , C@p:  . ,  .  ( '" 6 * 8 * :C@pqX  P  %. Gj C@| B@ PB@q l%B@| l%B@ !A@| l%B@ o(#Adjust InstalledHeight if too smalleeAdjust Free Height if too smalle Reduce wire size if > springOD/4e  " ' !!Active coils (uncompressed coils)Je  ( X'<)Minimum winding pitch (zero coil spacing) * ( '$%Extrusion radius , "  ( '&AHeight/2 of active coils'Location of beginning of extrusion pathff3x-component of coils with radius=r and offset by X0nd off Report errors < &'>9Minimum winding pitch per unit height (zero coil spacing) > > > $f$d'@#1Angle where coil spacing = k1 (zero coil spacing)SEmpirical first approximation correction to account for coils loss due to angle "a"3y-component of coils with radius=r and offset by Y0l]If t is between values that produce zero coil spacing, coil spacing follows a cosine function,0For all other values of t, coil spacing is zero.ECoil position is offset by half the installed height and offset by Z0Setup trimming cubeBuild trimming cube;Intersect extrusion with trimming cube to make final springDelete temporary objectsReport intersection errors . , $Get user input from Compression formFree Height increased to ..A@HInstalled Height increased to ,.A@ ,   (  l%B@0k]h      I5 G'\jo ]_nKTSUnknown'4]KT$Solid is degenerate and is discarded'4&Surface is degenerate and is discarded'4$Boolean operation failed. Error is: 4A@'\5JG'\jalk \5(G'\j5*G'\j5.G'\j B@brror G B@- B@5 ' 5J'J5*'*5.'.*There is an field = 0 that needs a number.A@ 6 * 8 * :C@p .If .InstalledHeight = 0 Then EmptyField = True.P..N.@Attribute VB_Name = "CompressionForm" Bas0{046E4919-1C2A-4E3D-A743-BF3B0D823FD7}{2619DEB4-0A1E-4A54-8E81-5A1D926480E6} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOpt 0licit 0 P"& Sub mandButton1_Ck() Dim ils, EndCoRadiuHeight, WireOD, SpringInstalledFree As Dou.x, y, z, X0, YZk, k1, a, tMinAax ItepC@#SegmentsPer)igSolidIntegerCProfile@5xtru, Cub1 Graphic Verte CCB1 New Boolean3DRetValLongTextSEEmptyFiel* CoQ Pi L@3.141R554q ActDraw_.Views(0 ).Refh  On Error GoToH|lD'Get user input fro3A~ f߃WiMsg C ("@wre is an fbAthat need number.")Me.hidp9iF`.Show+#E8xitl$Y2Loop Until oIPnltTSZ P'Adju ]if too smoCM* 1 < (K+ 1) *tsLB=Ov/s vincto " & & "qυ&Of  Q!] (= O "  @'CalcuA ccqpds/ 2((- ) / %)) ^ y 2\< #Yc]E_T=c - V ' (un]7#`B(U-( 2 'E rs @)- (1 +7.4/2 of aB k{ `Џ' imum d pitch (zero sP kaj^k puZn`Chbga!p Atn(p/ hSqrp-P"kB1'Ang0wheO%` o `'@Hiricfirst approximaAcorrePonEcoun0+ loss due2"aˁ%'Abovem!AYfancy term "fudge fPorD%+&/* aCos(aD'Rep 5t;C, *)VS@sS9&U/@* à0p)]%/30=+,gC#۷DsSetup `Ɨ` .Add(, "TCW40EXTRUDErv9wQ.-ties("$PIP [SMOOTH"){APPROCSIMCURVtMb PenCol(2|1053224  End With'Location of beginning0extrus2pa bx = X0 - Radius * Sign Cos(2il,tMin)iy7Y0 + 7n0z0Z0InstalledHeight / 2F * wta)(q * kReduce wire size if > spruOD/ IfreOD5c4S1 PThen=0.956Set Profiled.AddCircleCenterAndPoint(x, y, z, xjWQ>p 'Remove(0.IndexE.Graphics %*'Build F G.VerticesFor Step9`To tMaxe-@o 'x-co0mponGco%w@ rB=r aoffs@Vby@K!Ax bOA!K'ym!Y0O!ߺt i"stwevalues tha t pro±zero Gac,J follows asine funca|'!7`k other @tl @ .PC5 posiˆ'4halfg`nEx hcx+9Zp( !$ <!o/5! - Á aElseS > (PiÌA g% - ( +; !pa nIf"! DNup trimm[ cub1AC `| (, "TCW40CUBE"a. pes("Solid")"' ?b Ӟ, @- * 1a*+d! om, C Ogvg 'IQlspect Z @to mak0Hinal4wwB1`lqAp(h, A, Ret8Val 93 <> 0zGog @ErrorHFl|erg1p'Delete tehrary obj`(k ."IA`XveDraw-.Views(0).RefresT!aNPYq~&Exit Sub Y: 'Reporp d s MsgBox pscripGgG er el)Case"]78C#TI= AAwdegen8eraildiscarded"%8xt"Surfa e fk UnknXown$S)ct("Boo8leaNfa d.pis: " &14 Priv mmButton2_Click(6Me.h idXS\IMSI\TCWP71\PROGRAM\IMSIam  *\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{6A481400-E531-11CF-A115-00A024158DAF}#4.0#0#C:\PROGRAM FILES\IMSI\TCWP71\PROGRAM\IMSIGX70.DLL#TurboCAD v4.1 Programmable Objects.*\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{868DA285-FF89-4578-9F34-2AFFB8D5A389}#2.0#0#C:\DOCUME~1\Winston\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{382BAB91-34CA-11D3-BF19-0000B465872B}#1.0#0#C:\Program Files\IMSI\TCWP71\Program\IMSIGXEX.dll#IMSIGXEX 1.0 Type Library Y;/CompressionForm4>3c02130cCompressionForma,:Module14=3c02130cModule1o,q8`. P"PHPP? AsBooleancase=dim@doDElseGendRFalse^GoTo_IfcinputxLongyloop{meNewnothingOnorpublicStepsubThenTrueuntilwith IMSIGX VBAWin16~Win32MacVBA6#Project1  stdole` UserForm1) _EvaluateMSFormsC CompressionFormfCommandButton1_Clickhide9z Module1b SpringCoils5EndCoilsRadiusVHeight|WireOD4SpringODSInstalledHeight  FreeHeightxoylzqX0_Y0N_Z0`kbk1]aXtMintMaxfI`StepsSegmentsPerCoil7xSign8ProfileCubeFinalbGraphic?VertexPi^Segments. OptionButton2l@ InstalledFreeShowAtnQuSqr(CosO Application* ActiveDrawingGraphics[Addr Properties+SinAddCircleCenterAndPointRemoveϱIndex AddGraphicVerticesViewsTRefreshUserFormNLabel2,Label3,Label4,Frame1 OptionButton1k@Label5,Label6,Label7,Label8,Label9,Label10@CommandButton1|ClickValueKItemzSpringsshBl\ Intersect1RetVal; _B_var_retvalvdimFinal_B_var_dimFinal Boolean3D _B_var_newu _B_var_Final{&B1\ApptActDrcDrawing<0Grs"Grj]Gr1Gr2Verw Intersection IMSIGXEXLibe Extrusion2Deletex (DrawSpring9 _B_var_on6 ErrorHandlerOMsgBoxRErro Description  _B_var_Error)eonerror _B_var_eonerrorenerrorn_B_var_intersectvHandler ?IntersectErrorHandler/ _B_var_IfPCommandButton2}CommandButton3~CommandButton2_Click compressionMHelpfCommandButton3_ClickFA _B_var_WithYowner% _B_var_ownerRcenterW; _B_var_centerMove>y ActiveWindow+_B_var_compression/form _B_var_formNv_B_var_UserFormLabel11ATextBox1S _B_var_HelptTextBox1_Change=BuildE _B_var_Build user _B_var_GetSPfrom~  HelpContextIDu"SetFocusSendKeysNLocked Solidc CheckBox1istrueW _B_var_istruethn0 RetValTextX _B_var_Select'E_B_var_retvaltext _B_var_CaseLabel12B DefaultCoils>DefaultSegments1 DefaultWireODx"DefaultSpringODVDefaultInstalledHeight޻DefaultFreeHeight?E DefaultX0j< DefaultY0; DefaultZ0<DefaultSegmentsPerCoill_B_var_defaultsegmentspercoilOWdefaultspring0dJR_B_var_defaultspring0d; gotousererrorJ  UserError EmptyField _B_var_Untilٰ _B_var_Loop RedoActionc UndoActionaVisiblesubexitv_B_var_subexity_B_var_OptionButton1 ` $a1rU 0Y1 Q 1 1IyY 1Y9q 9Q)9Qy!iyQ4 a18 < A @ Y D q H  L  P T X \! I ` a d aq h  l p t x |    A `  i    `I     1 Q i ! xW?($   $ )5K Vp, /  (]35p) /  ـl5, /  (]35p) /  ـ5* /  c]35K ( X ( , /  (]35p) /  ـ,5* /  c]35p p , /  (]35(p) /  ـ5) /  ـ 5, /  (]35p) /  ـBt5 /Qo /Qo /Qo kt+'0'P':,N 6P0 $ kTc ) (l(p,Pg5l(, 57''0'P:  :p 6 P0okp] (gy  Bt='0'P'o# *#*F 2 6P0Fl(okp ok`l,P0(@\ (]g (  ( l(\l,(L5 (p(\,P0(`<5 l,ĨPERT! @<6(B9 kpPB9 k`t9llĨPERT! @ttB9 kpP0l l,ĨPERT! @<6(B9 kpPB9 k`t0l(p(\P0,6P5(`(\pPERT! @lP0d5@`PERT! @(\pPERT! @lP0Bt\60$$  <Q='''0'P:pN' Q6 P0q:%(`%lD:%(`%lD:%(`%lD:%k D`%lD:%`%lD q9L (ldPB9 kp02L(ldB9 kpP0N (<tB9 kpP0dt60,((pt,Ĩffffff?,EB9B9,(B9B9B9B9 <Q5 = Q5 @=5Aq*d%%(P 0%lh 60 qh744$" $#l=$)l !#''l=$[ 6 % %c?($   $ )5ccc c=$?($   $ )5<'0'P' & ,'> F 6P0?($   $ )5Dlqdld(Cld)C*C*'0'P'+l*F 6P0#lLL<d,, t\l< D P0|D $ P|D $ PrU $`n!9  a !Y9Y yQAi Y19Th Ks V ( ! 5 ( ! 5c ! 5'İ? ! 5 ( ! 5 ( ! 5 ( ! 5 ( ! 5 ( ! 5 ( ! 5c$ V !Qol !Qo* ! c]35pp !Qo, !Qo !Qo % ! Bt5 !Qo !Qo !Qoc  l(,g5l(, 5ok] g  Bt=l(ok| ok\l,lL<\ kQpZpl(\l,(L5 (|(\,l(\L<5 l,PERT! @<6(B9 k|B9 k\t9llPERT! @ttB9 k|ll l,PERT! @<6(B9 k|B9 k\t0l(|(\l,65(\(\|PERT! @lld5@\PERT! @(\|PERT! @llBt\6l$8$   < Q84='<'L'l':| N'4 Q6 lL<q:%(\%lD:%(\%lD:%(\%lD:%(\%lD:%\%lD q<LkD(|ldB9 k\lL2L(ldB9 k|lN (<tB9 k|ldtL<6l,((|tJ,ffffff?,EB9B9,(B9B9B9B94 < Q5 =4 Q5 @=5Aq*dF $6l?(8$   8 $ )852'l''%l#*F $/6lh "4LL<d,,t\l< @ 8lL<k5+   frU~|  Q 1I T (l (\ (L?< (, ( ( ( 1 V    ,  :]35$l  5,  :]35H$\  5+   f]35c   5,  :]35$<  5,  :]351$L  5,  :]35$,  5,  :]35$  5,  :]35!$   5,  :]35q$  5,  :]35'lFN  5cc 5$L4 L\< ,lk,PERT! @<6(B9 kB9 kdt9llPERT! @ttB9 ktl l,PERT! @<6(B9 kB9 kdt0l((\t,65(d(\ĄPERT! @ltd5@dPERT! @(\ĄPERT! @ltBt\6t3<@$ 0   @ < Q<8)@='D'T't': N'8 Q6 tTDq:%(d%lD:%(d%lD:%(d%lD:%(d%lD:%d%lD q<LkD(ldB9 kdtT2L(ldB9 ktN (<tB9 ktdtTD6tEB9B9,(B9B9B9B98 <Q5 =8 Q5 @=5Aq*dstdole( f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automa0tion^MSForms>SFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4DFM20.DLL#Microsoft 9 \ Object Library/;C~1s00}#0#j00868DA k/o,xMEl X@P\ @DL @B< @F, @H @J x@L `N@`0% @ @8 @ X`xX8X(X`XEP%(0 PX0( P@ P ``xXh @ @| l (@\ @L @< h 8 4P`h@X$ @ @@ X@`BX( X@ 0P @` XP h Q/ (Q ( @ ^ b `b ` (H 04`   p `(k 8X @ @P ( H( Y;$*\Rffff*4=3c02130c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*4>3c02130c! " 8 d0 x          PPIPPP0P(P@PHSX` hx x 5*G D9*j5,G F9,j58G L98jq B@boH 0 @  5B@$U^{HOME}A@&A@&5((w5 G >9 j5JG P9Jj5.G H9.j56G J96j5:G N9:j8'>'P v 2001.03.27]0H`x'D'F?'B'H'J'L'N5(G B9(j]Edit the following default values to set userform defaults on first use in a drawing session.5G9\j[Attribute VB_Name = "Module1" Option Explicit Sub DrawSpring() 'v 2001.03.27 Dim DefaultCoils,SegmentsPer'0.IODWireInstalledHeight&Free X0Y Z0 As Sng  'Edit the folHlowd dY values to set us@erformsB firs in a d sess.1݀3 0  1  0.125 2 X0K YR= D With ComprC=FICX.Help.@Locked@True SetFocusIf .@ "" ThenS R  CButton1"False#2K6A0hF!F 1{G/-D}D  Ef g+I&$XGD%L&$Y,O&$Z$End RcSendKeys "^{HOM`E}", 5LW.Show ! #$  TypeEj@BA/@Compress1zGmprs@inF2 (HB17. ,B&a,"B(B+B_odule1G_o@quBq1 &2oUoo, !b n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q285-FF89-4578-9F34-2AFFB8D5A3896DOCUME~1\Winston\LOCALSTem@p\VBE\S.8exd;!.E .@`M  @IMSIGXEXG>MhIGXELib5{5382BAB91-34CA-11D3 -BF19MB465872B}#1Program Files\A\TCWP71\DA!.dll #$  Typ.en@/@Compressc~G@mPprsiUnƟ2 QHB1B\: ,B&aT,"(+#bodule1G$bosus1M 2oqoo,!b n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4G<la0>|Left5Tahoma8G<r`a0>|Right5Tahoma<H   } "DirectionR KQDBTahomad, TOptionButton1a, XOptionButton2a