\"PAN\" dans plusieurs fenetre en meme tps

[PHILPHIL]

hello

 

est il possible par LISP de faire un "pan" ( determiné ou pas ) dans plusieurs fenetre a la fois

 

ma methode actuelle est :

3 à5 fenetre par presentations

"eo" pour entre dans une fenetre

"pan" et tout la tatoin pour me deplacer dans la fenetre

"control+R" pour passer a la fenetre suivante

"pan" et tout la tatoin pour me deplacer dans la fenetre

5 fois .......

 

est ce qu'il serait possible de selectionnner les 5 fenetres et que le LISP face un "PAN" ( determiné) dans chaque fenetre l'une apres l'autre ???

 

peut etre que ce LISP existe déja ??

 

a+

 

phil

 

 

 

 

[Bred]

Salut,

 

j'ai regardé pour faire un truc.. mais je n'y arrives pas...

 

Je voulais copier une vue d'une fenêtre de base sur plusieur autre selectionnée, mais je n'arrive pas à applique le centre de la vue (viewctr) aux autres fenêtre....

 

Je pense qu'il doit y avoir une astuce en nommant la vue de base et en l'apllicant aux autres fenêtres... je regarderais si j'y arrive.

 

désolé.

[Tramber]

Voir ici

[Tramber]

Je suis lispeur.

 

Mais pour les copains qui connaissent pas je trouve toujours plus rigolo de proposer un SCRIPT :

 

CVPORT 2 -PAN 0,0 1000,1000
CVPORT 3 -PAN 0,0 1000,1000
CVPORT 4 -PAN 0,0 1000,1000
CVPORT 5 -PAN 0,0 1000,1000
CVPORT 6 -PAN 0,0 1000,1000
CVPORT 7 -PAN 0,0 1000,1000
CVPORT 8 -PAN 0,0 1000,1000
CVPORT 9 -PAN 0,0 1000,1000
CVPORT 10 -PAN 0,0 1000,1000
CVPORT 11 -PAN 0,0 1000,1000
CVPORT 12 -PAN 0,0 1000,1000
CVPORT 13 -PAN 0,0 1000,1000
CVPORT 14 -PAN 0,0 1000,1000
CVPORT 15 -PAN 0,0 1000,1000
CVPORT 16 -PAN 0,0 1000,1000
CVPORT 17 -PAN 0,0 1000,1000
CVPORT 18 -PAN 0,0 1000,1000
CVPORT 19 -PAN 0,0 1000,1000
CVPORT 20 -PAN 0,0 1000,1000
CVPORT 21 -PAN 0,0 1000,1000
CVPORT 22 -PAN 0,0 1000,1000
CVPORT 23 -PAN 0,0 1000,1000

 

Même consigne que pour d'autres messages. Se mettre d'abord dans une fenêtre et désactiver les accrobj.

Par contre le -PAN est "déterminé"..... Je batis souvent mes script avec excel (voir mon 1000ème message !)

[PHILPHIL]

hello tous toutes

 

merci vous venez de me donner des pistes

 

bred je pense plus a la solution de rentrer dans la fenetre faire un pan de 0,0 vers x,y et en ressortir et passer a la suivante

 

faut que je teste ca

 

bonne soirée

 

a+

 

phil

[(gile)]

Salut,

 

Une solution en LISP (plus polyvalente qu'un script

 

(defun c:test (/ vp1 ss p1 p2 n)
 (and
   (or (/= (getvar 'ctab) "Model")
        (prompt "\nCommande non accessible en espace objet")
   )
   (vl-cmdf "_pspace")
   (princ "\nSélectionnez la fenêtre référence")
   (setq vp1 (ssget "_:S:E" '((0 . "VIEWPORT"))))
   (setq vp1 (ssname vp1 0))
   (princ "\nSélectionnez les fenêtres")
   (setq ss (ssget '((0 . "VIEWPORT"))))
   (or (ssdel vp1 ss) T)
   (vl-cmdf "_mspace")
   (setvar 'cvport (cdr (assoc 69 (entget vp1))))
   (vl-cmdf "_pan"
            (setq p1 (getpoint "\nSpécifiez le point de base: "))
            (setq p2 (getpoint p1 "\nSpécifiez le deuxième point: "))
   )
   (setq n 0)
   (while (setq vp (ssname ss n))
     (setvar 'cvport (cdr (assoc 69 (entget vp))))
     (vl-cmdf "_pan" p1 p2)
     (setq n (1+ n))
   )
   (vl-cmdf "_pspace")
 )
 (princ)
)

[PHILPHIL]

hello

 

gile tu connais deja la réponse <acronym class=dict title=

 

caaaa marche merci

 

est ce que je vais pouvoir modifier le lisp en determinant p1 et p2 a l'avance ??

normalement oui

le vl-cmdf ne devrait pas poserde souci ?,

 

bo je test ca et vous informe

 

merci a+

phil

[PHILPHIL]

hello

 

gile j'ai un peu modifie ton LISp

merci

pourquoi devoir selectionner une fenetre de référence ??

 

a+

phil

 

celui si marche comme un "-PAN" a l'envers

je connais par avance la cible

 

version sans avoir a selectionner une fenetre de référence

 

dfxy : déplacement positif sur X et possitif sur Y

 

rajout de : [surligneur] (command "scu" "")[/surligneur] et [surligneur] (command "scu" "p")[/surligneur]

si la fenetre a subit une rotation de vue et que l'on connaisse le deplacement par rapport a l'espace objet

 

a suivre

 

dfxxy : déplacement negatif sur X et possitif sur Y

dfxyy : déplacement positif sur X et négatif sur Y

dfxxyy : déplacement négatif sur X et négatif sur Y

 

 

 

 (defun c: DFXY  (/ vp1 ss p1 p2 n)
 (setvar "cmdecho" 0)
 (setq FEALPHA (atof (getcfg "APPDATA/FEALPHA")))
 (setq FEBETA (atof (getcfg "APPDATA/FEBETA")))
 (initget 4)
 (setq	TMP1 (getdist (strcat "\nENTRER LA VALEUR DE FE_ALPHA ( SUR X ) <"
		      (rtos FEALPHA 2 8)
		      ">: ")))
 (if TMP1
   (setq FEALPHA TMP1)
   )
 (initget 4)
 (setq	TMP2 (getdist (strcat "\nENTRER LA VALEUR DE FE_BETA ( SUR Y ) <"
		      (rtos FEBETA 2 8)
		      ">: ")))
 (if TMP2
   (setq FEBETA TMP2)
   )
 (and
   (or	(/= (getvar 'ctab) "Model")
(prompt "\nCommande non accessible en espace objet")
)
   (vl-cmdf "_pspace")
 ;;;  (princ "\nSélectionnez la fenêtre référence")
 ;;;  (setq vp1 (ssget "_:S:E" '((0 . "VIEWPORT"))))
;;;   (setq vp1 (ssname vp1 0))
   (princ "\nSélectionnez les fenêtres")
   (setq ss (ssget '((0 . "VIEWPORT"))))
;;   (or (ssdel vp1 ss) T)
   (vl-cmdf "_mspace")
 ;;;  (setvar 'cvport (cdr (assoc 69 (entget vp1))))

 ;;;  (vl-cmdf "_pan"
     (strcat (rtos FEALPHA 2 8) "," (rtos FEBETA 2 8))
     "0,0")
   (setq n 0)
   (while (setq vp (ssname ss n))
     (setvar 'cvport (cdr (assoc 69 (entget vp))))
 (command "scu" "")    
 (vl-cmdf "_pan"
       (strcat (rtos FEALPHA 2 8) "," (rtos FEBETA 2 8))
       "0,0")
 (command "scu" "p")
     (setq n (1+ n))
     )
   (vl-cmdf "_pspace")
   )
 (setcfg "APPDATA/FEALPHA" (rtos FEALPHA 2 8))
 (setcfg "APPDATA/FEBETA" (rtos FEBETA 2 8))
 (setvar "cmdecho" 1)
 (princ)
 )

[Edité le 23/7/2009 par PHILPHIL]

 

[Edité le 28/7/2009 par PHILPHIL]

[(gile)]

J'utilise une fenêtre de référence pour spécifier le "pan" à l'intérieur de celle-ci.

Mais si tu connais par avance les valeurs du panoramique, ce n'est pas nécessaire.

 

Le truc pour activer les fenêtres c'est de récupérer l'ID des fenêtres sélectionnées (code DXF 69) et d'en passer la valeur à CVPORT.

 

J'utilise vl-cmdf parce que cette fonction retourne T si les arguments sont valides (command retourne toujours nil) et que j'imbrique toutes les expressions dans un (and ...) pour que l'interprétation s'arrête si une expression retourne nil.

[PHILPHIL]

hello gile

 

comme apparement je defini le X,Y du "PAN" jsute avant avec FEALPHA et FEBETA

je peux donc enlever la premiere selection "fenetre de référence"

ok

 

le ( and ... ) fait que si le programme plante pour quelques raisons que se soit il en sort automatiquement sans tourner pendant des heures sans que l'on sache pourquoi

 

j'ai la touche "echap" facile mais des fois avec autocad ca tourne sans que l'on puisse l'arreter

si si !! ca arrive sous autocad

 

ok merci gile

 

je te dois combien ?? ( en euros )

 

a+

 

phil