ࡱ> __SRP_3[@__SRP_0K__SRP_1 __SRP_4 c __SRP_5YRoot Entry@:}@=VBA_Project`A.N @:}VBA_Project_Version(VBA `A.N GI.N  & !"#$%.'()*+,-2/0143?56789:;<=>U@ACDEFGHIJLMNOPQRSTcVWXZ[\]^_`ab  !"#$%&'()*+,./01356789:;<=>?@ABDEFGHIJKLMN]^_`defghijklmnopqrsxyz{|}~ID="{C1F3B4BA-784F-11D3-91A7-9E7AACD7887C}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 HelpFile="" Name="Espirales" HelpContextID="0" CMG="060413813381CF85CF85CF85CF85" DPB="9E9C8B29BB59546054603BBDCF765FB2CE" GC="363423D123F1BAF2BAF2BA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C UserForm1=6,UserForm1GI.N GI.N PROJECTwm DPROJECTfC 9, 806, 605, C, 22, 22, 628, 462, ThisDrawingThisDrawingUserForm1UserForm1rU~~~~~~~~~~~~~e   ,0* pHd EspiraleDs0@ = p 7J J< rs@tdole>stdol@e f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2o 4CompObj 2aVBFrame-1ThisDrawingUserForm1 N;_VBA_PROJECTBdir 0__SRP_2\.tlb#OLE Automa0tion^MSForms>SFErmsh/z pFBC2EB5C2-6CF9-11D@2-9069FA0C9C911FDF3.TWD#Microsoft = ` Object Libprary9P04rPF3D19264-6693P3PAPJP\VBE\(EX(.E .`(M j @(ThisDrawing 2!Ahi]D rawng@HB1”BE,Bj"B+B QX h x  1 Y y! a&@UserXD12@ U-@e@{1P5OD(B<Oxz׈|u!= &Oxz׈|x6jj#Oxz׈|Oxz׈|4(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626}7"*\Rffff*637f51a8c (00$H`0# $ $ $0h@tt0MExAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz2VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Generador de espirales" ClientHeight = 3450 ClientLeft = 45 ClientTop = 330 ClientWidth = 5145 StartUpPosition = 1 'CenterOwner TypeInfoVer = 19 End  Microsoft Forms 2.0 FormEmbedded Object9q( << DesignarD{uTahoma@H, {05Tahoma@H, {05Tahoma@H, {05Tahoma(X = {5Tahoma(Y =O5Tahoma(Z = N5Tahoma( << Designar {uTahoma@H, {15Tahoma@H, {15Tahoma(Vueltas 5Tahoma (Espiral de arcosg OuTahoma ( Radio inicial 5Tahoma<Fg F1Cerrar al terminarn5Tahoma$(Espiral polilinean NuTahoma  }s#,<CommandButton1{$<TextBox1$<TextBox2 $<TextBox3g (24Label1(24Label2 (24Label3g ,<CommandButton2{$ <TextBox4q$ < TextBox5g ( 28 Label4 , @ CommandButton3( 2@ Label5( \ CheckBox1; ,DCommandButton51u!= &Oxz׈|u!= &Oxz׈|Xh{ _ AcadDocument =0* pHd ACADProject8@ = t  7( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE Automation^MSFo@rms>SFErms/z pFBC2EB5C2-6CF9-11D2-9069FA0C9C911FDF3.TWD#MicrosPoft = ` Ob Library90 r?FC49FE84-7608?3-91A7-F51BCBE`29770?P \VBE\@EX@.E .`M ABjBThisDrawing 20Thi@UDrawngQ@HB1B,B(j"B+BB UserO1b2A@eK@Es1P.OեD(rU @prU ()Q4yaVcrU $`$)`$rU $`$)`$i`$`$`$)`p X`\  `d` h `l p pace_AddArc_parc~parpa^pgobjarcoAcadArc _B_var_SetUpdateShow _B_var_IfP AddPolyline  Add3DPoly9poliAcad3DPolylineT t `1x  | 1  Q q    !`1  `q  n??0 (   , 7H:X%'h%x"$ x \H4x5h1(X%4h`#Dx! x h/Dx5h1(X%4h`#Dx! x h/Dx5h1(X%4h`#Dx! x h/Dx5h 8<Oxz׈|u!= &Oxz׈|J`xzj<`xzj_xzjI`xzjx# jjI`xzjJ`xzj;#5TX\`dhlptx|SPSSS>"<< ~<< <$<(<,<0<4<8<<<@ (m @< Pm@4 `vx @$ @ @ {@ {0}@ 0tD Phx,`. "fd@ @ @  @ @ @( @@@P h(@@x PA @ xApt@ PxM(Np ((  @0h ( ` ME "`   " 07@111(   " , 2:  " pJ3x "@80 " #))) .7.70x " "+ ,:,:8 Pp   (0 (X X ` H zq  0 D " (p x.B 1   "h(08 #@ #  pP ) )x  *  fGx  lJ  @  P 0` , 0    DP  X `lpZZ nrZZZZZZPZxZZ !b+Lo !b+L "!b+L = Pinicio(1) = Pinicio(2)$L ` \$d +L$L+<$L+L$L+L poli.Update.$L +L $L ` \$f +L)al $L ` \$d +L$L+L $L+Lp$L+L$L+L$L ` +L$L +L$L +L Z P n Z centZhZ$L+<ad3D( 2Set poli = ThisDrawing.ModelSpace.Add3DPoly(Parco)l |B@n ,!b'` .!b'P n aHh@$L+<Ll  n  $L+< n  $L+<PERT! @'\B@$L ` +L$L ` \$f +L@8 < Z  n  ` n  \ n  \ !p%r.| ZlZ B@Z@ !bF A@tg!l B@$ (f$ (f$ "(fDesigne el punto inicial !%'ahl  ` ,(fgne B@nicial B@'l)Debe especificar primero el punto inicial Mensaje de VBAA@" Designe el radio inicial !%'`$L+<ZP B@B@ B@ Z % (frc  Selecciona polilinea !B@ l(l Z Zp Z0 PERT! @'\Z Z Z .!b'Po pu Z Z P Z haZ( Z  !b++ !b+=1ntap matp (indice)= v Z    '  Zce)=  !p%. !b+ ,!b'`&recorremos la polilinea dando el bulge' ߨ^&? B@ B@ P  H    P \ !(24Label2 (24Label3g ,<CommandButton2{$ 4TextBox4q$ 4 TextBox5g ( 28 Label4 , @ CommandButton3]( 2@ Label5( T CheckBox11,<CommandButton4{$4TextBox6,<CommandButton5{i`$`$`$)`pT DUpfT5Dkf xZkfc@rvc+=zjC+=zjH+=zjN+=zjS+=zjX+=zjk+=zjY+=zjj+=zjf+=zj y I CheckBox1_Click 4DCҋB `#=h8+3qG?,2qLn+=zj+=zj+=zj+=zj+=zj+=zjCommandButton4+=zj 1 I HTextBox6CommandButton4_Click 4D Selecciona polilinea()`5+=zjW[`5GetBulge+=zj+=zj+=zj+=zj+=zj+=zj+=zj Q! I CommandButton5CommandButton5_Click 4DȎ+=zj͎+=zj׎+=zj܎+=zj_xzj_xzj_xzj_xzj_xzj_xzj_xzj `xzj`xzj()`5`xzj"`xzj,`xzj1`xzjbF A@tg  $ Z    `   \$d +  $ Z    `   \$f  + GAttribute VB_Name = "UserForm1" " Bas0{15A56078-7A11D3-906A-00A0C9C911FD}J5FA2J dCreatabliFalse PredeclaIdTru "Expose@Templat@eDerivCustomizDDim puntoi As Variant  rinicial1 P26 Sub CheckBox1_Click() 8EndommandButtonMe.HidxC= ThisDrawing.Utility.GetPoint(, "Designe el] T"?Text$.S(02132'Show%62GBIf E# <> ""6en =Z>Distance(3@radio@D4E45E XMsgMWb@Vspecificar primeroO[, vbOKOnly#Men@saje dAӀAIfc3MBPso(2)D ou΃Parco(1 To 18NvueltasIntegezrAp`icentrobjAAca2d I9#Q4.xValz<#5%`= 3.141592654`l)1C @#2K33EE 4() - (* Sin(@/ 3)^5@Cos6374f 8d= - E99s 10aw#11c#2 *F f1w` 1&D +F#e1 )@#)&`&^5(& Y=~ bL|_6}"< 6Ȓ!ad^(-3 ("+ - aH`+M5PL2%G%4 Ho 6xiModelSpace.Ad?( , ((6d-) + )pE.p*1!76)* s66q9 d .UpdxNB 3 zAE` Unload M0x{s~{4Zpol2S1PObjec䃢jQFFo~Q~Ent~ ,}eSeleccionalineae n66{paBulge_{_T5 matp(^fcon8tap JfiLWPoly h?Ee^Aoksegme$jindicej%diflRe (* qUa, /IT#*OIp*)1 A8hœ%0B2J FrqRATrUF? A:tr`+ (1 PiNBB)B Ad((* 2pj* pi) /| 6a5 qC=  a ՞aG3 Q?HU2%TTLi`ghtWeQu4( 'recorremos lA d2b?c(t= 0d(P6 q. C , 0.267949192467761TTEWUUU rU q%y i 0  $ &y i a'%%%&q%T X  \ `q`  d  h l` p!`1tx`|   `1   1  Q q l??8$ , 7H:X %'h%x"$ x \ H4x5h1(X%4h`#Dx!  x h/Dx5h1(X%4h`#Dx!  x h/Dx5h1(X%4h`#Dx!  x h/Dx5h 8$ DxhH,,hx!  x h:X]