oran

Bonjour, Voici 2 lisp(s) qui pourront compléter le tien (je ne me souviens plus de l'auteur mais l'en remercie pour leur efficacité): CLAYOUT: Etablit plusieurs présentations en prenant la première comme référence (présentation papier) et en décalant les suivantes vers le bas. (dans notre cas ==> décalage de 205 vers le bas) CLAYOUTT: Etablit plusieurs présentations en prenant la première comme référence (présentation papier) et en décalant les suivantes vers la droite. (dans notre cas ==> décalage de 300 vers la droite) Pour les décalage il suffit d'ouvrir le lisp et de modifier la mesure. CLAYOUT: (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:clayout () (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" '(0 205)) (command "_PSPACE") ) (princ) ) CLAYOUTT: (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" '(-300 0)) (command "_PSPACE") ) (princ) )

...re et ce lisp aussi... ; supprimer les propriétés qui auraient pu être forcées (couleur, fonte, caractères gras, italique ou sous-ligné) ; qu'il soit en textes ou en mtextes dans le dessin (defun c:mtxt2Std (/ ss n txt e_lst str) (setq ss (ssget "_X" '((0 . "*TEXT")))) (repeat (setq n (sslength ss)) (setq txt (ssname ss (setq n (1- n))) e_lst (entget txt) str (cdr (assoc 1 e_lst)) ) (if (= "{" (substr str 1 1)) (progn (while (and (setq start (vl-string-search "\\" str)) (setq end (vl-string-search ";" str start)) ) (setq str (vl-string-subst "" (substr str (1+ start) (- end start -1)) str ) ) ) (if (= "\\L" (substr str 2 2)) (setq str (vl-string-subst "" (substr str 2 2) str ) ) ) (setq str (vl-string-right-trim "}" (vl-string-left-trim "{" str) ) e_lst (subst (cons 7 (getvar "TEXTSTYLE")) (assoc 7 e_lst) (subst (cons 1 str) (assoc 1 e_lst) e_lst) ) ) (entmod e_lst) ) ) ) (princ) )

Bonjour, J'ai retrouvé ceci: Supprimer les propriétés qui auraient pu être forcées (couleur, fonte, caractères gras, italique ou sous-ligné) fonctionne aussi pour les textes de plus de 250 caractères et pour les hauteurs de texte forcées. (defun c:c_txt (/ ss n txt e_lst str start end lst) (while (not (setq ss (ssget '((0 . "MTEXT")))))) (repeat (setq n (sslength ss)) (setq txt (ssname ss (setq n (1- n))) e_lst (entget txt) str (apply 'strcat (mapcar 'cdr (append (vl-remove-if-not '(lambda (x) (= (car x) 3)) e_lst) (list (assoc 1 e_lst)) ) ) ) ) (while (setq start (vl-string-search "{\\" str)) (setq str (vl-string-subst "" "{" (vl-string-subst "" "}" str start) start ) ) ) (setq start 0) (while (setq start (vl-string-search "\\" str start)) (cond ((= "\\P" (substr str (1+ start) 2)) (setq start (1+ start) end (1+ start) ) ) ((= "\\L" (substr str (1+ start) 2)) (setq end (+ (vl-string-search "L" str start) 2)) ) ((= "\\l" (substr str (1+ start) 2)) (setq end (+ (vl-string-search "l" str start) 2)) ) (T (setq end (+ (vl-string-search ";" str start) 2))) ) (setq str (vl-string-subst "" (substr str (1+ start) (- end start 1)) str ) ) ) (setq lst nil) (if (< 250 (strlen str)) (progn (while (< 249 (strlen str)) (setq lst (cons (cons 3 (substr str 1 250)) lst) str (substr str 251) ) ) (setq lst (reverse (cons (cons 1 str) lst))) ) (setq lst (cons (cons 1 str) lst)) ) (setq e_lst (append (vl-remove-if '(lambda (x) (or (= (car x) 3) (= (car x) 1))) e_lst ) lst ) ) (entmod e_lst) ) (princ) )

C'est bien cela, merci à toi. Sylvain

Bonjour, Lorsque l'on choisit d'afficher les fichiers en "Détails" plutôt qu'en "Liste", on a le choix d'afficher plusieurs colonnes comme: "Taille" - "Type" - "Date de création" .......etc et aussi "Propriétaire". Je souhaiterai donc faire apparaître automatiquement cette rubrique "Propriétaire" dans mes cartouches sous forme de champ ou autre, est-ce possible ??? :cool: Merci d'avance, Sylvain [Edité le 11/1/2011 par oran]

Merci pour ta rapidité, ce lisp me convient parfaitement.

Bonjour, Existe-t-il un moyen de lister les Xerfs d'un plan sans ouvrir celui-ci ? Merci

Bonjour, Dans ta fenêtre " Charger/Décharger les applications" tu as une petite valise et juste dessous "contenu..." * tu cliques donc sur CONTENU * dans cette nouvelle fenêtre "Applications lancées au démarrage" * tu cliques sur "Ajouter" .....etc.... voilà.

Bonjour, Essaie ceci: * Sélection rapide * Polyligne * Largeur du segment de départ * Largeur du segment de fin. ............normalement c'est OK !!!

Bonjour, Avec la fonction "Extraction de données", peut-on d'une manière ou d'une autre associer l'image des entités prisent en compte avec la fonction ? Mon but serait d'arriver au résultat de la légende de Patrick (LG.lsp) mais en affinant celle-ci car elle ne comptabilise pas les blocs dynamiques (avec visibilité) eux-même inclus dans un bloc dynamique. Merci d'avance, :exclam:

....pas de soucis, ça n'a pas un caractère d'urgence. Merci de ta disponibilité. Sylvain

Bonjour, A propos de MAT.lsp, serait-ce possible d'affiner la recherche de l'attribut en ajoutant "une case" supplémentaire qui correspondrait à la valeur "Par défaut" attribuée à notre attribut lors de sa réalisation. Merci d'avance :)

:( ...merci Didier j'opère de la même façon que toi mais je posais la question.......des fois que ..!!!! ;)

Bonjour, Existe-t-il un moyen pour insérer, en tant que XREF, un seul calque (et son contenu bien sur) provenant d'un autre fichier ? :cool:

Merci à vous. Sylvain

OK c'est exactement ce qu'il me faut, par contre comment intégrer mes propres formats à cette liste ? :exclam:

Bonjour, Je désire changer de format papier sur toutes mes présentations (une quarantaine...)sachant que certaines sont en Paysage et d'autres en Portrait. Y-a-t-il un moyen rapide de faire cette manip. (lisp par exemple) ou dois-je les faire une à une ? Merci d'avance Oran ;)

Bonjour, Tu tapes [surligneur]BATTMAN[/surligneur] sur ta ligne de commande. ;) Oran

OK, merci pour l'explication des cellules, maintenant je comprends mieux. Sinon c'est comme ça que je fonctionnais avant de te poser ma question cellule source vers cellule de destination avec tout ce quelle comprend. Merci encore

Bonjour Patrick, Petite interrogation au sujet de LXL.lsp. Le lisp refuse de prendre en compte une seconde fois un bloc dont les attributs sont déjà intégrés à une feuille excel " le bloc sélectionné est déjà complètement intégré dans la base " Y-a-t-il une raison majeure que je n'aurai pas saisi ? Sinon, serait ce possible d'avoir le choix [surligneur]d'intégrer ou pas[/surligneur] ce même bloc sur une autre feuille du même fichier excel. En te remerciant d'avance ;) , Sylvain

Bonjour et bienvenue, Il y a [surligneur]MAT.lsp[/surligneur] de Patrick ici .....si j'ai bien compris ton besoin. ;) Sylvain

Bonjour, Une suggestion qui en vaut une autre........et pourquoi pas [surligneur]LXL.lsp[/surligneur] de Patrick ici Lie des Attributs, Textes, Mtexts ou des Rtexts avec Excel ...et la mise à jour se fait dans les 2 sens [Edité le 5/12/2008 par oran]

mais oui...... .........Dans un de ces attributs, tu ajoutes un champ Tracer --> Date de tracé --> Choix du format....... c'est en te lisant que je viens de comprendre la procédure pour intégrer un champ en tant que attribut :cool: :cool: Le principal c'est d'avoir compris ;) ..............j'y aurai mis le temps...!! :P Merci à toi, Sylvain

Bonjour, Avec la fonction lisp [surligneur]LXL[/surligneur] , peut-on intégrer un champ (dans mon cas "date de tracé") en tant qu'attribut afin que celui-ci apparaisse également automatiquement sur excel comme les attributs liés au bloc. C'est à dire que pour l'instant je fais "Ajouter bloc" pour les attributs..... ......et ensuite "Ajouter texte" pour mon champ.............Pourrait-il y avoir qu'une seule manip. ?? :exclam: :cool: Sylvain

.......garde tout de même [surligneur]dwggateway[/surligneur] sous le coude, il est très pratique pour créer des PDF depuis un DWG....... :) [Edité le 26/11/2008 par oran]