[Résolu] Coordonnées de l'écran "Objet"

[DenisHen]

Bonjour à tous.

 

Pour les besoins d'une routine que j'écris, j'ai besoin des coordonnées des points des extrémités de l'écran de l'espace objet.

 

Je pensais utiliser EXTNIM et EXTMAX, mais j'ai découvert que ce n'est pas ce que je cherche.

 

Si quelqu'un a un conseil, une astuce... je suis preneur...

[bonuscad]

Bonjour,

 

Si j'ai bien compris ton besoin, tourne toi vers les variables VSMIN et VSMAX (ViewScreen Min et Max; pour la mémo technique)

Attention valeur dans le SCU courant...

[(gile)]

Salut,

 

En faisant une recherche avec SCREENSIZE VIEWSIZE VIEWCTR, les 3 variables systèmes nécessaires au calcul des coordonnées de la vue courante, j'ai trouvé ce sujet.

[DenisHen]

Bonjour Bonuscad.

 

C'est exactement ça. Mille mercis... ;)

[DenisHen]

Salut (gile).

 

Merci pour ton aide, j'ai trouvé ce que je cherchais dans ton lien...

 

Encore merci à vous deux...

 

Denis...

[(gile)]

Attention VSMIN VSMAX ne retourne pas la même chose que la routine de VDH-Bruno.

 

Compare :

(apply 'command (cons "_rectang" (cooraff)))

et :

(command (getvar 'vsmin) (getvar 'vsmax))

[DenisHen]

Merci (gile), mais je n'ai pas besoin d'une grande précision pour mon code, c'est pour faire un "foliotage" des géocartes.

 

Ceci me suffit :

  (setq screen     (getvar "screensize")
       ratio      (/ (car screen) (cadr screen))
       cen        (getvar "viewctr")
       cen        (trans cen 1 0)
       angle_rad  (getvar "viewtwist")
       angle_rad  (- (* 2 pi) angle_rad)
       h          (getvar "viewsize")
       w          (* h ratio)
       BasGauche  (polar (polar cen (+ angle_rad pi) (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2))
       BasDroite  (polar (polar cen angle_rad (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2))
       HautDroite (polar (polar cen angle_rad (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2))
       HautGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2))
 ) ;_ Fin de setq