Aller au contenu

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


DaWeeD_Gab

Messages recommandés

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

Autocad Map 3D 2024 - Covadis version 18.1 - Windows Onze

"Si j'avais du lard je vous ferais une omelette au lard mais j'ai pas d'oeuf..."
Coluche

Lien vers le commentaire
Partager sur d’autres sites

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 ?

Autocad Map 3D 2024 - Covadis version 18.1 - Windows Onze

"Si j'avais du lard je vous ferais une omelette au lard mais j'ai pas d'oeuf..."
Coluche

Lien vers le commentaire
Partager sur d’autres sites

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

en te remerciant !

David.

Autocad Map 3D 2024 - Covadis version 18.1 - Windows Onze

"Si j'avais du lard je vous ferais une omelette au lard mais j'ai pas d'oeuf..."
Coluche

Lien vers le commentaire
Partager sur d’autres sites

  • 1 mois après...

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité