SCU Général et rotation du réticule

[DaWeeD_Gab]

Bonjour,

je suis sur un dessin venant d'ailleurs et mon réticule reste en rotation malgré que je sois en SCU général...

Du coup lorsque je veux faire une polyligne en mode ortho, elle prend l'angle du réticule et non du SCG....

J'ai eu beau chercher dans l'excellent Top Quizz des galères Autocad de@rebcao ( merci encore !)

je n'ai pas trouver comment régler ce problème! 

Des suggestions?... une variable?..

En vous remerciant, bonne journée à tous !

David

[Olivier Eckmann]

Bonjour,

 

Regarde du côté de la variable SNAPANG

 

Olivier

[DaWeeD_Gab]

il y a 36 minutes, Olivier Eckmann a dit :

Bonjour,

 

Regarde du côté de la variable SNAPANG

 

Olivier

Merci beaucoup Olivier ! exactement ça, il y a avait un angle de 86 et des brouettes ! 

Pour aller un peu plus loin, ça peut venir d'où cet angle? une mauvaise définition du SCU ?

[Olivier Eckmann]

Justement, ça permet de travailler en SCU général (coordonnées vraies), puis d'aligner le réticule à l'horizontal pour facilement faire de l'ortho. Utile en topo.

 

Olivier

[DaWeeD_Gab]

Oui effectivement, je vois mieux l'utilité maintenant que je peux le modifier dans un sens puis l'autre . 😄

en te remerciant !

David.

[JPhil]

Un coup avec la commande REPERE pour remettre le SCU droit, nan ?

(Faire "REPERE" puis deux fois valider avec la touche "Entrée")

[DenisHen]

Salut.
J'avais écris un petit truc il y a bien des années qui résolvait ce type de problème, le voici :

;;;***************************************************
;;;    Variables type "Géomètre" + Rotation de vue    
;;;***************************************************
(defun c:DHOrientSCU (/ p1 p2 Echo vortho Angscu p3)
  (princ "\n\tDéveloppé par Denis H. (1.0)")
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (if (eval 'CleRegCerene)
    (CleRegCerene "DenisH")
  ) ;_ Fin de if
  (setq Echo (getvar "cmdEcho"))
  (setvar "cmdEcho" 0)
  (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O")
  (setvar "plinegen" 1)
  (command "_ucs" "_w") ;_ Fin de command
  (setvar "filedia" 1)
  (setvar "attdia" 1)
  (setvar "dimzin" 0)
  (setvar "angbase" (/ pi 2)) ; origine au nord
  (setvar "angdir" 1) ; sens horaire
  (setvar "aunits" 2) ; grade
  (while (and (/= p1 "Horizontale") (/= (type p1) 'LIST))
    (initget 1 "Horizontale")
    (setq p1 (getpoint "\nPoint de départ ou orientation [Horizontale] : ") ;_ Fin de getpoint
    ) ;_ Fin de setq
    (if (= p1 "Horizontale")
      (progn (initget 7)
             (command "-vue" "g" "h")
             (command "snapang" "100")
             (vlax-ldata-put "DenisH" "AngSCU" 0)
      ) ;_ Fin de progn
      (progn (setq vortho (getvar "orthomode"))
             (setvar "orthomode" 0)
             (setq p2 (getpoint p1 (strcat "\tDirection des X :")))
             (setvar "orthomode" vortho)
             (setvar "snapang" (angle p1 p2))
             (setq Angscu (- 500 (* 200 (/ (angle p1 p2) pi))))
             (if (<= Angscu 400)
               (- Angscu 400)
             ) ;_ Fin:if
             (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000))
             (vlax-ldata-put "DenisH" "AngSCU" Angscu)
             (command "_ucs" "_z" p1 p3)
             (command "_plan" "courant")
             (command "_ucs" "_w")
             (setvar "snapmode" 0)
             (setvar "cmdEcho" Echo)
             (command "zoom" "_w" p1 p2)
             (command "zoom" ".95xp")
      ) ;_ Fin de progn
    ) ;_ Fin de if
  ) ;_ Fin de while
  (vla-endundomark doc)
  (princ)
) ;_ Fin de defun

Mais attention, il faut bien analiser le code, il initialise beaucoup de variables, pour être conforme aux variables d'un géomètre (le NORD en haut, on passe en grades, dans le sens horaire...)...
Cordialement.

Denis...