Aller au contenu

CLAYOUTT.lsp à modifer SVP


oran

Messages recommandés

Bonjour,

 

Je n'ai pas retrouvé l'auteur de ce lisp, donc je m'adresse à vous pour une petite modification dans la mesure du possible.

Ce lisp a pour fonction de faire "X" copie d'une présentation papier (choisie et nommée) en incrémentant son nom d'une valeur.

En exemple, en partant d'une présentation nommée "FOLIO" il va me créer des copies nommées:

 

FOLIO (2)

FOLIO (3)....etc

 

Mon pb est que l'incrémentation commence à (2), serai-ce possible que celle-ci débute à (1) ?

 

Merci d'avance et bon WE à tous,

 

Sylvain

 

 

 

(defun llayouts (/ acadobject ActDoc LAYOUTS LLAY n)

(setq acadObject (vlax-get-acad-object))

(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))

(setq LAYOUTS (vla-get-Layouts ActDoc))

(setq LLAY nil)

(vlax-for n LAYOUTS

(setq LLAY (cons (vla-get-name n) LLAY))

)

LLAY

)

 

(defun NewNameLayout (OLDLAY NEWLAY)

(setq RES nil)

(while NEWLAY

(setq ELEM (car NEWLAY))

(setq NEWLAY (cdr NEWLAY))

(if (not (member ELEM OLDLAY))

(setq RES ELEM)

)

)

RES

)

 

 

(defun c:clayoutt ()

(vl-load-com)

(setq NBPAGE (getint "\nNombre de copies : "))

(repeat NBPAGE

(setq OLDLLAY (llayouts))

(command "_layout" "_c" "" "")

(setq NEWLLAY (llayouts))

(setq NNAME (NewNameLayout OLDLLAY NEWLLAY))

(command "_layout" "_s" NNAME)

(command "_MSPACE")

(command "_-pan" "_non" '(0 0) "_non" '(-420 0))

(command "_PSPACE")

)

(princ)

)

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité