Créer une copie de plusieurs présentations

[crashray]

Bonjour,

Je dois faire une copie 43 présentations en décalant la vue de la fenêtre de X+8000 pour chaque présentation.

Je pense le faire à la main. Y a t'il une façon plus rapide que :

1) Déplacer ou copier-> "créer une copie" à la fin de VH1

2) Renommer la présentation en ajoutant un suffixe (VH1_U67)

3) Double-cliquer sur la fenêtre -> PAN -> déplacer manuellement à peu près de 8000.

 

Et recommencer 43 fois.

[VDH-Bruno]

Bonjour,

 

C'est typiquement le type de tache à traiter en lisp, et qui avec l'habitude ne prend guère plus de 5mn à écrire…

Un principe qui s'execute sur l'ensemble de tes présentations

(defun c:crashray  (/)
 (defun copieRenommeDecalaVue (presentation)
   (command "PRESENTATION")
   (command "COPIER")
   (command presentation)
   (command (strcat presentation "__U67"))
   (setvar 'ctab (strcat presentation "__U67"))
   (command "_.MSPACE")
   (command "_.ZOOM")
   (command "_C")
   (command (cons (+ (car (getvar 'viewctr)) 8000) (cdr (getvar 'viewctr))))
   (command "")
   (command "_.PSPACE")
 )
 (mapcar 'copieRenommeDecalaVue (LAYOUTLIST))
)

 

Sinon avec l'expression suivante pour n'appliquer que sur la seul présentation courante

Commande:(copieRenommeDecalaVue (getvar 'ctab))

 

A+

[crashray]

Bonjour,

 

C'est typiquement le type de tache à traiter en lisp, et qui avec l'habitude ne prend guère plus de 5mn à écrire…

Un principe qui s'execute sur l'ensemble de tes présentations

(defun c:crashray  (/)
 (defun copieRenommeDecalaVue (presentation)
   (command "PRESENTATION")
   (command "COPIER")
   (command presentation)
   (command (strcat presentation "__U67"))
   (setvar 'ctab (strcat presentation "__U67"))
   (command "_.MSPACE")
   (command "_.ZOOM")
   (command "_C")
   (command (cons (+ (car (getvar 'viewctr)) 8000) (cdr (getvar 'viewctr))))
   (command "")
   (command "_.PSPACE")
 )
 (mapcar 'copieRenommeDecalaVue (LAYOUTLIST))
)

 

Sinon avec l'expression suivante pour n'appliquer que sur la seul présentation courante

 

 

A+

Entre temps, je l'ai fait à la main mais je risque de refaire ça régulièrement donc je garde ça sous le coude.

Tu me conseilles quoi pour débuter en lisp ? Un bouquin, un site ou une formation ?

 

Merci en tout cas pour ton aide.

[philsogood]

@crash,

t'as gile qui a fait un tuto qui se balade sur le site

c'est un bon début

ça reste du lisp pur

pour le Vlisp la chose est un peu plus hardu car li y a moult et moults fonctions!!

Phil

[La Lozère]

en décalant la vue de la fenêtre de X+8000 pour chaque présentation.

Pour info, être précis et faire un pan de exactement X+8000, tu peux utiliser la commande -PAN. Commande correspondante au pan des anciennes versions autocad.