Bonjour  tous,

J'ai travaill sur une nouvelle version de mon utilitaire LISP (scan2dat.lsp) dans le but de supporter des formes plus complexes et de permettre un meilleur contrle de la distribution des points.

Etant donn que mon utilitaire remplace favorablement l'ancienne version et couvre la fonctionalit existante, je vais garder le mme nom.

Cet utilitaire sert donc  crer des fichiers DAT  partir d'un dessin AutoCAD pour des "formes complexes". Il faut slectionner successivement une srie de LINE/SPLINE/PLINE. Pour complter une forme complexe (avec segments de droite, changements brusques de direction, arrondis, etc), a prend un ensemble de LINE/SPLINE/PLINE mis bout--bout qui forme un circuit ferm. Si l'utilitaire est appliqu sur un seul segment il est prfrable que la courbe soit "Closed" donc un SPLINE ou PLINE uniquement; il faut exclure le LINE dans ce cas-ci.

On charge l'utilitaire dans AutoCAD avec la commande APPLOAD ou avec la commande suivante:
(load "scan2dat"). Il faut ensuite invoquer la nouvelle commande SCAN2DAT.

Pour chaque segment de la forme, on peut specifier le nombre de points et demander l'inversion de la direction des points; les points seront rpartis uniformement sur ce segment. Pour chaque segment, des MARKERs apparaissent aux points gnrs. Le rond indique le point de dpart et le carr indique le dernier point. Ceci pour vous aider  identifier s'il faut demander l'inversion de ce segment.

Note: quand on dessine la forme dans AutoCAD, il est bien plus simple de la crer dans le sens o l'on veut la coupe. Si ce n'est le cas, on peut quand mme inverser la direction des points de chaque segment grce  l'utilitaire scan2dat.

Au nom du fichier de destination et location, sera automatiquement ajout l'extension .DAT.
L'usager peut choisir s'il veut que les coordonnes soient normalises (reduction  chelle 0-1 en X et  droite de l'origine).


Comme exemple, j'inclus ici un dessin AutoCAD R14 avec une couple utilis dans la fabrication d'un Hawker Hunter. La forme est prte pour utilisation optimale de ma nouvelle fonction. Dans cet exemple, l'ordre de slection des courbes suit l'ordre des couleurs; Rouge, Jaune, Vert, Magenta. Et aucun segment n'a besoin d'tre invers.

Les couples doivent avoir le mme nombre de points. Il vous faut aussi jumeler les segments d'un couple  l'autre. Dans l'exemple fourni, donnez le mme nombre de points aux arcs de cercle - disons 50 - et le mme nombre de points pour les petites bases - disons 5. Il faut aussi faire attention  la densit des points pour ne pas causer un bouchon et rduire la vitesse de croisire ou dpasser la vitesse maximale. Si le point 23, sur le premier couple passe  un segment diffrent sur le second couple, il est fort probable que la vitesse maximale de dplacement soit dpasse.

Dans CNC,  moins de dessiner une section d'aile, dactivez le mode "Tronon d'aile" dans les Paramtres du tronon, ceci est aussi connu sous le nom de "forme complexe".

L'utilitaire interagit en anglais et en franais. L'ajout de langues additionnelles serait trs facile.

J'aimerais maintenant remercier Daren Anguelkov et Claude Blanger pour la validation et les commentaires constructifs qui ont permis cet ralisation.

J'attends donc de vos nouvelles et  fond la dcoupe!

Louis Dionne
dionnel666@hotmail.com
Manotick, ON
Canada

==================================================
Voici une exemple d'une session avec l'utilitaire
==================================================

Command: (load "scan2dat")
C:SCAN2DAT

Command: scan2dat

Enter language of choice (E/F) <E>: f

Language utilis: "Franais"
scan2dat v1.03
Production d'un fichier de format DAT  partir d'une Line, Pline ou Spline.
(C) Copyright 2003, Louis Dionne, 2003/01/19 [dionnel666@hotmail.com]

Cet utilitaire permet de gnrer un fichier format .DAT  partir de plusieurs 
Splines ou Plines bout  bout.
Pour de meilleurs rsultats, utilisez une courbe ferme  l'origine.
Chaque courbe peut tre inverse.
Tout l'ensemble peut tre normalis entre 0-1 en x.
Avec normalisation, la courbe est recentre verticalement sur le point le plus 
 droite.

Entrez le nom du fichier de destination (sans extension): Shroud

Dsirez-vous avoir des markers ? (O/N) <N>: o

 - Marker   : Oui
Choisissez la courbe Line/Pline/Spline  transcrire en Dat:
 - L'Entit est Ouverte.
Entrez la quantit de coordonnes que vous dsirez produire <100>:10

 - Nombre de points: 10
Dsirez-vous inverser la direction de la courbe ? (O/N) <N>:
nilNon
Ajout\eXit <X>:a

 - Selection: Ajout
Choisissez la courbe Line/Pline/Spline  transcrire en Dat:
 - L'Entit est Ouverte.
Entrez la quantit de coordonnes que vous dsirez produire <100>:2

 - Nombre de points: 2
Dsirez-vous inverser la direction de la courbe ? (O/N) <N>:
nilNon
Ajout\eXit <X>:a

 - Selection: Ajout
Choisissez la courbe Line/Pline/Spline  transcrire en Dat:
 - L'Entit est Ouverte.
Entrez la quantit de coordonnes que vous dsirez produire <100>:10

 - Nombre de points: 10
Dsirez-vous inverser la direction de la courbe ? (O/N) <N>:
nilNon
Ajout\eXit <X>:a

 - Selection: Ajout
Choisissez la courbe Line/Pline/Spline  transcrire en Dat:
 - L'Entit est Ouverte.
Entrez la quantit de coordonnes que vous dsirez produire <100>:2

 - Nombre de points: 2
Dsirez-vous inverser la direction de la courbe ? (O/N) <N>:
nilNon
Ajout\eXit <X>:

 - Selection: eXit
Dsirez-vous normaliser les coordonnes (entre 0.0-1.0) ? (O/N) <O>:

 - Normalize: Oui
Entrez le texte pour la ligne de commentaire dans le fichier: Fan Shroud

124.188        0.5           Normalis: 1.00000000       0.00000000
121.728        16.0281       Normalis: 0.97552826       0.15450850
114.591        30.0362       Normalis: 0.90450850       0.29389263
103.474        41.1531       Normalis: 0.79389263       0.40450850
89.4656        48.2906       Normalis: 0.65450850       0.47552826
73.9375        50.75  	     Normalis: 0.50000000       0.50000000
58.4094        48.2906       Normalis: 0.34549150       0.47552826
44.4013        41.1531       Normalis: 0.20610737       0.40450850
33.2844        30.0362       Normalis: 0.09549150       0.29389263
26.1469        16.0281       Normalis: 0.02447174       0.15450850
23.6875        0.5           Normalis: 0.00000000       0.00000000
31.3125        0.5           Normalis: 0.07587065       0.00000000
38.9375        0.5           Normalis: 0.15174129       0.00000000
40.6505        11.3156       Normalis: 0.16878629       0.10761786
45.6219        21.0725       Normalis: 0.21825279       0.20470133
53.365         28.8156       Normalis: 0.29529867       0.28174721
63.1219        33.787        Normalis: 0.39238214       0.33121371
73.9375        35.5          Normalis: 0.50000000       0.34825871
84.7531        33.787        Normalis: 0.60761786       0.33121371
94.51          28.8156       Normalis: 0.70470133       0.28174721
102.253        21.0725       Normalis: 0.78174721       0.20470133
107.224        11.3156       Normalis: 0.83121371       0.10761786
108.938        0.5           Normalis: 0.84825871       0.00000000
116.563        0.5           Normalis: 0.92412935       0.00000000
124.188        0.5           Normalis: 1.00000000       0.00000000
Nombre de points gnrs: 25

Fichier Shroud.dat sauv.
- Fin -
