ࡱ                >  	                                                                         ACADProject     ThisDrawing  	   Fen_SPlit             F  /   C:\PROGRA~1\FICHIE~1\MICROS~1\VBA\VBA6\VBE6.DLL     VBA
  
)         	   Q            `               aE1F@u  ?   C:\Program Files\Fichiers communs\Autodesk Shared\acax17enu.tlb     AutoCAD
  
!             I            p               0           F     C:\WINDOWS\System32\stdole2.tlb     stdole     Label7  ҋB
  `
  
A             i                           .E
.`M     C:\WINDOWS\system32\FM20.DLL     MSForms
  
a      a                                      HiG:GOm<  ,   C:\DOCUME~1\dv\LOCALS~1\Temp\VBE\MSForms.exd
  
A      a             i                         c+6A^Aߙ9  5BaM4`  T74*EC(eĆ	  \܌2N@N*MDr  >3HwJ)$"Iȅ  "ҋB
  `     ListBox_Liste_Des_Points  !-6S  `	
  
Y                         R o o t   E n t r y                                                                               k    B      V B A _ P r o j e c t                                                                      @N` k            V B A _ P r o j e c t _ V e r s i o n                           (                                                 V B A                                                                                      0zg k                              
   	   "          
         %                        1               2             !   #   $   .   &   '   (   )   *   +   ,   -      /   0   3                        	         
                                                          !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /   0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?   @   A   B   C   D   E   F   H   I   J   K   L   M   N   O   P   Q   S   T   U   V   W   X   Y   Z   [   \   ]   ^   _   `   a   b   c   d      f   g   h   i   k   m   n   o   p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~                  a c                                                 ID="{4CAACE6A-427C-40D1-87BF-476CD7576571}"
Document=ThisDrawing/&H00000000
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=Fen_SPlit
Module=Split
Name="ACADProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="73718110F014F014F014F014"
DPB="E6E414A5F46B666C666C66"
GC="595BAB4CAC4CACB3"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDrawing=0, 0, 0, 0, CF e n _ S P l i t                                                                             0zgp            P R O J E C T w m                                                                                     
   V       P R O J E C T                                                                                                  f                                                                                                       F      
Fen_SPlit=44, 58, 895, 483, , 22, 29, 873, 454, 
Split=88, 116, 939, 541, Z
i s D r a w i n g   Fen_SPlit F e n _ S P l i t ThisDrawing T h i s D r a w i n g   Fen_SPlit F e n _ S P l i t rU              ~  ~  ~  ~  ~  ~  ~  ~o      
   	           	        	                    	                    	            (        		      	      8        	      	      H        	      	      X        	9      	      h        	      	      x o                                                                   	                                       l          C o m p O b j                                                  
                                       j   d        V B F r a m e                                                                                       e   :      T h i s D r a w i n g                                                                                      ]      F e n _ S P l i t                                                 
                                                   _ _ S R P _ 5                                                                                           	      _ _ S R P _ 4                                                                                                        S p l i t                                                                                                                 T      Library/ ; D1u00}t#0# k04 	K*m                                            rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~@         	                    g@,#,C? 	            
             	      
       	      I      y              	                                                               	                             "-  ?@     TextBox_Caract_Delimiteur     TextBox_Numero  	   TextBox_X  	   TextBox_Y  	   TextBox_Z     TextBox_Code_point  ȏ[qJ  e     UserForm  Ccy/bEOc䍵  	   F3Dynamic
  
I	            q	                     {lF  WJO     BTN_Lecture_Fichier     Label2     Label3     Label4     Label5     TextBox_Nom_Fichier_Points     Label6     BTN_Quitter     Label8  
   Label_info     Label9     Label10     BTN_Selection_Fichier     TextBox1     8 ) )        BTN_Lecture_Fichier_Click     BTN_Quitter_Click     BTN_Selection_Fichier_Click     ListBox_Liste_Des_Points_Click  
                u s e r s 1         YjAk,_  
,AIȧ  zyL$jq#  £3|F05~  KLI#s\     AcadDocument  
  @              ( s e t v a r        " u s e r s 1 "      ( g e t f i l e d     8   " S e l e c t i o n   d ' u n   F i c h i e r   T X T "      " c : "   
   " t x t "   ҋB
  `  @   A u c u n   f i c h i e r   n ' e s t   s  l e c t i o n n  .   #ҋB
  `     VBE6.DLL
                
        S        
        ; @         x   I l   f a u t   a u   m i n i m u m   4   c a r a c t  r e s   d  l i m i t e u r   d a n s   c e t t e   c h a i n e      
   4   p o u r   e x t r a i r e   l e s   d o n n  e s .   ^   V o u s   n ' a v e z   d  c l a r    a u c u n   c a r a c t  r e   d  l i m i t e u r .   ƏYl|  
         `        VպGOY*Nz  A;OCNG?Ð  ._L2XNJ6  LhIIwe0  :#IFQd
  
            q	                       Module1     Split  
b&BKZ   !MIE'Lj  $r"u?Mݖ  
ROfS5s  {;"mEHef
  
a            q	                        FE6D OCUME~1\ dv\LOCALS     0*	 pH  d   ACADProject 8  @
=
t
	G( J<
 rstdole>s t d o  l e 
 h %^ *\G{0 0020430-; C 
00 46}#2.0# 0#C:\WIN DOWS\Sys@tem32\e2 .tlb#OLE  Automation 0  MSForms>  S F Fr m s 3	  ED452 EE1-E08F-101A-8  -02608C4D0BB4EsE FM20.DLL #Microso(ft : ^ Ob Library/ ; D1u00}t#0# k04 	 A48 99E3A9-9986-476@A3A@4F6D@3CE8FE6D OCUME~1\ dv\LOCALSTemp\VBE\S.exd:@  .E
 .`(M  "!¢Th isDrawinPgG Ti jD r a w  i n g 
2  HB1  B        G                        !  T h i s D r a w i n g  0 C 4 7 d a 8 2 e 4  T h i s D r a w i n g 1m             F e n _ S P l i t  0 I 4 7 d a 8 2 f 8  F e n _ S P l i t e         ^  
 S p l i t  0 H 4 7 d a 8 2 f 8 B
 S p l i t $      0     P  0       JAd%   o08M5x}   L36DD{E'Q	   0        >@  -        SubAutoCAD" VBA Win16~ Win32 Mac VBA6# ACADProject stdole` MSFormsC ThisDrawing5 	  _Evaluate 	Fen_SPlitZN BTN_Lecture_Fichier_ClickL 	Ligne_Lue3  RTrim TextBox_Nom_Fichier_Points2  ValueK  MsgBoxR ListBox_Liste_Des_Points  Clear  EOF  AddItem  BTN_Quitter_Clicko	 BTN_Selection_Fichier_Click  hide9z  SetVariable?R  SendCommandc  GetVariable~  Show ListBox_Liste_Des_Points_ClickVW Tableau_PointsDU Taille_Maxi_TableauA TextBox_Caract_Delimiteur/ (   Split)  List* 	 ListIndexQ TextBox_Numero 	TextBox_X 	TextBox_Y 	TextBox_Z® TextBox_Code_pointA8  vbCr$  SetFocus AcadDocumentZ UserFormN BTN_Lecture_Fichier Label2, Label3, Label4, Label5, Label6, Label7, BTN_Quitter} Label8, 
Label_infoR Label9, Label10@ BTN_Selection_FichierT TextBox1S    Click  _B_var_RTrimr Module1b 
  _B_var_Sub `       C 	             6                                                      H        Zk  1    	    As  =                       !$                                                                                        x                                       ME                    (     6
    <     <     <              8   B 0                %   B   `            |                          8   8                         G $ * \ R f f f f * 0 H 4 7 d a 8 2 f 8                                                               "         	      
       	            (   8     o p     B@8    X     J Attribut e VB_Nam e = "Spl it"
Sub ,()

   Fen_SPA x.ShowTEnd  P
gne   _B_rU                    	              $        `           $ A      `           $       `           $       `                 n          List* 	   ListIndexQ  TarU                    	       	                                                                                                                                                                                                                                                                                                                                                                                                                      9              4         a                    `       8                               <               	                @               I                D               q                H                               L                               P                               T   	      A     )	         
 X   	            
               `	       \               A
                `               Y
                d               q
                h               
                l               
                p               
               
 t   	            
              `I       x                               |               1                               Q                               i               
    	                          `                                         s      W                   X    t        4 @              `              <       C           !1m  #                 
,AIȧzyL$jq#                 0     t  ^  t  X        !e                     !MIE'Lj$r"u?Mݖ\܌2N@N*MDr   
ROfS5s               x   
ROfS5s !MIE'Lj    ME                   @ @   SP   S   S   S    6"    <D     <     <     <     <      <$     <(     <,     <0     <4     <8     <<     <H     <L     <P     <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <        0 { 7 5 2 2 7 2 2 4 - 3 F 0 1 - 4 D E 4 - A 4 0 3 - D 5 C F C F D D 9 6 D 2 } { B 5 8 C D C 5 C - 4 E 3 2 - 4 0 B 9 - 9 C 4 E - 1 E 2 A 4 D 4 4 7 2 9 9 }    0  X     `            @           `x         ,    `                        .    `            @@  
 
 #     : `            @  ! ! -     `<l        `>j        x   p  H             %     x            %   X                              %                  %                      H     x                        G $ * \ R f f f f * 0 I 4 7 d a 8 2 f 8        4         8         <         @         D         H         L         P       T         X         \         `         d         h         l         p         t         x         |                                                                                                    N "        	              	      	        9     * + (      X       `    	      	 $   h    	       
      	      	 "       	        .     	        
     
 	     	      $     	           	       
     	        (   	     "   0   	         8   	         @   	     "   H   	       
 
 P     `   v I x    -     
 
    	           	     "       	          (       0_ V B A _ P R O J E C T                                                                               R   
      d i r                                                                                                G         _ _ S R P _ 0                                                                                              g
      _ _ S R P _ 1                                                                                            N         	        * 8     u H   	        h   	       x   	      /     /     /     /     /          $     $     $     $     $     l 4      x   	           : +    
     	            	                  ] @     !  $       a   Aucun fichier n'est slectionn.A@" KȎ|     k         vidage de la liste des points"  $B@&  	C    Lecture du fichier de points:؎4w  !        &b  $ (  b b     	W    $B@*        V  o    X     g    o           B@0    users1     B@2   (setvar   "users1"  
 (getfiled    "Selection d'un Fichier TXT"   "c:"   "txt"    8))    B@4   users1  % 6 '   B@8        o        ]   ] 0    @!         $! F  $% D   @$ B ' <  <   ' >      >           $ < ' H  ,B 1m"B"+B 	Fe n_SPlitG n _ Pi@	2	IO ^O eC (  !Sp b
 S p2 0$!(
b                    am     	               * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P R O G R A ~ 1 \ F I C H I E ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l   B a s i c   F o r   A p p l i c a t i o n s             * \ G { 8 5 1 A 4 5 6 1 - F 4 E C - 4 6 3 1 - 9 B 0 C - E 7 D C 4 0 7 5 1 2 C 9 } # 1 . 0 # 0 # C : \ P r o g r a m   F i l e s \ F i c h i e r s   c o m m u n s \ A u t o d e s k   S h a r e d \ a c a x 1 7 e n u . t l b # A u t o C A D   2 0 0 8   T y p e   L i b r a r y              * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ S y s t e m 3 2 \ s t d o l e 2 . t l b # O L E   A u t o m a t i o n              * \ G { 0 D 4 5 2 E E 1 - E 0 8 F - 1 0 1 A - 8 5 2 E - 0 2 6 0 8 C 4 D 0 B B 4 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ F M 2 0 . D L L # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y             * \ G { 4 8 9 9 E 3 A 9 - 9 9 8 6 - 4 7 6 9 - 9 A 3 A - 4 7 4 F 6 D 3 C E 8 F E } # 2 . 0 # 0 # C : \ D O C U M E ~ 1 \ d v \ L O C A L S ~ 1 \ T e m p \ V B E \ M S F o r m s . e x d # M i VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Fen_SPlit 
   Caption         =   "Utiliation de la fonction SPLIT"
   ClientHeight    =   6285
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7905
   StartUpPosition =   1  'CenterOwner
   TypeInfoVer     =   48
End
       
                     Feuille Microsoft Forms 2.0    Embedded Object     9q                                           (     Lecture fichier L      u          Tahoma   ( (     Nom du fichier POINTS         5           Tahoma         H,x3      5           Tahoma         H,	      5           Tahoma         H,	      5           Tahoma         H,	      5           Tahoma         H,	      5           Tahoma    (     XQRr      5           Tahoma   (     YQRr      5           Tahoma   (     ZQRr      5           Tahoma   (     Codei      5           Tahoma     (     Liste des POINTS      5           Tahoma    (     Quitter       u          Tahomar   @    H,  "  {  ;QR  5           Tahoma   $ (     Caractre dlimiteur
      5           Tahoma   L )     5  Clic sur la ligne du point
pour extraire ses donnes   7  i    u          Tahoma    (     NFr      5           Tahoma         H,	      5           Tahoma   l (   [  Structure du fichier point = <N du point>;<Valeur X>;<Valeur Y>;<Valeur Z>;<Code du point> 1      5           Tahoma   $ (     Slection fichier urh      u          Tahoma   H @    H/  )  "  Les Cahiers d'AutoCAD N 37 
www.lcautocad.com           @       Tahoma    `        x    5           Tahoma                                             0    }  x6  N+                    0        @      BTN_Lecture_Fichierr%&      (        2   H     Label2        8        4     TextBox_Nom_Fichier_Points        (   	     4     TextBox_X PO   #    (   	     4     TextBox_Y PO       (   	     4     TextBox_Z PO       0     	   4     TextBox_Code_pointrr   _    (     
   2   4     Label3        (        2   4     Label4    E    (        2   4   	  Label5    y    (     
   2   4   
  Label6  D  2     (        2   @     Label7    6    (        8   
  BTN_QuitterO,  -'    8        <     TextBox_Caract_Delimiteurs    q    (        2   D     Label8        ,   
     2   l     Label_inforOY  l    (        2   4     Label9  n  K    ,        4     TextBox_NumeroTS       (        2        Label10       4        D     BTN_Selection_Fichier   (       $        p     TextBox1  5%    4        4     ListBox_Liste_Des_Points                                                                 Split S p l i t                                               c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y              .E
.`M           
   $ < ' J    $ < ' L    $ < ' N    $ < ' P  d       ' H   ' J   ' L   ' N   ' P < Il faut au minimum 4 caractres dlimiteur dans cette chaine  R   pour extraire les donnes. A@"     k    d x    / Vous n'avez dclar aucun caractre dlimiteur. A@"         @B@T        k     o         u Attribut e VB_Nam e = "Fen _SPlit"
"

Bas0{ 75227224 -3F01-4D E4-A403- D5CFCFDD 96D2}{B5 8CDC5C-4 E32-40B9 -9C4E-1E 2A4D447299}
dGlobalSpaco FalseCr@eatablPredecla DId Tru
BE`xpose0T emplateDerivCustomizDP   Sub BT N_Lectur e_Fichie r_Click( )

Dim  Ligne_Lue As S ng

If  RTrim(Te xtBox_Nom"Points.Value) " Then
"   Msg "Aucun f;  n'est slGionn. ExitA+ 
End If' vidag e de la lis@des vpL%e _Des_%Clear> duF!Open 7 For InHputAH#1AD o WhiNot EOF(1S!2Line#1,WFC.AddItedE
LoopCl  JxM|Quitt3KzYndASegMe.hidThisDr awing.Se tVariB"u sers1", "Cw
ndCommay"(setvar " &`"(getf+d d'@JADY TXT"#""c:Ftxtd8)) Xs:G(;Sh\ow(:
nT%aNuUaJ'ntqT aille_Maxi_DaInt8egeZ seVCaract_lim iteur#r <>`*(rl= Sp (6QIndex),g.`&W= UBound(`Kp!>= 4(cBR%<`umero:
-(v0iX%yYU2	Z3Code_4EaNEkeAa	źIl fa au minimum 2c"Qr@dQ dans ce chaC`{vbCr~pour @rairP^aaesapB`aa&Vous`eavez dv a2gp1@+LFocusE>hR                                                             £3|F05~               x                                       ME                    (    SL   S   S    <       N 0 { 7 A A B B B 9 5 - 7 9 B E - 4 C 0 F - 8 0 2 4 - E B 6 A F 2 7 1 2 3 1 C }        (                  %        `               %                 %   `                          h   8           @        0   G                                                                   x      Attribut e VB_Nam e = "Thi sDrawing"

Bas 0{7AABBB 95-79BE- 4C0F-802 4-EB6AF271231C}
|@GlobalSpacFalsedCreatablPredeHcla Id Tru
BExposeTemplateDerivBustomizD2                                   