Rotation de SCU

[DenisHen]

Bonsoir à tous...

 

J'ai écris ce soir une petite routine ( pour géomètre ) qui fait :

 

- sens des angles = horaire

- axe des Y = NORD

- unité angulaire = Grade, trois décimales

pour les principales; les autres sont plus du gout de l'utilisateur

- taille et style des points...

 

Mais le plus important, en cliquant deux points (la direction des X du plan pour la présentation et la rotation des écritures)

- modifie l'angle de vue

- modifi l'angle du curseur ( parallèle à l'écran).

 

Tout-çà pour garder le SCU général ! ! Très important, non ?

 

L'avantage de cette manipulation, c'est que la fenêtre texte ne défile pas des lignes et des lignes comme avec les deux "menus" que j'avais avant :

[Convention topo]^C^C-unites;2;2;3;2;0,0;@0,1;O;pdmode;32;pdsize;.1;PLINEGEN;1;-couleur;ducalque;^C^Cfiledia;1;attdia;1;-typeligne;a;ducalque;;ecrangra;_ucs;_w;^C
[Orientation du plan]^C^C_ucs;_z;\\_plan;courant;_ucs;_w;resol;r;\\;in;

Et je ne clique plus que deux points, avant, c'était 4...

J'aimerais le perfectionner pour poster une routine plus "propre"...

Alors, si vous avez des remarques... Allez-y à coeur-joie ! !

 

(defun c:OrientSCU ();    Variables Géomètre + Rotation de vue
 (setq Echo (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O")
 (setvar "pdmode" 32)
 (setvar "pdsize" 0.1)
 (setvar "plinegen" 1)
 (command "-couleur" "ducalque")
 (setvar "filedia" 1)
 (setvar "attdia" 1)
 (command "-typeligne" "a" "ducalque" "")
 (command "_ucs" "_w")
 (setq p1 (getpoint "\nPoint de départ : "))
 (setq VOrtho (getvar "orthomode"))
 (setvar "orthomode" 0)
 (setq p2 (getpoint p1 (strcat "\nDirection des X :")))
 (princ "\nOrientation : ")
 (setvar "orthomode" VOrtho)
 (setvar "cmdecho" 1)
 (setvar "snapang" (angle p1 p2))
 (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000))
 (command "_ucs" "_z" p1 p3)
 (command "_plan" "courant")
 (command "_ucs" "_w")
 (command "resol" "r" p1 p2)
 (setvar "snapmode" 0)
 (setvar "cmdecho" Echo)
 )

 

Il est 1h du matin... Je n'ai pas relu à fond le code...

 

Merci...

 

Denis...

[DenisHen]

J'ai oublié ! !

 

J'ai rajouté çà pour l'utiliser pour écrire des texte horizontaux...

 

(vlax-ldata-put "Phalene" "AngSCU" (angle p1 p2))

 

Denis...

[(gile)]

Salut,

 

Si ta routine fait ce que tu désires, tu as déjà fais le plus gros.

 

Le reste n'est qu'une question de style, et ça, c'est plus personnel.

 

Pour faire "plus propre", j'essayerais de supprimer le plus de "command" possible, en les remplaçant par des "setvar" :

 

pour :

(command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O")

vois les variables ; LUNITS,LUPREC,AUNITS,AUPREC,ANGBASE et ANGDIR.

 

(command "-couleur" "ducalque") -> CECOLOR

 

(command "-typeligne" "a" "ducalque" "") -> CELTYPE

[Patrick_35]

Pour faire "plus propre", j'essayerais de supprimer le plus de "command" possible

 

Ouf, je ne suis pas le seul ;)

 

@+

[DenisHen]

Merci à tous les deux...

 

Je vais chercher à faire pour le mieux...

 

Celà vaux t'il que je la poste dans "Pour aller plus loin" ? Où il n'y a que moi qui puisse utiliser cette routine ?

 

Merci encore...

 

Denis...

[DenisHen]

Par contre, j'ai un petit problème,

 

(vlax-ldata-put "Phalene" "AngSCU" (angle p1 p2))

 

Stock bien mon angle... Mais quand je le lis dan d'autres routine pour définir l'angle d'un texte, ce dernier devrait être horizontal dans le sens de la lecture (de gauche à droite). Mais dans mon cas, il est bien horizontal, mais à l'envers, il est à +200gr ou -200gr ! !

 

Comment je peut m'en sortir ?

 

Merci,

 

Denis...

[(gile)]

Salut,

 

La valeur retournée avec (vlax-ldata-get "Phalene" "AngSCU") devrait être toujours la même, je pense que le problème vient plutot de la manière dont elle est utlisée.

[DenisHen]

Salut (gile),

 

Le simple fait que t'arrive et Hop ! ! Comme par magie, c'est réparé...

 

En recopiant le code pour te le poster, j'ai vu ça ! ! !

 

  (if (= (setq rot (getorient p1 (strcat "\nOrientation du texte :"))) 0 )
   (setq rot (vlax-ldata-get "Phalene" "AngSCU"))
   )
   (setvar "orthomode" VOrtho)
    [surligneur](if (not rot) (setq rot (getvar "snapANG"))) [/surligneur] 
     (command "_-mtext" "_none" p1 "j" Just "h" (/ (* Haut Ech) 1000.0) "_r" (polar p1 (+ rot (/ pi 2)) 1000) "_w" "0.00" Texte "" ) ;_ Fin de command

Je ne sais pas pourquoi, mais sans cette ligne (qui devait fonctionner) ça a l'air d'aller mieux...

 

Mais merci quand même ! !

 

Denis...