stephan35

De temps en temps, le perfectionnisme tue la productivité ....... (à méditer ) :casstet: Si, et seulement si, les données à remplir se trouvent identiques pour chaque présentation, inclue dans un cartouche (avec/sans) attributs, ma solution est la suivante : Je créée un Xref qui contient les données répétitives Je redéfini la format graphique de mon cartouche qui pointe avec ce xref en plus. je remet à jour mon cartouche partout ou il est utilisé.(_insert =) (Perso sur un dossier de + de 3000 fichiers, ça s'impose ....) a+

Oui , bon, whitesquare, au risque de me jeter un gros discrédit vis à vis des réponses que je t'ai fournis, j'ai ommis de te fournir le bon fichier pgp, ........... celui que j'utilise quoi ....... ;) Bien évidemment, le mien ne me ressort aucune erreure !!!! :casstet: Normal !!!!!! après comparaison, j'avais viré tous les commentaires ";kflkfl", fait un essai avec le tien, supprime toutes les lignes de commentaire, et tu verras, cela fonctionne à merveille . Après verification, tu peux clore le sujet "mettre résolu". A+

Bizarrrrrr Bizarrrr Es-tu sur de ta version ................ Officielle ????? :P Ce n'est pas une LT ???? Bien une 2006 ???? Peut-être un doublon dans les raccourcis PGP <-> cui ??? A+

Je rentre chez moi, et je me reconnecte dans la soirée, si tu es là on regarde ça A+

sert toi C:\documents and Settings\*****************\Application Data\Autodesk\AutoCAD 2006\R16.2\fra\Support C:\ ou D:\ ******** c'est le nom de ton login windaub ; ; ; Fichier des paramètres du programme pour AutoCAD 2005 ; Définitions des alias de commande et des commandes externes ; Copyright (C) 1997-2004 par Autodesk, Inc. ; A chaque ouverture d'un fichier nouveau ou déjà créé, AutoCAD recherche le chemin de support et lit le premier fichier ; AutoCAD.pgp qu'il détecte. ; -- Commandes externes -- ; Lorsqu'AutoCAD est lancé, vous pouvez faire appel à d'autres programmes ou utilitaires ; tels que les applications, utilitaires et commandes système de Windows. ; Vous pouvez définir des commandes externes en indiquant le nom de commande à utiliser à partir ; de la ligne de commande AutoCAD et la chaîne de commande exécutable devant être transmise au système d'exploitation. ; -- Alias de commande -- ; La section Alias de commande de ce fichier contient les paramètres par défaut pour ; les raccourcis de commande AutoCAD. Remarque: il est déconseillé de modifier ; directement cette section du fichier PGP, car la migration des modifications que vous ; y apporterez ne se fera pas correctement lors de la mise à niveau de votre produit AutoCAD ; vers une version ultérieure. Modifiez plutôt la nouvelle section ; Alias de commande définis par l'utilisateur ; à la fin de ce fichier. ; -- Alias de commande définis par l'utilisateur -- ; Vous pouvez créer des abréviations pour les commandes AutoCAD les plus fréquemment utilisées en ; définissant des alias dans la section Alias de commande définis par l'utilisateur ; du fichier AutoCAD.pgp. Vous pouvez créer un alias pour n'importe quelle commande AutoCAD, ; commande de gestionnaire de périphériques ou commande externe. ; Recommandation: créez une copie de sauvegarde de ce fichier avant de le modifier. Pour ; que la migration des modifications apportées aux paramètres PGP se fasse correctement ; lors de la mise à niveau vers la version ultérieure d'AutoCAD, il est conseillé de modifier ; les paramètres par défaut dans la section Alias de commande définis par l'utilisateur ; à la fin de ce fichier. ; Format de commande externe : ; ,[],,[*], ; Les bits des indicateurs signifient : ; Bit 1: si défini, n'attend pas la fermeture de l'application ; Bit 2: si défini, lance l'application dans une fenêtre réduite ; Bit 4: si défini, lance et masque l'application ; Bit 8: si défini, met la chaîne d'argument entre guillemets ; ; Complétez le champ "Indicateur de bit" avec la somme des bits choisis. ; Les bits 2 et 4 s'excluent mutuellement; lorsqu'ils sont tous deux définis, seul le bit 2 est utilisé. ; Les valeurs les plus fréquemment utilisées sont généralement 0 ; (lance l'application et attend la fin), 1 (lance l'application et n'attend pas), 3 (ouvre dans une fenêtre ; réduite et n'attend pas) et 5 (masque l'application et n'attend pas). Il est généralement préférable de ne pas utiliser ; les valeurs 2 et 4. Elles empêchent en effet d'utiliser AutoCAD tant que l'application n'a pas terminé. ; ; Le bit 8 permet aux commandes telles que DEL de fonctionner correctement avec des noms de fichier ; comprenant des espaces, "nom de fichier long.dwg" par exemple. Notez que cela aura une incidence sur la transmission à ; ces mêmes commandes des listes de noms de fichier délimitées par des espaces. ; Si vous souhaitez que la prise en charge des fichiers multiples utilise les noms de fichier longs, désactivez le bit ; "8" de ces commandes. ; Exemples de commandes externes pour les fenêtres de commande CATALOG, DIR /W, 8,spécification de fichier: , DEL, DEL, 8,Fichier à supprimer: , DIR, DIR, 8,spécification de fichier: , EDIT, START EDIT, 9,Fichier à modifier: , SH, , 1,*Commande SE: , SHELL, , 1,*Commande SE: , SHELLWAIT, , 4,*Commande SE: , SHCACH, , 2,*Commande OS: , START, START, 1,*Application à démarrer: , TYPE, TYPE, 8,Fichier à répertorier: , ; Exemples de commandes externes pour Windows ; Pour une autre méthode, se reporter également à la fonction AutoLISP (STARTAPP). EXPLORER, START EXPLORER, 1,, NOTEPAD, START NOTEPAD, 1,*Fichier à modifier: , PBRUSH, START PBRUSH, 1,, ; Format des alias de commande: ; ,* ; Voici quelques recommandations pour la création d'alias de commande. ; 1. Un alias a pour fonction de réduire la longueur d'une commande d'au moins deux caractères. ; Il n'est pas nécessaire de définir d'alias pour les commandes associées à ; une touche de contrôle, à un bouton de barre d'état ou à une touche de fonction. ; Exemples : Ctrl N, O, P et S pour Nouveau, Ouvrir, Imprimer, Enregistrer. ; 2. Choisissez le premier caractère de la commande, puis les deux premiers, ; puis les trois premiers. ; 3. Une fois un alias défini, créez les alias associés en ajoutant un suffixe : ; Exemples: R pour REDESS, RE pour REDESTOUT, L pour LIGNE, LT pour TYPELIGNE. ; 4. Utilisez un tiret pour distinguer les commandes de la ligne de commande et celles des boîtes de dialogue. ; Exemple: B pour Bloc, -B pour -Bloc. ; ; Les exceptions à ces règles sont, en particulier, AI pour AIRE, T pour TEXTMULT, DE pour DECOMPOS. ; -- Exemples d'alias pour les commandes AutoCAD -- ; Ces exemples incluent les commandes les plus fréquemment utilisées. REMARQUE: pour que la migration ; de vos informations de personnalisation se fasse correctement lors de la mise à niveau vers la version ; ultérieure d'AutoCAD, Il est déconseillé de modifier cette section du fichier PGP. Les alias répertoriés ; dans cette section sont repris dans la section Alias de commande définis par l'utilisateur à la fin de ce fichier. ; Vous pouvez modifier cette section en toute sécurité et assurer ainsi la migration correcte de vos modifications. DBLCLCMODIF, *DBLCLKEDIT SAUVEDWF, *DWFOUT 3A, *3DARRAY 3O, *3DORBITE 3F, *3DFACE 3P, *3DPOLY A, *ARC AI, *AIRE AC, *ACCROBJ -AC, *-ACCROBJ ADC, *ADCENTER DCENTER, *ADCENTER AJ, *AJUSTER AJI, *AJUSTEIMAGE ALI, *ALIGN AN, *ANNEAU AO, *APPLOAD AP, *APERCU ATI, *ATTACHEIMAGE AT, *ATTDEF -AT, *-ATTDEF B, *BLOC -B, *-BLOC BO, *BAROUTIL BI, *BISEAU C, *CERCLE CA, *CACHE -CE, *CHANGER CF, *CHANFREIN ECT, *ECHLTP CO, *COLLAGSPEC LI, *COTLIN CN, *CONTOUR -CN, *-CONTOUR VFN, *VERIFNORMES CL, *COULEUR COUL, *COULEUR CONN, *CONNECTBD CP, *COPIER COU, *COUPE OD, *COTORD COR, *CORRESPROP CST, *COTSTYLE CU, *COUPURE PL, *CALQUE -PL, *-CALQUE COTY, *COTRAYON DRE, *DIMREASSOCIATE COTF, *COTREDEF CSTY, *COTSTYLE COTA, *COTALI COTC, *COTCEN COTE, *COTEDIT CM, *COTDIA COTL, *COTLIGN CAN, *COTANG COTN, *COTCONT DDA, *DIMDISASSOCIATE DP, *DEPLACER DC, *DECALER ED, *DDEDIT DI, *DISTANCE DIV, *DIVISER ICL, *DELIMIMAGE DO, *DROITE SC, *GESTSCU EF, *EFFACER EH, *ECHELLE ATE, *ATTEDIT -ATE, *-ATTEDIT EPL, *EPAISSLIGNE EL, *ELLIPSE EPLIGNE, *EPAISSLIGNE EO, *ESPACEO ESI, *EDITSPLINE E, *ETIRER EX, *EXPORTER ES, *EXTRUSION H, *HACHURES -H, *-HACHURES EI, *EDITHACH FH, *FHACH FI, *FILTER FU, *FMULT FRPROP, *FERMERPROP GP, *GROUPE -GP, *-GROUPE GR, *DDGRIPS I, *INSERER -I, *-INSERER IM, *IMAGE -IM, *-IMAGE IP, *IMPORTER IR, *INTERSECT IF, *INTERFERENCE IO, *INSEROBJ L, *LIGNE LAYER, *CALQUE LE, *LREPERERAP LS, *LISTE LST, *LISTE DE, *DECOMPOS ME, *MESURER MI, *MIROIR ML, *MLIGNE MG, *MODIFLONG MDV, *MODIFVAR MO, *MODEOMBRE OP, *OPTIONS OPT, *OPTIONS OR, *ORDRETRACE ORBIT, *3DORBIT OH, *ORTHOGRAPHE OUVRPARTIEL, *-OUVRPARTIEL P, *PAN -P, *-PAN PA, *PARAMDESS PE, *PEDIT PO, *POLYLIGN PM, *PARAMDESS PT, *POINT PG, *POLYGONE PRE, *-PRESENTATION PR, *PROLONGE PROP, *PROPRIETES PROPS, *PROPRIETES PW, *PUBLIERWEB UR, *PURGER -PU, *-PURGER Q, *QUITTER R, *REDESS RRP, *RDPREF RTT, *REDESTOUT RC, *RECTANG REG, *REGION RO, *RENOMMER -RO, *-RENOMMER REV, *REVOLUTION RG, *REGEN RGT, *REGNTOUT RL, *RESOL RI, *ROTATION RD, *RACCORD RE, *RESEAU -RE, *-RESEAU -EDITREF, *-REFEDIT CLOREREF, *REFCLOSE EDITREF, *REFEDIT JEUREF, *REFSET RR, *RENDU SE, *SECTION SR, *SCRIPT SO, *SOLIDE EP, *ESPACEP SPL, *SPLINE ST, *STYLE NO, *NORMES SU, *SOUSTRACTION T, *TEXTE TX, *TEXTMULT -TX, *-TEXTMULT TA, *TABLETTE TD, *TXTDYN TH, *THICKNESS TM, *TILEMODE TL, *TYPELIGNE -TL, *-TYPELIGNE TT, *TEXTMULT TO, *TOLERANCE TOR, *TORE TP, *PALETTEOUTILS TC, *TRACEUR TYPEL, *TYPELIGNE -TYPEL, *-TYPELIGNE UI, *UNITES -UI, *-UNITES UNI, *UNION VU, *VUE -VU, *-VUES -VUE, *-VUES VD, *VUEDYN VP, *DDVPOINT -PV, *POINTVUE W, *WBLOC -W, *-WBLOC XA, *XATTACHER XC, *XDELIM XJ, *XAJOUTER -XJ, *-XAJOUTER XR, *XREF -XR, *-XREF Z, *ZOOM CS, *CSTYLETABLE GJF, *JEUFEUILLES TB, *TABLE ST, *STYLETABLE MSM, *ANNOTATION ; New Rio aliases (z035) AC, *ACTIONBLOC EB, *ENREGBLOC LIC, *LIGNECOMMANDE ARC, *ARCCOTE COC, *COTERACCOURCIE RDS, *RECUPDESSIN GD, *GRADIENT J, *JOINDRE PARAM, *PARAMBLOC CR, *CALCRAPIDE VB, *ETATVISBLOC ; New Rio aliases (z038) FB, *FERMERBLOC MB, *MODIFBLOC ; Alias à utiliser pour la compatibilité Hyperlien/URL Release 14 SAUVEURL, *SAUVEGRD OUVRIRURL, *OUVRIR INSERURL, *INSERER ; Alias des commandes qui ne sont plus utilisées dans AutoCAD 2000 : AAD, *CONNECTBD AEX, *CONNECTBD ALI, *CONNECTBD ASQ, *CONNECTBD ARO, *CONNECTBD ASE, *CONNECTBD DDATTDEF, *ATTDEF DDATTEXT, *ATTEXTR DDCHPROP, *PROPRIETES DDCOLOR, *COULEUR DDLMODES, *CALQUE DDLTYPE, *TYPELIGNE DDMODIFY, *PROPRIETES DDOSNAP, *ACCROBJ DDRMODES, *PARAMDESS DDAMODES, *PARAMDESS DDUCS, *SCU ; Alias des commandes qui ne sont plus utilisées dans AutoCAD 2004: ACADBLOCKDIALOG, *BLOC ACADWBLOCKDIALOG, *WBLOC ADCENTER, *ADCENTER BMAKE, *BLOC BMOD, *BLOC FPOLY, *CONTOUR CONTENT, *ADCENTER DDATTE, *ATTEDIT DDIM, *COTSTYLE DDINSERT, *INSERER DDPLOTSTAMP, *BANNIERE DDAMODES, *PARAMDESS DDSTYLE, *STYLE DDSCU, *GESTSCU DDUCSP, *GESTSCU DDUNITS, *UNITES DDVIEW, *VUE COTHOR, *COTLIN COTROTATION, *COTLIN COTVERTICAL, *COTLIN ANNEAU, *ANNEAU TEXTDYN, *TEXTE SAUVEDWF, *TRACEUR CHRGDXF, *OUVRIR SAUVEDXF, *SAUVENOM COPIERPROP, *CORRESPROP PREFERENCES, *OPTIONS RECTANGLE, *RECTANG OMBRAGE, *MODEOMBRAGE FENETRES, *FENETRES ; -- Alias de commande définis par l'utilisateur -- ; Apportez vos modifications ou ajouts aux alias de commande AutoCAD par défaut de cette section ; afin de garantir la migration de ces paramètres lors de la mise à niveau vers la version ; ultérieure d'AutoCAD. Si des alias de commande en double sont trouvés dans ce fichier, ceux ; figurant dans la section Alias de commande définis par l'utilisateur auront la priorité sur les ; doublons qui figurent plus haut dans le fichier. Touche plus à rien .................. et attends demain !!! ;) Bon week-end !

Oui mais NON ! (Sinon je ne te l'aurais pas demandé ....) :casstet: Clayer ? ne serait-ce pas la variable qui fournit le nom du calque actif ???? hum Hum .... :casstet: [Edité le 12/7/2007 par stephan35]

Salut patrick !!!! Bon ben merci !!!! et à la question : PS: Je vais bien réussir à te faire secher ...... ;) A+

bonjour, Tu as 2 choses, Les raccourcis contenus dans l'acad.pgp et les raccourcis dans le cuicui ... qui contient tes menus. Sauf erreur de ma part, tu seras obligé d'exporter l'ensemble de tes fichiers pour faire une configuration similaire, (ne pas oublié de creer un fichier ARG exportation du profil pour te faire gagner du temps ....) En souhaitant avoir répondu à ta question. A+

Bonjour, D'avance je n'y crois pas du tout !!!! mais bon ..... J'ai un calque qui se nomme 22_AVANT et un autre 625_AVANT Je veux mettre un champ "expression diesel" qui m'affiche la partie numérique précédente au caractère "_" On aura 2 cas $(substr, $(getvar, clayer),2, 3) ou $(substr, $(getvar, clayer),2, 2) Ne pourrait-on pas faire une analyse et chercher le "_" ????? Peut-on interpreter du lisp en diesel ????? Peut-on récuperer le nom du calque dans lequel est inserer le champ ?????? :casstet: Merci à ceux qui vont se faire mal .... ;) A+

Merci BRED ! AAUUU SSSEEEECCCCOOOOUUURRRRSSSSSS !!!!!!! :mad: J'ai cherché sur le forum , mais rien de convaincant. Et je pige kedal !!!! Pour faire simplement, ou puis-je (en lisp) extraire les infos existantes sur les filtres, et forcément, comment puis-je les créer ???? Avec quelle syntaxe, et quelles variables ???? Merci A+

Cool GOLDORAK ! De temps en temps , les personnes ironisent leurs propos ...... Il ne faut pas toutjours prendre à la lettre ce que tu lis ..... Aussi, savoir modérer ses écrits est une forme de tolérance, savoir prendre du recul et regarder les choses dans leur globalité est aussi une forme d"intelligence ..... :exclam: Pour revenir dans le vif du sujet, on aboutit aujourd'hui à un paradoxe assez surprenant : certains des systèmes d'exploitation nécessitent des machines de plus en plus puissantes pour arriver à un résultat presque satisfaisant,, et à contrario ,d'autres te permettent de ressortir des vieux 386 / 486 du placard .... allez comprendre :casstet: Je suis prestataire chez un client, (je tairai le nom) , ils ont des pc équipés de processeurs dual core, qui vont un tantinet plus vite que leurs anciennes unitées.... sur une batterie de tests effectués sur 10 PC, on gagne 5 secondes/4,35 min (en moyenne) sur des scripts autocad (289 fichiers) avec ou sans dual core activé dans le bios ..... Bref, Je pense que les dernières versions d'Autocad ne plus assez optimisées dans leur développement , et on vise plus le coté ergonomique que le coté productif .... Dommage ! A+

Bonsoir , Dernier post de la journée ! Je n'ai jamais trop eu l'occasion d'utiliser les filtres de calques jusqu'a aujourd'hui et .... Je cherche un solution pour attaquer le filtre des calques par le lisp et ....... ohhhhhh désespoire : RIEN oops : pas trouvé :casstet: Par par le traditionnel (command "_layer") Merci ! Ps: faudra fair un jour le point sur les (command "- (command "_ (command ". (command "-.

Ok ok ! Je ne vais surtout pas vexé un breton !!!! ;) Je vais faire ce que je dis (recherche de vitesse) donc je prends et je corrige .... Je remettrai tout ça à jour demain matin ... Merci et A+

Surement pour des raisons de droits, les développeurs sur le site officiel sourceforge ont renommer leur produit OpenDCL ... http://www.opendcl.com/wordpress/ http://sourceforge.net/projects/opendcl/ Site sur lequel on trouve quelques réponses à nos problèmes ..... OpenDCL

Une dernière petite correction Plantais, si pas d'entités dans un calque . :P (defun @CopyLayer ( $source $destination / coul-L line-L lst-sel x cont-L) (setq coul-L (vla-get-color (vlax-ename->vla-object (tblobjname "LAYER" $source))) line-L (vla-get-linetype (vlax-ename->vla-object (tblobjname "LAYER" $source))) cont-L (ssget "_X" (list (cons 8 $source))) ) (vla-add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) $destination) (vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" $destination)) coul-L) (vla-put-linetype (vlax-ename->vla-object (tblobjname "LAYER" $destination)) line-L) (if cont-L (progn (repeat (setq x (sslength cont-L)) (setq lst-sel (append lst-sel (list (vlax-ename->vla-object (ssname cont-L (setq x (1- x))))))) ) (foreach n lst-sel (vla-copy n)) (foreach n lst-sel (vla-put-layer n $destination)) ) ) (princ) ) A+

Salut BRED ! Merci pour tes réponses (idem pour patrick_35 ...) Donc, Je trouve que la solution du : (vla-copyobjects (vla-get-ActiveDocument (vlax-get-acad-object)) (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (sslength cont-L)))) (mapcar '(lambda(x) (vlax-ename->vla-object (cadr x))) (ssnamex cont-L)))) est beaucoup plus compliquée à relire que la précédente : (foreach n lst-sel (vla-copy n)) (foreach n lst-sel (vla-put-layer n N-L)) D'ailleurs, j'ai enlevé le vla-copy et ça fonctionne toujours ????? :casstet: NONNN !!!! ok il sert à copier les entités avant de les déplacer !!! (bien sur !) :cool: J'ai rajouté le vla-get-linetype pour le calque. et j'arrive à ça : (defun @copy_layer ( $source $destination / coul-L line-L lst-sel x cont-L) (setq coul-L (vla-get-color (vlax-ename->vla-object (tblobjname "LAYER" $source))) line-L (vla-get-linetype (vlax-ename->vla-object (tblobjname "LAYER" $source))) cont-L (ssget "_X" (list (cons 8 $source))) ) (vla-add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) $destination) (vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" $destination)) coul-L) (vla-put-linetype (vlax-ename->vla-object (tblobjname "LAYER" $destination)) line-L) (repeat (setq x (sslength cont-L)) (setq lst-sel (append lst-sel (list (vlax-ename->vla-object (ssname cont-L (setq x (1- x))))))) ) (foreach n lst-sel (vla-copy n)) (foreach n lst-sel (vla-put-layer n $destination)) (princ) ) Mais sans mérite .... :( Merci à vous !!!

bonjour à tous ! Avant de me lancer follement dans des lignes d'écritures ........ :casstet: Quelqu'un aurait-il déjà developper une fonction qui duplique le nom d'un calque et son contenu sous un autre nom ????? Merci ! A+

Bonjour ! Faire 2 fois la touche escape sur autocad ne l'a jamais fait quitter ! Et lorsque l'on quitte autocad , et qu'il y a des modifs en cours, il pose la question "Voulez vous sauvegarder vos modifications ?" Bizarre ton problème !! :casstet: Vérifie que la variable expert soit 0 Je sèche !

J'ai eu la réponse sur sourceforge.net, En fait il ne faut pas oublié de forcer la valeur "EventEvoke" des boutons ou des onglets à '1' ! A+

Bonjour à tous ! Je suis face à un petit soucis difficile à comprendre : J'ai développer quelques boites de dialogues avec OpenDCL , Principalement des MODLESS, et il m'est impossible d'executer la commande wbloc (idem pour le zoom)??? (defun c:FOL_DEL_OnClicked ( /) (if (= 6 (Msgbox "Supression" 4 (strcat "Voulez-vous supprimer le folio : "(itoa #FolioAktuel) ))) (progn (setq #tmp #folioAktuel) ; Copie de secours du folio (command "_wblock" "C:/toto.dwg" "" "0,0" "_all" "" "_oops") (command "-wbloc" (vl-filename-mktemp (getvar "DWGNAME")) "" "0,0,0" (ssget "X" (list (cons 8 (strcat (itoa #FolioAktuel) "*"))))"") (command "_oops") ; Change de folio ! (@Folio-) ; Supprime les entités ; Détruit les calques ) ) ) J'ai le droit à ça : Commande: ; erreur: invalid AutoCAD command: nil Ou peut-être en VL ??? Merci [Edité le 10/7/2007 par stephan35]

Mes respects !!!! A+

C'est un bon début Bred ! Mais ....... (if (equal (substr $string 1 3) $recherche) Fige déjà une stucture de 1 à 3 charactère dans la méthode de recherche ?????? C'est pas bon ça !, ça nous oblige a faire un strlen pour calculer la longueur de la chaine ??? (@macro_remplace_texte "aaaaaapopopopoaaaa" "po" "iiiipo") ne fonctionne donc pas ! Reste inoptimisable ??? ou ce code serait-il déjà optimisé ???? Je ne vais pas te décourrager Bred ! tu tiens le bon bout !!!! ;) [Edité le 6/7/2007 par stephan35]

bon en fouillant un peu j'ai retrouvé ça : (defun @Macro_remplace_texte ($string $recherche $remplace / os osl ns nsl chf si sl st $result) (setq osl (strlen (setq os $recherche))) (setq nsl (strlen (setq ns $remplace))) (setq chf nil si 1 ) (while (= osl (setq sl (strlen (setq st (substr $string si osl))))) (if (= st os) (progn (setq $string (strcat (substr $string 1 (1- si)) ns (substr $string (+ si osl)) ) ) (setq chf t) (setq si (+ si nsl)) ) (setq si (1+ si)) ) ) (setq $result $string) ) Qui peut proposer mieux ? A+

Si c'est pour remplacer un caractère par un autre, tu as la fonction (vl-string-translate source-set dest-set str) Et aussi la fonction (vl-string-search pattern string [start-pos]) Et non, c'est vrai qu'avec les guillemets, on ne voit pas bien .... Je cherche à remplacer, plus exactement à rajouter un caractère devant une série d'autres caractère, ex: remplacer dans "oldoldoldoldold-old-old" la partie "old" par "Pold" , ce cas pose problèmes .... Merci

Merci patrick ! J'en profiterai pour tester l'outil benchmark .... A+