Récupérations des coordonnées de l'emprise d'une présentation

[lecrabe]

Hello @Olivier_CEA_Grenoble

Au fait as tu recu mon courriel dans ta messagerie One Spatial ?

Ou aussi dans la messagerie cadxp.com ?

La Sante, Bye, lecrabe

 

[Olivier_CEA_Grenoble]

Du coup ça donne ça:

	(setq ListeOutLay (layoutlist))
	(while (/= ListeOutLay nil)
		(if (/=  (minusp (min (nth 0 (getvar "EXTMIN"))(nth 1 (getvar "EXTMIN")))) nil)
			(progn
				(command "_move" "tout" "" (strcat (rtos(nth 0 (getvar "EXTMIN"))) "," (rtos(nth 1 (getvar "EXTMIN")))) "0,0")
			)
		)
		(setq ListeOutLay (cdr ListeOutLay))
		(command "zoom" "ET")
	)

Merci a tous et bonne continuation