pivoter presentation

[Big666]

bonjour

 

Comment faire pivoter une fenêtre d’une présentation dans l’onglet présentation, et que le plan dans l’espace papier reste a ça place.

Pour les plans topo par exemple.

 

merci

[t.erie]

Bonjour, tu entre dans la fenêtre pui tu fais une rotation par l'axe des Z puis la commande REPERE si la variable UCSFOLLOW est à 0.

 

[jalna]

Salut!

Commande MVSETUP

Regarde dans rotation de la vue

[rebcao]

Bonsoir,

 

c'est pas le jour du poisson ! ça fait rien , voici une SARDINE pour optimiser tout ça...

 

^C^CUCSFOLLOW;0;_ucs;_Z;PRO;\PRO;\_plan;C;expert;2;_-view;SA;ORTHO;

 

Christian

[lesourd2]

Saut

 

Sinon il y a aussi ceci:

 

 ;;permet de pivoter une fenetre dans l'EP
(defun c:frv (/ ACDOC CENTRE-FENETRE CUSTOM-SCALE ENT-FEN FENETRE HAUT LARG
NEW-TARGET REPERE-FEN-ACTIVE TARGET TWIST-ANGLE VLA-FENETRE)

(vl-load-com)
(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))

(if (= (vla-get-ActiveSpace AcDoc) 1)
(princ "\n ** Cette commande n'est valable que dans l'espace papier. **")

(progn
(if (= (vla-get-Mspace AcDoc) :vlax-false)
(progn
; selectionner une fenêtre
(while (not (and (setq fenetre (car (entsel "\n Sélectionner une fenêtre :")))
(or (equal (cdr (assoc 0 (entget fenetre))) "VIEWPORT")
(equal (cdr (assoc 0 (entget (cdr (assoc 330 (entget fenetre)))))) "VIEWPORT")))))
(setq ent-fen (entget fenetre))

(if (not (equal (cdr (assoc 0 (entget fenetre))) "VIEWPORT"))
(setq fenetre (cdr (assoc 330 (entget fenetre)))))

(setq vla-fenetre (vlax-ename->vla-object fenetre))

(vla-put-Mspace AcDoc :vlax-true) 
(vla-put-ActivePViewport AcDoc vla-fenetre) 
)
(progn
; selection fenêtre active
(setq vla-fenetre (vla-get-ActivePViewport AcDoc)
repere-fen-active "OK")
)
)

;; Centre de la fenêtre dans le SCG
(setq centre-fenetre (getvar "VIEWCTR"))

(vla-put-Mspace AcDoc :vlax-false)

(setq Haut (vla-get-Height vla-fenetre)
Larg (vla-get-Width vla-fenetre)
custom-scale (vla-get-CustomScale vla-fenetre)
Twist-Angle (vla-get-TwistAngle vla-fenetre)
Target (vlax-get vla-fenetre 'Target))

;; Calcul de la nouvelle cible en fonction de la rotation
(setq new-target (polar centre-fenetre (+ (angle centre-fenetre Target) (/ pi 2))
(distance centre-fenetre Target)))

(vla-put-TwistAngle vla-fenetre (+ Twist-Angle (/ pi -2)))
(vla-put-Target vla-fenetre (vlax-3d-point new-target))
(vla-put-Height vla-fenetre Larg)
(vla-put-Width vla-fenetre Haut)
(vla-put-CustomScale vla-fenetre custom-scale)

(if (equal repere-fen-active "OK")
(progn
(vla-put-Mspace AcDoc :vlax-true)
(vla-Regen acDoc acActiveViewport))
)
)
)
)

 

@+

[didier]

Hello

 

au risque de passer pour un

1 - benêt

2 - andouille

3 - bêta

4 - demeuré

(rayer la mention inutile, ou aucune)

qui ne comprend pas les questions

 

pourquoi ne pas redimensionner la fenêtre

par un simple ETIRER des coins de la fenêtre et changement de SCU ?

 

c'est manuel, mais on a la main sur les opérations !

 

amicalement

 

[Big666]

 

bonjour

 

pour UCSFOLLOW est bien à 0.

pour MVSETUP ça fonctionne a peut près, bien sur le plan topo et dans des coordonners lambert et il mais dificille de le mêtre horizontal dans longlet presentation.

donc?

merci pour votre aide

[(gile)]

Salut,

 

Cette question a été souvent posée, une recherche t'aurait fait trouver plusieurs réponses.

Les plus récentes : ici et là.