аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ џџџџ џџџџџџ$ §џџџџџџџџџџџџџџџџџџџџџџџџџџџ%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ'#RўџџџC&ўџџџG(,V+1џџџџџџџџџџџџ4џџџџџџџџ56789:;<ўџџџџџџџџџџџџџџџџџџџџџџџEDBFSHIMџџџџџџџџџџџџNPџџџџ*ўџџџTQU)$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ`Ф |Z&Н *YПЬП €0VBA_ProjectџџџџР= |Z&Н *YПЬПVBAџџџџџџџџР= |Z&Нр$’™ЬПPROJECTwmџџџџџџџџџџџџ‡>ўџџџџџџџ§џџџ%ўџџџ џџџџAўџџџ/ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ.Lџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@02џџџџ3=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ>OJџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџK џџџџџџџџ?џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdirџџџџџџџџџџџџ 9__SRP_0џџџџџџџџџџџџўџџџ˜__SRP_1џџџџюUserForm1џџџџ4?ћ~&Н`P:Ф&Н‚ўџџџ„…†ˆўџџџ‰Š‹ŒŽ‘’“”•–—˜™Њ›œžўџџџЄўџџџЂЃўџџџўџџџІўџџџЈЉўџџџЋЎ­ўџџџЏАБВГДЕЖЗЙўџџџКЛМНОПРСўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџЛThisDrawingџџџџџџџџџџџџN__SRP_2џџџџџџџџџџџџЁО__SRP_3 џџџџ @ўџџџЌ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMўџџџOPQRSTUVWXYZ[v]ўџџџ_`abcyeўџџџghijklmnopqrstuўџџџwxўџџџz{|}~€dirџџџџџџџџџџџџ /__SRP_0џџџџ ˜__SRP_1џџџџџџџџюUserForm1џџџџџџџџ4?ћ~&Н`P:Ф&НID="{A73CC2C5-9249-11D1-BA96-00A0C95E97BC}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} HelpFile="" Name="Project_dvb" HelpContextID="0" CMG="383ADC1AE01AE01AE01AE0" DPB="707294519B519B3E78D2B35C75CB" GC="A9AB4D8E4E8E4E8E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=40, 29, 620, 482, rU€€€€~~~~~u џџџџџџ‹ltџLџ$џxџ4џdџџџєўkЬa^џ ф,*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\ThisDrawingThisDrawingModule1Module1Module1 џџџџџџџџє__SRP_4џџџџџџџџџџџџ^и__SRP_5 џџџџ\e_VBA_PROJECTџџџџџџџџƒ __SRP_61џџџџџџџџџџџџfи__SRP_7 џџџџdeVBA_Project_Version(џџџџџџџџџџџџИџџџџџџџџџџџџШ"ш€ џџџџ€ 6 € ,X ˆ˜И иј ( 8H€ 0P€  Рр№  0 8HџџџџXХџџxи+el poligono inicial debe ser una LWpolylineИ!Ги5Desarrollado por Pedro Martinez G. para Computer 2000иJ Ni el autor ni Computer 2000 se responsabilizan de los posibџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ5€€ џџџџ€ џџџџ"`€ џџџџ€h€p€x€€€€ €Ј€А€И€ џџџџ€ Рр2ш  (8€ @ Xh€ џџџџ€ &ˆАЖџџџџџџџџџџџџџџџџџџџџџџxоpЖџџџџљ2§2џџџџŒжжаџџџџпџџ8џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@6 џџџџ ”џџ<\џџ<џџ< џџ<џџ<џџ<џџ ”џџZ<џџ<$џџ<(џџ<,џџ<0џџ<4џџLџџџџLџџџџLџџџџџџџџLџџџџLџџџџLџџџџš"џџџџ<`џџџџџџ џџџџџџџџџ`„Lџџџџџџџџџџџџџџџџџfpџџ џџ џџ@ўџhџџџ џџ џџџџ@ўџџџџџџџџ џџ џџџџ@ўџˆџџџ џџ џџџџ(ј!џџџџџџ „DџџџџLџџџШџџџџ „HА4џџџџџџџ№џџџџшџџџџџџџџџџџџа№џџџџџџџџџџџџџџџџџџџџ˜x џџџџиџџџџџџџџџџџџџџџџPШџџџџ€џџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџ8˜@ўџџџџџєўџџ џџ џџџџ@ўџџџџџ№ўџџџџ @ўџюўџџџџ џџџџ@ўџ8ьўџџџ џџџџP!џџџџџџ@ўџ`ъўџџџџ џџџџx8)џџџџ@ўџАшўџџџ  `)џџџ@ўџџџџџиўџџ џџ Ш`/џџ џџ@ўџижўџџџџ Šј№А2џџџџ@ўџџџџџдўџџџ и2џџџи8џџџџ:џџџџxџџџџ џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MEџџџџџџџџџџ ўЪ<€€ џџџџ€ Jш€ 28€ <p€ PА€ Tp€ 8€ џџџџ€ џџџџ"€ џџџџ€ €0€(€р€№€P€x€€€и€ џџџџ€ Xа2B˜р ши€ 8 ˆ И€ џџџџ€ &€"("%Hp€ џџџџ€ 68€ , ˜@"X %x 90  Р€ 0аА"€ %˜№9а  p `џџџџ(Хџџxlџџhlџџ`ZъxZъАZъаиbuscar verticesr Zъ˜иseleccionar entidadone unZъ№Zъ (!,'0Sele ( .ЎSeleccione una polilinea !$B@&!$и.Zъ ZЄЄъЈZЄЄъии desde cada uno de ellos (origen)№ >Є$0Є+D >ЄЄ $0Є+DLeЄЄ+Dї >іЄ :Є ‹ >Є•imoиel ultimo (+2)nt+2ї LіР n-1)и)los siguientes (cont+2 hasta nvertices-1)ahи%el primero (cont+2 hasta nvertices-2)ї Lі >Є :Є ‹ї >іРї LіР LЄ$0Є+HЄЄ+Hї Lі >Є :Є ‹.х D H !T%^.ЄЄ+Hџџџџ B@` B@`џџџџРх D H !T%^.Hџџџџ LЄ$0Є+Hлџџџџ LЄЄ $0Є+H LЄЄ $0Є+H 0ŠЄ Є':џџH џџџџ№џџџџhиCEsta aplicaciѓn genera el polэgono estrellado de cualquier poligono@и+el poligono inicial debe ser una LWpolyline<и5Desarrollado por Pedro Martinez G. para Computer 200000-0иJ Ni el autor ni Computer 2000 se responsabilizan de los posibles daёos queи2instaladas previa o posteriormente a su ejecuciѓn.и/ hasta los siguientes no consecutivos (destino)erиMla ejecuciѓn de este cѓdigo pueda ocasionar en el equipo,datos o aplicacionesLibrџџџџ`СШh f• fB@hfџџџџ  > p!t(f pB@z|!tџџџџиДAttribute VB_Name = "Module1" Option Explicit 'Esta a@aciѓn genera el polэgono estrellado de cualquiєer@i@Š\H in\al+be s'una LWNyline-DesarroRpor Ped€ro Mart €z G. pa„CompЬr 2ˆ0007 Ni˜ˆaut3ni j responsabiliza"nWlosTsibles daё)quBlrje?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[Й]ўџџџ_`abcyeўџџџghijklmnopqrstuўџџџwˆ†z{|}~€ID="{A73CC2C5-9249-11D1-BA96-00A0C95E97BC}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="Project_dvb" HelpContextID="0" CMG="2220C60DCB11CB11CB11CB11" DPB="2B29CF04D905D905D9" GC="3436D013D01DD11DD1E2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=40, 29, 620, 482, C rU€€€€~~~~~u џџџџџџ‚ўџџџ„…ЊЎўџџџ‰Š‹ŒŽ‘’“”•–—˜™ўџџџ›œžўџџџЄўџџџЂЃўџџџўџџџІўџџџЈЉўџџџЋўџџџ­ўџџџЏАБВГДЕЖЗўџџџџџџџƒџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹ltџLџ$џxџ4џdџџџєўkUserForm1)жUserFormNTextBox1ІSLabel1,ShowѕHide9z ShowUserForm1JяUserForm_ClickлјUserForm_Initialize5c€џClickŠу €џџџInitializeгNџџTџџџџџџџVBA332.DLL Љџџџџ­ Ш UserForm1 И}ИThisDrawingThisDrawingModule1Module1fџџџџџџџџџџџџЇЋoџџџџЅlCompObjџџџџџџџџŸaVBFrameџџџџџџџџџџџџš"__SRP_61џџџџџџџџfи__SRP_7џџџџџџџџџџџџdeџџџџџџџџџџџџџџџџџџџџџџџџModule1 џџџџџџџџ-ц__SRP_4џџџџџџџџџџџџ^и__SRP_5 џџџџ\e_VBA_PROJECTџџџџџџџџџџџџ)=B+BCvoduPle1 2„yo@œuBœ1PаЂM§2!HТЬa^џ ф,*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For ApplicationsВ*\G{9B5492B0-EC9A-11CE-935A-0800099EB3B7}#1.0#0#c+В€0* pH‚dф Project_dvb8@е = t  гУХ4( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE AutoРmation^€MSFo@rms>SFErm s/z€ p€F48FCE4A2-2F74-11D1-BA8CFA0C95E97BCF3.TWD#MicrosPoft = ` ObВ Libr8ary9P0r€PA73CC2P9249 P96Pc:\w€indows\€J@P\VBE\…(EXЇ(с.E р….`ŒM Д”‚Тљ2‚‘ThisDra@g 2Р0Thi€]Dra‚wРng@ЈHB1Т”ЋB,Bћ2"Щ8œKџџB:џ%dџўЭltџќјџџўЮџ"$ џ hlџ=tџ)џџ §oєў§k џџHџєўtџ Јєўќі$џ $џќ5q№ў€№ўєќЫѕЊьєыЖхp"џє џk"џє­ўcьў—"k џєБDџ%$џўЎєўBѕLџІ5єў%k џєБєЉDџ%$џўЎєўrU€€€ џџџџџџџџ$`§џџџџџџџџџџџprU€€€€~}  0y й 1ЩYєБDџ%$џўЎєўBѕ4џІ5єў%kџєБєЉDџ%$џўЎєўBѕ4џІ5єўєыѕ4џІ9џ4џMиў %LџMџ %џ"$ џ ,Qџxџџ xџ ˆ џdдўщ  џdьўДЈœ„‹ltџLџ$џxџ4џodџџџєўkЖџџџџџџџџ<џџРТ<ЇI’бК– Щ^—М^тќ‚а‰ч€_ТћКПТ<ЇI’бК– Щ^—Мџџџџџџџџџ8œKџџB:џ%dџўЭltџќјџџўЮџ"$ џ hlџ=tџ)џџ §oєў§k џџHџєўtџ Јєўќі$џ $џќ5q№ў€№ўєќЫѕЊьєыЖхp"џє џk"џє­ўcьў—"k џєБDџ%$џўЎєўBѕLџІ5єў%k џєБєЉDџ%$џўЎєўBѕLџІ5єўєыѕLџІ k џєЦаk џєЉџk"џє­ўcшўЭ"kџєБDџ%$џўЎєўBѕ4џІ5єў%kџєБєЉDџ%$џўЎєўBѕ4џІ5єўєыѕ4џІ9џ4џMиў %LџMџ %џ"$ џ ,Qџxџџ xџ ˆ џdшў+‹k џєЉџk"џє­ўcдў‹"kџЖџџџџџџџџџџџџџџџџџџџџџџxоpЖџџџџљ2§2џџџџŒжжаџџџџпџџ8џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@6 џџџџ ”џџ<\џџ<џџ< џџ<џџ<џџ<џџ ”џџZ<џџ<$џџ<(џџ<,џџ<0џџ<4џџrU€€€ џџџџџџџџ@prU€€€ ()Qџџџџй4yaЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@cedded Objectє9Вq€H€,Џ,5€ЅTahomaг(€VerticeИ=5€ЅTahomaг$  џџ}LџRу ‘ЮуЊKИQDBles daёos queиMla ejecuciѓn de este cѓdigo pueda ocasionar en el equipo,datos o aplicacionesи2instaladas previa o posteriormente a su ejecuciѓn.hZъ@Zъ`Zъ€ZЄЄъ˜ZЄЄъаZъZъ Zъ8ZъPиseleccionar entidadСШ  ЎSeleccione una polilinea !.B@0 2• 2B@4hџџpиbuscar vertices !6'& &ŠЄ Є'(и desde cada uno de ellos (origen)ї *іЄ (Є ‹ *Є$&Є+" *ЄЄ $&Є+"ЄЄ+"и/ hasta los siguientes no consecutivos (destino)и%el primero (cont+2 hasta nvertices-2) *Є•ї ,і *Є (Є ‹ ,Є$&Є+$ ,ЄЄ $&Є+$ЄЄ+$х " $ !8%:. B@<ї ,іРaџџ`и)los siguientes (cont+2 hasta nvertices-1)ї ,і *Є (Є ‹ ,Є$&Є+$ ,LџџџџLџџџџLџџџџџџџџLџџџџLџџџџLџџџџš"џџџџ<`џџF Ф=I ?СшSetCн=Р†›ёelSpace.,Ad‚тФi,@nst€Ю8Сp v.Up.dрAуJW Ђ hElsрm'L+u&1уD ?$- 1ƒ ?$aяЅ?$%?$.?$?$ $DoЂ&ЁEC Ѓ ЖџџџџџџџџџџџџџџџџџџџџџџџџxоЏѕ0 Ћџџџџƒџџџџџџpџџџџџџџџџџџџџџ0 Ћ$ „џџџџxџџџ $`„0џџџџ$џџџ џџK`„.џџџџdџџџ џџР „)џџџџtџџџшџџџџ$`„:Ј"џџџџџџџџџ`„>џџџџ џџџџџџџџџ`„Lџџџџџџџџџџџџџџџџџfpџџ џџ џџ@ўџhџџџ џџ џџџџ@ўџџџџџџџџ џџ џџџџ@ўџˆџџџ џџ џџџџ(ј!џџџџџџ „DџџџџLџџџШџџџџ „HА4џџџџџџџ№џџџџшџџџџџџџџџџџџа№џџџџџџџџџџџџџџџџџџџџ˜x џџџџиџџџџџџџџџџџџџџџџPШџџџџ€џџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџ8˜@ўџџџџџєўџџ џџ џџџџ@ўџџџџџ№ўџџџџ @ўџюўџџџџ џџџџ@ўџ8ьўџџџ џџџџP!џџџџџџ@ўџ`ъўџџџџ џџџџx8)џџџџ@ўџАшўџџџ  `)џџџ@ўџџџџџиўџџ џџ Ш`/џџ џџ@ўџижўџџџџ Šј№А2џџџџ@ўџџџџџдўџџџ и2џџџи8џџџџ:џџџџxџџџџ џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MEџџџџџџџџџџ ўЪ<€€ џџџџ€ Jш€ 28€ <p€ PА€ Tp€ 8€ џџџџ€ џџџџ"€ џџџџ€ €0€(€р€№€P€x€€€и€ џџџџ€ Xа2B˜р ши€ 8 ˆ И€ џџџџ€ &€"("%Hp€ џџџџ€ 68€ , ˜@"X %x 90  Р€ 0аА"€ %˜№9а  p `џџџџ(Хџџxlџџhlџџ`ZъxZъАZъаиbuscar verticesr Zъ˜иseleccionar entidadone unZъ№Zъ (!,'0Sele ( .ЎSeleccione una polilinea !$B@&!$и.Zъ ZЄЄъЈZЄЄъии desde cada uno de ellos (origen)№ >Є$0Є+D >ЄЄ $0Є+DLeЄЄ+Dї >іЄ :Є ‹ >Є•imoиel ultimo (+2)nt+2ї LіР n-1)и)los siguientes (cont+2 hasta nvertices-1)ahи%el primero (cont+2 hasta nvertices-2)ї Lі >Є :Є ‹ї >іРї LіР LЄ$0Є+HЄЄ+Hї Lі >Є :Є ‹.х D H !T%^.ЄЄ+Hџџџџ B@` B@`џџџџРх D H !T%^.Hџџџџ LЄ$0Є+Hлџџџџ LЄЄ $0Є+H LЄЄ $0Є+H 0ŠЄ Є':џџH џџџџ№џџџџhиCEsta aplicaciѓn genera el polэgono estrellado de cualquier poligono@и+el poligono inicial debe ser una LWpolyline<и5Desarrollado por Pedro Martinez G. para Computer 200000-0иJ Ni el autor ni Computer 2000 se responsabilizan de los posibles daёos queи2instaladas previa o posteriormente a su ejecuciѓn.и/ hasta los siguientes no consecutivos (destino)erиMla ejecuciѓn de este cѓdigo pueda ocasionar en el equipo,datos o aplicacionesLibrџџџџ`СШh f• fB@hfџџџџ  > p!t(f pB@z|!tџџџџиДAttribute VB_Name = "Module1" Option Explicit 'Esta a@aciѓn genera el polэgono estrellado de cualquiєer@i@Š\H in\al+be s'una LWNyline-DesarroRpor Ped€ro Mart €z G. pa„CompЬr 2ˆ0007 Ni˜ˆaut3ni j responsabiliza"nWlosTsibles daё)quBlrjestdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE AutoРmation^€MSFo@rms>SFErm s/z€ p€FBC2EB5C2-6CF9-11D2-9069FA0C9C911FDF3.TWD#MicrosPoft = ` ObВ Library90 €r€?A73CHC2A€:24‚?1 -BA96„?5E97BC…?c:\windows\€„P\VBE\…@EXЇ@с.E р….`Œ(M ДAŒB‡"ТљablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2O@ption /licit VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 435 ClientLeft = 45 ClientTop = 330 ClientWidth = 2220 StartUpPosition = 1 'CenterOwner TypeInfoVer = 2 End ўџ џџџџMicrosoft Forms 2.0 FormEmbџџџxњŠ8џџџџљ2ћ2џџ#ˆПТ<ЇI’бК– Щ^—МРТ<ЇI’бК– Щ^—МџџІђђџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{FCE25E01-1282-11D0-89E7-00805FC2FBBA}гУХ4$*\Rffff*f334c5c3eeпџџџџаўџџџџџџџџџ(џџџџџџџџџџLE$џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџй $‚ џџџџўџџџџџўџџџџџџџџџџџ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh˜@џџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџўЪ€€ џџџџџџџџХџџxџџџџpТАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{FCE25E01-1282-11D0-89E7-00805F€C2FBBA} |CreatrU€€€ џџџџџџџџ@prU€€€ ()Qџџџџй4yaЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@cedded Objectє9Вq€H€,Џ,5€ЅTahomaг(€VerticeИ=5€ЅTahomaг$  џџ}LџRу ‘ЮуЊKИQDBTahomaX‚$х€4TextBox1Ъj(ѕ€28Label1гjдџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $   a б ( y Й 8  б H`y’бК– Щ^—МИ}Иy’бК– Щ^—М И}Иy’бК– Щ^—МИ}Иy’бК– Щ^—МИ}Иy’бК– Щ^—М"žŒ—АдЮП-Њ?@аLabel1:\acad14\ACAD.TLB#AutoCAD Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE Automationр*\G{48FCE4A2-2F74-11D1-BA8C-00A0C95E97BC}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Libraryф*\G{A73CC2A2-9249-11D1-BA96-00A0C95E97BC}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM ДџџџџџџгУХ4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџљ2ThisDrawing f334c5c3ee*Dџџћ2џџModule1 f234c5c3ee*Dџџ§2џџџџаџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2B‰Th isDra@g 2Р0Thi@UDrawРngQ@HB1‚Œ?АB,BЈћ2"B+Bn€odule1 Њ2Dqo”u”1PFРЃM§2!HТЖџџџџџџџџџџџџџџџџџџџџџџџџxойЇџџџџљ2§2џџџџѕжж џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<< џџ<џџџџџџпАџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ2„ „џџџџџџџџX$ „џџџџџџџџxм Г$`„ џџџџџџџџ џџ „"џџџџџџџџША „$џџџџџџџџш`„&џџџџџџџџ џџL$Г`„(џџџџџџџџџџ`„*џџџџџџџџџџ`„,џџџџџџџџџџ @џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2„џџџџPџџhџџџџџџџџџ BѕLџІ5єўєыѕLџІ k џєЦаk џєЉџk"џє­ўcшўЭ"kџєБDџ%$џўЎєўBѕ4џІ5єў%kџєБєЉDџ%$џўЎєўBѕ4џІ5єўєыѕ4џІ9џ4џMиў %LџMџ %џ"$ џ ,Qџxџџ xџ ˆ џdшў+‹k џєЉџk"џє­ўcдў‹"kџєБDџ%$џўЎєўBѕ4џІ5єў%kџєБєЉDџ%$џўЎєўBѕ4џІ5єўєыѕ4џІ9џ4џMиў %LџMџ %џ"$ џ ,Qџxџџ xџ ˆ џdдўщ  џdьўДЈœ„џџџџџџџџџџџџџџџџџџџџџџџџџџМТ<ЇI’бК– Щ^—МџџџџОТ<ЇI’бК– Щ^—МџџџџџџџџHџџџџ0€BSџ. €џAs=€џDimD€џelseG€џEndU€џFor`€џift€џlineŠ€џon–€џPublicž€џresumeЅ€џSetЌ€џstopА€џSubГ€џThenД€џToИ€џUBound AutoCAD"ј VBAїтWin16С~Win32MacГВProject1  stdole“`MSFormsC Project_dvbЖ ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZ Module1bЌ(macro1еNpoliщШ€џAcadLWPolylineбverticez‰enidadvW€џUtility1J €џGetEntityˆentidad‘ЛДЫ €џCoordinates!kpunto}\verticesјёmatrix˜n €џџџ_B_var_matrixAщmatrizšn €џџџ_B_var_matrizCщ nvertices’Ш €џџџ_B_var_UBoundлdcont{П €џџџ_B_var_contЈ$ €џџџ_B_var_ForjLorigenВ’ €џџџ_B_var_origen destino}Р€џџџ_B_var_destinoФbucleК% €џџџ_B_var_ifPђdostinoZЃ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџх_{‡а{гj ЩЩ§џџџџч_{‡а{гj ЩЩ§џџџџџџџџH€ !џ˜(AutoCAD"јVBAїтWin16С~Win32MacГВ