ࡱ> `8E75D913-3D21-11D2-85C4-080009A0C626}*SB$*\Rffff*18425e9550 ($Hhrr $0- $f8 $8 $( $X $Xo ^CompObj`aVBFrame[:Module1*Root Entry`ADVBA_Project  :`AVBA_Project_Version(VBA' :' : $> !"#9&'()*+,-./012345678M:;<=?@ACDEFGHIJKLPNOQRSTUVWXYZ[\]_abcdefghijklmnopqrstuvwxyz{|}~ } !"#$%&'()+,-./0123456789:;<=>?@BCDEFGHIJKLMNOPQRSTUVWXYZ\]^_acefghijkmnrpqstuvwxyz{|~$*aGRASH. qhj ZtuQha;jdfn[iaetr #$,j(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1<+/IH28C4C820-401A-101B-A3C9-08002B2F49FB loT@ ame="ACADProject" HelpConteID="{91622CB1-B711-4F5A-B70D-9708DFC4B7AD}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-0PROJECTwm\PROJECT ThisDrawingA{_VBA_PROJECTB- dirUserForm1 ۅ:ۅ:PROJECTlk$flrU~~~~~~~~~~~~g     a 0AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" CMG="7D7F880978827C827C827C827C" DPB="FAF80F908D918D918D" GC="7775821782E9FEEAFEEA01" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=-111, 66, 524, 544, C Module1=-73, 139, 562, 617, C UserForm1=9, 17, 781, 675, , 141, 146, 749, 727, C isDrawingThisDrawingModule1Module1UserThisDrawingThisDrawingModule1Module1User0* pHd ACADProject8@ = t  *SB( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms/4| rG73A615C7-9C64-4679-B18713AA269D45G4.TWD#Microsoft > b Ob LibraryG:Q0Q91A669`-C6E1QV7AD-B0BB9EB48992QDOCUME~1\demo\LOCALS@Tem@p\VBE\E,exdf,.E .`(M AzActivePara mX>,A"civ~ParmX]@{5DFD650B3-FF44B9-A546-2E083800DF0D}p#1.9_Composant PI@OR pour le p'trage G@.0@ .845F3F33-2F9A-4C1A-BCFF-178981CC8ADC.c!J2EXD#i2 loT@@ 3 MSDlg>,@`C@`mD`rg1z` !C8`.29B-D8L48EB-BA20-76639FDA133zA!21e `mon Dialog Control 6.0 (SP6)@h0 `5 979B2.4588-453B-AEv0805237F2C0B{a%.a/Gx<+/I/F ctl~>b/clLPib 0}`a2B4D7073-`GC-4AC4-B9BD-5038563A4FB`|1.340 L0Windows/mA1d0s 5020`0dF`4F/D5`9A@x4`BEE277B2881@f0G 1_c~k B*C1ݢS1Ma 2L2C608C5E-FABA8D-9983-676DEE7F871Ԉ_2bsb@yI0 B5EBE9CC-A31cBEFmF-4BE600E7C289ccccn> \ @uMrprThisDra wing 2UTiP|DrewA4ngTHR1BpA,R" +Rodule12To "u0e1J4! pUser02uAU e L (^ \ @uMrprThxp4J (6 "<*SB"*\Rffff*e425e7d48$*\Rffff*17425e9550 `p|kp$$$hP@ME" 0lpX B@8nam NAttribute VB_Name = "Module1" Sub picador() UserForm1.Show End D .A%3"D.v-Ĩ7u!= &<nIMBS^-u!= &w*eIlA[xZ8p#w*eIlA[nIMBS^-v4(SLSS6"N0{UserForm1%'F__SRP_2d__SRP_3b__SRP_0__SRP_1__SRP_6__SRP_7@__SRP_5 $ $  $0 $` $ $`8h@ttMExAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz2 ClieVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Interface PICADOR-AUTOCAD v1.0" ClientHeight = 7275 ClientLeft = 45 ClientTop = 435 ClientWidth = 7815 StartUpPosition = 1 'CenterOwner TypeInfoVer = 39 End  Microsoft Forms 2.0 FormEmbedded Object9q+/I90~uM`rU $`p$rU~}  H"$$ k8 9  <  `_<[( '}5 2<km loT@ ؗA2i1ũ0N3}Kׁ`H{@L <+/I<+/I90~uM0rU  !I"   Y1 Y $pParamX16T $CommonDialog1+-28C4C820-401A-101B-A3C9-08002B2F49FB$ ; Image216$ j Image11& $j Image31i$j Image41%$j Image51!$j Image61$j Image71O$j Image81*@ 2  Image91l0Transfert vers Autocad( <ComboBox1log"j$j Image10*P(2@Label10$<TextBox1 (Form1UserForm12<Label2x1x $<TextBox2(2<Label3x2vDAH !L Pa)`Ta!`1Xa9`q\a``ai`da `1ha `qlapa `ta x! "|aQ` o???0   0 0  0   0 `  0   0 p  0 (  0   0   0 (  0   0   P*Fd%,5d2x\`"$ 4` Tl\`dTD<@lxiD%`"$ 4` P@ x><1t)`@,',ltFDNdd`! ` `6d, xfTL<<`"$ ` xl<@! @ /<)`@P(t <`@d,\PTX|` d h p @w $X   ! !1B  $@tt8MExAttribute VB_NamrU @prU "#491aVcion = "UserForm1" ClientHeight = e = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz2p#RXrYF.}VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Interface PICADOR-AUTOCAD v3.0" ClientHeight = 7275 ClientLeft = 45 ClientTop = 435 ClientWidth = 7815 StartUpPosition = 1 'CenterOwner TypeInfoVer = 31 End 9A0 Microsoft Forms 2.0 FormEmbedded Object9q$H( }5 2<km loT@ ؗA2i1ũ0N3}Kׁ`H{@L <+/I<+/I90~uM$pParamX1r6`,@CommandButton1< T $CommonDialog11+-28C4C820-401A-101B-A3C9-08002B2F49FB( 8CmdImportlog`-x-,8CommandButton3%z-$ ; Image21r6$ j Image11r& $j Image31ri$j Image41r%$j Image51r!$j Image61r$j Image71rO$j Image81r*$2  Image91rl0( <ComboBox1tto"O$j Image10r*PDProject ThisDrawing5 _Evaluate4  8!9!< Y!@1Y 0 `   6Form1UserForm1tt8ME__SRP_4oZ N0(kGŧ>g/)HOBmQ+L% MRK=d)ISۓ/9xp) p=d)ISۓ/9N0(kGŧ>g)=48<@DHLPTX\`dhlptx|`SPSSS<*<<<<< <$<(<,<0<4<8<<<@(`| eB`| e~(i Fx `x|je $X$$$i i (($H`|JFF0`p(x (($$$$   `Nx  ($$`p`ri P``t$$$88pXTJ@Pd @ ` @\ @X @T h@D @@ @< @, (@@@(x 8@h th00XHh00XHh00XHh00XHh((!x !p !z|XX @ h  @`+  -  -  xAttribute 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 = "UserForm1" ClientHeight = 6600 ClientLeft = 45 ClientTop = 435 ClientWidth = 7710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 6 End  Microsoft Forms 2.0 FormEmbedded Object9qp WG _extentx4 WG _extentyE* E5i(txtoutilvisu epz,chkdrawlabelnum :S$chkrecadrer l $txtfichier )̳$txtxgrille )$txtygrille )7 chkgrille [chkorigine ( parcourir ...ezuTahoma !C4OO<B APicador (*.des)|*.des;*.cf2;*.nH,,5Tahoma (ImporterM uTahomaer (Fichier Picador5Tahomaer  } 5z-<km loT@ ؗA2i1ũ0N3}Kׁ`H{@L <+/I<+/I90~uM8$pParamX1r,@CommandButton1e"T $CommonDialog11elX28C4C820-401A-101B-A3C9-08002B2F49FB$4TextBox1,8CommandButton2e+(2@Label1x1O( 18 H Xpen 9h !1x 1,#FcHC[f~E*e4X_$L<(;YH#JĢ;ȏ[qJ eUserFormV;EG>^" F3Dynamic  ؗA2i1ũ0ParamX1xLL)3  y{lFWJOCommandButton1!-6S` q yCommandButton2<+/I CommonDialog1;jN?Q i(ҋB `TextBox1CommandButton1_ClickCommandButton2_Click T VBA332.DLLHDXN&|O> G 8 F Pu!= &kcSLb*~:u!= &RXrYF.}Xh{ _ AcadDocument @(x`5%^I`5u!= &)u!= &)i9OS`FW[`5VXwaOMy #=h8+3q1G?,2qL1qUhF3SB4U"-?@Label1lC:I*m I   AcadPicPen X I 0!Iʕk#`@'|U,erys5H,)6'Jٟ?oKJN>2,&fA+mMkpB*9F|H ka^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#d:\ACAD2000\ACAD.TLB#Bibliothque de types AutoCAD 2000*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation*\G{73A615C7-9C64-4679-B184-4713AA269D45}#2.0#0#C:\WINDOWS\System32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{91D45669-C6E1-46C7-97AD-B0BB9EB48992}#2.0#0#C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{DFD650B3-FF30-44B9-A546-2E083800DF0D}#1.9#0#C:\WINDOWS\System32\ActiveParamX.TWD#Composant PICADOR pour le paramtrage *\G{845F3F33-2F9A-4C1A-BCFF-178981CC8ADC}#1.9#0#C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\ActiveParamX.EXD#Composant PICADOR pour le paramtrage  loT@ *\G{C883829B-D869-48EB-BA20-76639FDA133A}#1.2#0#C:\WINDOWS\System32\MSComDlg.TWD#Microsoft Common Dialog Control 6.0 (SP6)*\G{5979B21A-4588-453B-AE79-0805237F2C0B}#1.2#0#C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\MSComDlg.EXD#Microsoft Common Dialog Control 6.0 (SP6)<+/I*\G{2B4D7073-ADCC-4AC4-B9BD-5038563A4FB2}#1.3#0#C:\WINDOWS\System32\ComctlLib.TWD#Microsoft Windows Common Controls 5.0 (SP2)*\G{FFB24F79-0D5C-49A9-A4BD-BEE277B28815}#1.3#0#C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\ComctlLib.EXD#Microsoft Windows Common Controls 5.0 (SP2)c~k B**\G{2C608C5E-FAB4-4A8D-9983-676DEE7F8716}#2.0#0#C:\WINDOWS\System32\MSComctlLib.TWD#Microsoft Windows Common Controls 6.0 (SP6)*\G{B5EBE9CC-A311-4BEF-9C6F-4BE600E7C289}#2.0#0#C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\MSComctlLib.EXD#Microsoft Windows Common Controls 6.0 (SP6)\ uM*SBpThisDrawing 18425e9550*DModule1 e425e7d48*D48 JUserForm1 17425e9550*D8=X8 l'- mMVe`?OKj}Չ2[K~l%?And asCallCase=dimDelseGEndHendifUForZFunction`ifyLong|MenotorPrivateReturnthenTowith AutoCAD" VBAWin16~Win32MacProjet1 stdole` MSFormsC ACADProject ThisDrawing5 _Evaluate AcadDocumentZ Module1b(picador# UserForm1) ActiveParamXUserFormNParamX1",CommandButton1|CommandButton1_ClicklineObjmAcadLinee startPointendPointy ModelSpace_AddLine8ZoomAllm$ClickShow _B_var_CallMSComDlgW CommonDialog1 TextBox1SShowOpen~fichier6FileNamejRefreshCommandButton2}CommandButton2_Clicki`pel[compte{ _B_var_ForjLGetCode _B_var_ifPGetX 4 p X @  @| `Wf!H ƒr!z  x 0X pME B  0   ` P X x     "    (   h* 8@    * ( X0 " 4\V\V  &98080h($3X@    *$  @$9@P  GetY _B_var_GetYx1_ _B_var_x1fxc_xoyl_B_var_yaX_B_var_aGetDirery_ _B_var_ryGetDim`pi^CosOSinColor2FredacRed _B_var_Select'EGetStylo Linetype acMagentaZacYellowacCyanpacGreenbacBlue}Label1,kb_B_var_k ic] _B_var_icMip]   "   "  6 9X   (  "      x  " (  "    h  x      " P  X " 0  @ 8 " 0      "       " ` p  h " : 2h D ,  @ <P  X >B@BZZZ- Define the start and end points for the lineY@+,EY@+,E+,@+.E@+.E+. Create the line in model space , . !0%2.(A@4 >!F "(D >!F "(D "B@H0lZZZ- Define the start and end points for the line r{Gz? hhh  ((~ HQHQHQHQHQHQHQHQ  ((~ Create the line in model space , . !0%2.(A@4ZxnHQ N P N N7'  "5R'P  ((~l N7v'rlineObj.Linetype'  ((~  ((~ N7'h f r l$z +,E h r l$| +,E+, f r l$z +.E h r l$| +.E+.  ((~  ((~  ((~Z A@tseHQSEGMENTfHQ N7V'   iX $ ((~Typ ' 'lineObj.Linetype5 ' 'HQ ' 'HQ 'HQHQkZHQZHQZZ0HQZH r'kp 'Z N7p'lt     !0%.P f+E h+E+ l  'l '   l  ' l 'da N7p 'lt v@ F v@ 'g Ul  'a $ (~k B$F@'BTh8Z {Gz? r{Gz? X v@Zah`l "B@H%( $ (~   !0%.l(Z8hl 'Nh8 @!f "(D "B@Hl A@tZplx llA@( >!F @(f >!F "(D "B@H "(* "B@, "B@H 0 (. (.l0l "B@4l "B@< "(* "B@H "(*l "B@@llA@H "B@HD "!D "B@D "B@P "B@H "!DZ- @!f$t'pugIn 3 l!f$t'r0 N7Z p 'fAuto N7\ r 'h(T NPicado !h! J(f` N !!\ ` JB@^ N %!'`0 "(*bpb >!F - Picador-Autocad PlugIn v1.0 (TbSans Nom - Picador-Autocad PlugIn v1.0 (T0e@Z!p H Attribute VB_Name = "UserForm1" " Bas0{1A29F02F-BBF5-48D5-9F4F-42FB1FFD6DCB}{254C2B51-0AD4-4DE8-9599-5288B8DCD34B} dCreatabliFalse PredeHclaIdTru "Expose@TemplateDerivCustomibzD P Function AcadPic@Pen(pes Integer) As Long Select C =1&lacRed 'lin@eObj.Lt\ypz!2!Y`ellow3Magenta- 4 5 Cy,an6 Bl Ar47 Gree8a End `L p uSub Impor`ter()AA#Dim ^th`1arceArRcciClnAstartPoint(0 To 2DouendCn-XRadiusA)Ang`n@VIvx0 Sia, yxG@aryJoG iAj, pelpao, icdegradAI= Val(TextBox1.@AA 2 = Atn(1) / 45# If ParamX1.fichier <>@ "" ThXWxith= .comptF i3AF``GetCode(id! p.Stylfo@(("@Odr c5)Rgip x$ X + x0AyDYCyP@co iDma e1 'SEGMENT/!Abs(ry) > 0.011% Ea$Dira* = ' Def the "lL a@(`y p~s foraB5)x@+`$* Cos(a):c `6= yr = 0RF- ' r~e in m+l pspac.0\tX=@isDraRwH.MS.(Add!Z(,  1T^.Col<}ipdIfb(Xqy$]r: swh_= /qavoD-]_@2ao2A,3$yey >= 360#6.Set s-OlFt(, tOn(OES<6//q a:ao -{(} oTGo -2O 97= a S A:&o?/"$""p",SA#Z##jq% N iIQComm@iButton3@_ClickqUnloM`X4Im1WonDialog1. ShowOMeP.Cap=PkmBmGFileb& " P%ado@r-AutoW PlugIn v1.0pMiRePr!r%Refresh} 0 G6Dlg t5p`2?WI NMouseRfm `Cross9  Ʊ False ParamX1.ZoomAvantRefresh Me.MousePointer = 0 End Sub  `rivate Image4_Click()Imprimx(fichier#J5JDlgMiseEnPj6=Stylo.sMtD7%FiHltri""tRecad = Tlru"393or ll Unload M*UUserForm_ActDim i As Long layStrixCaption@w"Sans Nom" & " - Pi4or-Auto@ PlugIn v1.0" = 1 To ThisDraw.Layers.Cou E (i1).Nam6 ComboBox1.AddItem (@@XNext i TA=eBHJ s;*.cf2;*.n .! R KQlt;BM;6(a4########(&"'"')$"%"%,")&)&+)p WG _extentx5 WG _extenty+ E5i(txtoutilvisu epz,chkdrawlabelnum :S$chkrecadrer l $txtfichier )̳$txtxgrille )$txtygrille )7 chkgrille [chkorigine!C4OO<B APicador (*.des)|*.des;*.cf2;*.n .! R KQlt;BM;6(a4########(&"'"')$"%"%,")&)&+)  1  U   : K?Kn  0& V CjZ+/4 S&}B w& P  9j @ ) {y< 0k/ %"/ATVVSI;-$     "% \r8řջ浜㱔͹ٹ作ܸ̙# 8͑Kw bfdjӲd꾕blеƒrouwim!تqνt]۬w೒vbf soYύ%۽콅fjٜpsȗ-\\r Ņ z*de€3—Ol gУglhYYhl guǏAдnZୌƀ@derpu"zm RkӣI޶fdϜ_ xf̷ciݣq_wneڭx^lԦa͚njLS}pmflpdњ`jiÍص~s`ժwԛnrc֬{໗cjϝe T КbfX \lbghwfjϧgjcđ໑gjќ_ˏDl_۸޽ikʔP &- رázgjДMel޻ƘIjdŴfm.zgbҬŦne~&B  s liᴐojŋZd̡kbkΠ[cnݿКdhf߾М`jg߿ѠbmjңmpmÜ .R KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` .R KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` .jR KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @`  .5R KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` .OR KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` .NR KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` .OR KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` .=R KQltBM6(""ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @`AH,1 ,5Tahoma .R KQlt6BM66( ʦ @ ` @@ @@@`@@@@`` `@`````` @` @` @` @`@@ @@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @` @` @` @ ` @@ @@@`@@@@`` `@`````` @` @` @`@@@`@@@@@ @ @ @@ `@ @ @ @ @@@@ @@@@@`@@@@@@@@@`@` @`@@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@ @` @ ` @@ @@@`@@@@`` `@`````` @` @` @`*LayeraY@Tahoma@H,E,05Tahoma*X>@Tahoma @H,E,05Tahoma*Y>@Tahoma B `TextBox2Label3a:S]@E$~ q! Label1TextBox1   - Picador-Autocad PlugIn v1.0nIMBS^-w*eIlA[_B_var_ipZ AcadPicPenx_B_var_AcadPicPenpricate _B_var_pricatepen] ACAD_LAYER%arcObj_AcadArcAddArc_CenterW;RadiusV startAngle|/endAngle` _B_var_Centerdegrad(deg* _B_var_deg;@arctan _B_var_arctaneratanL _B_var_atanBAtnQuGetAng_oU _B_var_piV _B_var_Returnao\circObj? AcadCircle,elseEnd AddCircle _B_var_SetImage1_CommandButton3~ Image1_Clicktext1~ _B_var_text1BTextBox1_Change= ReturnBooleane TextBox1_ExitYCancelChange_B_var_i ValueK CmdImportCmdImport_ClickCommandButton3_ClickFA TabLayersC AcadLayer _B_var_AcadLayerLayers _B_var_LayersS AcadLayersOItemzUserForm_ClickUserForm_ActivateZsActivate| ComctlLibn MSComctlLibmImage2`Image3aImage4bImage5cImage6dImage7eImage8fImage9g Image2_Click= Image3_Click.uRecadrerI ZoomAvantV MousePointertfmMousePointerCrossZ Image6_Click, DlgFiltresparmx1 _B_var_parmx1/ Image7_Click1tFiltrer/ Image5_Click DlgMiseEnPage Image4_ClickImprimer) Image9_ClickImporter= ComboBox1'Image10G Image10_Click DlgStylos+7_B_var_TextBox1/+Captionxappt _B_var_app1PlugInCount0vAddItem laylcombox1+_B_var_combox1/Layer ActiveLayer>Label2,TextBox2SLabel3,x0_y0N_Val< 6rU ,`!&($)`$i`$`$`$)`$i`$`$`$) `$i `$ `$  `p@a9`qDaQ`Hai`La `1Pa `qTaXa ` \ `q`1QY 0 `dA h lp ta)` m???  pz kz*  kzB  kzZ  kzr  kz  kz  kz  kz  $ (`9 F@t*! a h`# =/5X! Qah"q5ldM@9`Up5@;`Up5kkkA@=`*t5@>`*t5@?`*t5kp kto{Gz?o"@@`*ot5!m toooX!m toooXX!m tooo@!m tooo@@9@M %XM %"$  Qx|l|x T? k?@@`*t5m(m((mr @A`*t5$o{Gz?o{Gz?=ov@w3m (M %"$  Qp|l|p T;o oot ot ootov@ov@t oot oot9mmm (M %"$  |Qt|l|t T f| `XXjep@(xt0   x! xx6x! xah`#d*FT%,/dx6hT9x! xah`FT%P! P, h)xP6hTc@%x! x, hxx! x&`x<$ dxPhT0   <  $ 0 (  0   0   0 (  X:h %x!  x,`xch%x!  x, hxx!  x&`x X$ xl8"$ lx"$ xe8$ xP*Fd%,5d2x\`"$ 4` Tl\`dTD<@lxiD%`"$ 4` P@ x><1t)`@,',ltFDNdd`! ` `6d, xfTL<<`"$ ` xl<@! @ /<)`@P(t <`@d,\8t<@DH L P X `wK)^rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~z dZBrBBjjN  a a a )" Aa 1Y! i  ThisDrawingModule1 UserForm1 ACADProjectFAC:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA332.dllVBA ! IW &d:\ACAD2000\ACAD.TLBAutoCAD Ai(0FC:\WINDOWS\System32\stdole2.tlbstdole 98sdyFG&EC:\WINDOWS\System32\MSForms.TWDMSForms 1yH.E .`M iVԑF .C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\MSForms.exd 9yXP0DF.8 $C:\WINDOWS\System32\ActiveParamX.TWD ActiveParamX  !yh loT@ 3?_/L̊ 3C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\ActiveParamX.EXDCommandButton12ҋB ` ! IyxiH vc:  C:\WINDOWS\System32\MSComDlg.TWDMSComDlg aQ <+/IyYE;Ey#, /C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\MSComDlg.EXD y Q  spM+̭JP8V:O !C:\WINDOWS\System32\ComctlLib.TWD ComctlLib a Q  c~k B*yO\ Iw CommonDialog1;jN?Q 0C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\ComctlLib.EXD y Q  ^`,Jgm #C:\WINDOWS\System32\MSComctlLib.TWD MSComctlLib  I \ uMKoK‰ 2C:\DOCUME~1\demo\LOCALS~1\Temp\VBE\MSComctlLib.EXD I picador oǮJga[x@v݀M +(}y.vHk!:JU&yG@}$jl 5kFk 0<+/I YL&i eImage1!-6S` yImage2Image3Image4Image5Image6Image7Image8Image9{lFWJOCommandButton3ȏ[qJ eUserForm2o-Dt@ڨC F3Dynamic y  ؗA2i1ũ0ParamX1xLL)3 Y y0 CmdImport ComboBox1Image10 AcadPicPenImporterCommandButton3_Click Image1_Click Image10_Click Image2_Click Image3_Click Image4_Click Image5_Click Image6_Click Image7_Click Image9_ClickUserForm_Activate Text  - Picador-Autocad PlugIn 3.0u!= &!@u!= &!a#=h8+3qPG?,2qL  VBA332.DLL YI ` YG x YF u!= &.A%3"D.v-Ĩ7u!= &Yؚ:K BXh{ _ AcadDocument @(x`5%^I`5W[`5 Sans NomJ.ko\BZ%$f5ɨ WG!D!Mi  c()`5O />O׾R$3ҋB `n{ H$cBkVDM-@tQGhFnBSbBdi@)v2    aaaJ\$dC4=B3 f@VaVG3\ZGH}]e3B? pj).`iY]UMSqX>@'3JV3uV9ȓFVBR) n FNe-s. hHIGcII&D Y ` xB Nm9N0(kGŧ>g/)HOBmQ+L% MRK=d)ISۓ/9"-?@Label2ҋ