|
|
|
|
|
|
|
|
|
version 6.0
dr_LIRE REGLE (zone; unitéBase; unitéEchelle; valeurBase; valeurEchelle; divisions)
| Paramètre | Type | Description | |
| zone | Entier long |  | Zone 4D Draw |
| unitéBase | Entier |  | Unité de base |
| unitéEchelle | Entier | | Unité de l'échelle |
| valeurBase | Numérique | | Valeur de base |
| valeurEchelle | Numérique | | Valeur de l'échelle |
| divisions | Entier | | Nombre de subdivisions |
Description
La commande dr_LIRE REGLE retourne dans les variables unitéBase, unitéEchelle, valeurBase, valeurEchelle et divisions le formatage de la règle pour zone.
unitéBase peut avoir trois valeurs qui sont :
• Pouces = 1
• Points = 11
• Centimètres = 6
unitéEchelle indique l'unité prise par l'échelle. La liste des unités et de leur code est fournie à l'Annexe E, Codes d'unités.
valeurBase et valeurEchelle indiquent le rapport existant entre une longueur et sa représentation sur la feuille de dessin soit : 1 unité de base correspond à valeurEchelle/valeurBase exprimé dans l'unité de l'échelle.
divisions indique le nombre de subdivisions à l'intérieur d'une graduation.
Exemple
L'exemple suivant affiche la valeur courante de l'échelle.
TABLEAU ALPHA(20;TabUnit;11)
TabUnit{1}:="Pouces"
TabUnit{2}:="Pieds"
TabUnit{3}:="Yards"
TabUnit{4}:="Miles"
TabUnit{5}:="Millimètres"
TabUnit{6}:="Centimètres"
TabUnit{7}:="Décimètres"
TabUnit{8}:="Mètres"
TabUnit{9}:="Décamètres"
TabUnit{10}:="Kilomètres"
TabUnit{11}:="Points"
dr_LIRE REGLE (LaZone;$BaseUnit;$EchelleUnit;$BaseVal;$EchelleVal;$Divisions)
$Temp:=" L'échelle courante est de :"+Caractere(13)+"1"
$Temp:=$Temp+TabUnit{$BaseUnit}+" = "+Chaine($EchelleVal/$BaseVal)+" "+TabUnit{$EchelleUnit}
ALERTE($Temp)
Référence
|
|
|
|
|
|
|
|
|