Sélection d'une fenetre spécifique (viewport) dans une présentation (layout)

[Iu63]

Bonjour,

J'ai un problème avec la sélection d'une fenêtre (parmi 3) dans un layout via lisp. En effet à chaque fois, il vient me sélectionner la même fenêtre ( peut importe que je mette viewport 1,2, ou 3 etc...) cependant il comprend bien qu'il y a plusieurs fenêtres.

voici le lisp :
 

(defun c:select-vp ()
  ;; Sélectionner tous les viewports dans le layout actif
  (setq ss (ssget "X" (list (cons 0 "VIEWPORT")
                            (cons 410 (getvar "CTAB")))))
 
  (if ss
    (progn
      (setq num (sslength ss))
      (princ (strcat "\nNombre de viewports trouvés : " (itoa num)))

      ;; Demander à l'utilisateur de choisir un viewport
      (setq vp-index (getint (strcat "\nSélectionnez un viewport (1-" (itoa num) ") : ")))

      ;; Vérifier si l'index est valide
      (if (and vp-index (> vp-index 0) (<= vp-index num))
        (progn
          ;; Définir le viewport actif
          (setvar "CVPORT" vp-index)
          (princ (strcat "\nViewport " (itoa vp-index) " activé."))

          ;; Passer en espace objet
          (command "_MSPACE")
        )
        (princ "\nIndex invalide.")
      )
    )
    (princ "\nAucun viewport trouvé.")
  )
  (princ)
)

 

[(gile)]

Salut

Pour qu'une valeur supérieure à 1 passée à CVPORT soit prise en compte, il faut appeler la commande _MSPACE avant d' modifier la valeur de CVPORT.

Si la valeur de CVPORT est égale à 1 c'est le viewport de la présentation qui est actif, autrement dit, on est en espace papier.

(defun c:select-vp (/ ss num vp-index)
  ;; Sélectionner tous les viewports dans le layout actif
  (setq ss (ssget "X" (list (cons 0 "VIEWPORT")
                            (cons 410 (getvar "CTAB")))))
 
  (if ss
    (progn
      (setq num (sslength ss))
      (princ (strcat "\nNombre de viewports trouvés : " (itoa num)))

      ;; Demander à l'utilisateur de choisir un viewport
      (setq vp-index (getint (strcat "\nSélectionnez un viewport (1-" (itoa num) ") : ")))

      ;; Vérifier si l'index est valide
      (if (and vp-index (> vp-index 0) (<= vp-index num))
	(progn
	  (if (= vp-index 1)
	    (command-s "_PSPACE")
	    (progn
	      ;; Passer en espace objet
	      (command-s "_MSPACE")

	      ;; Définir le viewport actif
	      (setvar "CVPORT" vp-index)
	      (princ (strcat "\nViewport " (itoa vp-index) " activé."))
	    )
	  )
	)
        (princ "\nIndex invalide.")
      )
    )
    (princ "\nAucun viewport trouvé.")
  )
  (princ)
)

 

[Iu63]

Merci pour ton retour, cependant, il y a encore des présentations ou cela ne fonctionne pas, voici ce que me renvoie autocad :

Commande: SELECT-VP
Nombre de viewports trouvés : 2
Sélectionnez un viewport (1-2) : 1 (ici que je mette 1 ou 2 j'ai toujours le même viewport de sélectionné qui correspond au dernier viewport sur lequel je suis allé)

Je precise que sur ma page de presentation(layout)j'ai deux viewport (2 fenêtres de presentation)

Exemple : admettons que je rentre dans l’espace objet du viewport 2 manuellement sur autocad, lorsque je vais lancer la commande, même si je spécifie 1, il va me sélectionner le 2 ème viewport.
Y'a t'il un moyen de forcer le truc avec ActiveX ou autre chose ?

[(gile)]

Utilises-tu le code que j'ai posté ?

Parce que si tu as créé deux fenêtres flottantes dans ta présentation, le nombre de viewports trouvés devrait être 3 (la fenêtre de la présentation (N° 1) et les fenêtres flottantes (N° 2 et N° 3).

Si tu veux que la routine ne prenne pas en compte la fenêtre de la présentation, tu peux faire comme ça :

(defun c:select-vp (/ ss num vp-index)
  ;; Sélectionner tous les viewports dans le layout actif
  (setq	ss (ssget "X"
		  (list	(cons 0 "VIEWPORT")
			(cons 410 (getvar "CTAB"))
		  )
	   )
  )

  (if ss
    (progn
      (setq num (- (sslength ss) 1))
      (princ (strcat "\nNombre de viewports trouvés : " (itoa num)))

      ;; Demander à l'utilisateur de choisir un viewport
      (setq vp-index (getint (strcat "\nSélectionnez un viewport (1-" (itoa num) ") : ")))

      ;; Vérifier si l'index est valide
      (if (and vp-index (<= 1 vp-index num))
	(progn

	  ;; Passer en espace objet
	  (if (= (getvar 'cvport) 1)
	    (command-s "_MSPACE")
	  )

	  ;; Définir le viewport actif
	  (setvar "CVPORT" (+ vp-index 1))
	  (princ (strcat "\nViewport " (itoa vp-index) " activé."))
	)
	(princ "\nIndex invalide.")
      )
    )
    (princ "\nAucun viewport trouvé.")
  )
  (princ)
)