fabcad

pour sur mets la en ligne ! J'adore les polylignes dans le monde du SIG Fabcad

Pour la 2008 pas d'achat en vue par mon administration (nous sommes sur AutoDESK MAP 2005). En fonction de la hauteur et la largeur de la zone graphique, calculer l'échelle et adapter par un coefficient la hauteur des textes. Vérification au préalable du contrôle des unités. Cette routine me dépannerait beaucoup, je penses effectivement la lancer plutôt que l'exécuter en tant que réacteur, ce dernier était pour voir comment le programmer. A suivre...

Est-il possible avec les réacteurs de modifier la hauteur des textes en fonction d'un changement du facteur de zoom dans l'espace Modèle ou dans des fenêtres flottantes ? Merci pour vos propositions. Fabcad

Bonjour a tous, qu'est-ce que la propriété Direction des Textes Multilignes ? Merci pour vos infos. fabcad

Bonjour je cherche une Agence de formation sur une formation sur la connexion entre : Oracle Locator et AutoDESK MAP. Oracle Spatial et AutoDESK MAP. ArcSDE et AutoDESK MAP. Connexion, travail sur les objets, structure des données,etc... Merci pour vos informations. Fabcad

Merci à vous deux pour ces informations que je vais approfondir. Ces linéaires de voies seront plus vite dessinés. Fabcad

Bonjour j'ai commencé une routine de création de linéaires de voies mais je butte sur la boucle de la commande polyligne pour créer les sommets dans la fonction maitre CR_CENTERLINES. Cette dernière fonctionne avec la sous-routine new-point permet en sélectionnant les points de calculer le milieu du nouveau point du sommet de la polyligne. Merci pour vos infos, Voici le code en état : (defun new-point (/ Obj-pt-1 Obj-pt-2 coord-Obj-pt-1 coord-Obj-pt-2 ang-2pts moitié-dist new-pt new-pt-string) ;select Obj-pt-1 (while (= (setq Obj-pt-1 (nentsel "\n Choisir le 1er objet point : ")) nil)) ;select Obj-pt-2 (while (= (setq Obj-pt-2 (nentsel "\n Choisir le 2eme objet point : ")) nil)) (setq coord-Obj-pt-1 (cdr (assoc 10 (entget (car Obj-pt-1))))) (setq coord-Obj-pt-2 (cdr (assoc 10 (entget (car Obj-pt-2))))) ;(command "ligne" coord-Obj-pt-1 coord-Obj-pt-2 "") (setq ang-2pts (angle coord-Obj-pt-1 coord-Obj-pt-2)) (setq moitié-dist (/ (distance coord-Obj-pt-1 coord-Obj-pt-2) 2)) (setq new-pt (polar coord-Obj-pt-1 ang-2pts moitié-dist)) ;(setq new-pt-string (strcat (rtos (car new-pt) 2 2) "," (rtos (cadr new-pt) 2 2))) );fin defun new-point (defun c:CR_CENTERLINES (/ epais-poly mode-acc chx stp) (setq mode-acc (getvar "osmode")) (setq epais-poly (getvar "PLINEWID")) (setvar "cmdecho" 0) (setvar "osmode" 0) (setq pt (getpoint "\n Point de depart ") p1 pt) (command "polylign" pt "la" 1 1) (while (/= command nil) (progn (setq pt (new-point)) (command pt) ); fin progn (setq p1 pt) ); fin while (command "") (prompt "\n---COPYRIGHT Mars 2007 par Fabrice DEMIEL---") (setvar "osmode" mode-acc) (setvar "PLINEWID" epais-poly) (princ) ); fin defun c:CR_CENTERLINES

AutoCAD 2000 et Linux XGL sur Dernier rempart ?

Merci mais pas d'option séparateur sur la 2005 avec clic droit. [Edité le 24/2/2007 par fabcad]

Bonjour, Je cherche comment mettre des séparateurs sur les palettes d'outils ? Merci, fabcad

J'ai cherché dans ma bibliothèque de routines et j'ai retrouvé ceci : (prompt (strcat "\r Traitement de " (itoa i) " Objets sur " (itoa nbr) " Objets. ")) au lieu de : (princ (strcat "\nTraitement de " (itoa i) " sur " (itoa nbr))) merci

Pour rendre visible le traitement sur plusieurs objets je souhaiterais un message du type : X objets traités sur 36300 objets mais sur la même ligne au lieu de voir sur la ligne de commande : Traitement de 0 sur 6 Traitement de 1 sur 6 Traitement de 2 sur 6 Traitement de 3 sur 6 Traitement de 4 sur 6 Traitement de 5 sur 6 Etc... ma fonction de traitement étant : (defun traitement (js-textes / c1 i nbr) (setq table "ECRITURE_ATTRIBUT" field "TEXT_SIZE" recnum 0) (setq nbr (sslength js-textes)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js-textes i)) (setq ent (entget c1)) (setq ang (ade_odgetfield c1 table field recnum)) (setq ent (subst (cons 40 ang) (assoc 40 ent) ent)) (entmod ent) (princ (strcat "\nTraitement de " (itoa i) " sur " (itoa nbr))) (setq i (+ i 1)) ); fin 1er while (setvar "cmdecho" 1) );fin de traitement Merci pour vos infos de rappel fabcad

Voila ma routine que j'avais faite il y a fort longtemps, Voici le fichier DCL nomme ddchcase.dcl : CHCASSE : dialog { label = "Changer la casse"; : boxed_radio_column { key = "Boutons"; : radio_button { label = "Majuscule en début de phrase"; key = "MAJ-D"; } : radio_button { label = "Tout en minuscules"; key = "MINUSCULE"; } : radio_button { label = "Tout en majuscules"; key = "MAJUSCULE"; } : radio_button { label = "1ere lettre des mots en majuscule"; key = "1-MAJ"; } } ok_cancel; } Voici le fichier LISP nommé DDCHCASE.LSP : ; DDCHCASE.LSP ;--------------------------------------------------------------- ; Permet de changer la casse d'un ou plusieurs textes ;--------------------------------------------------------------- ; Le 24.02.99 - Fabrice DEMIEL. ;--------------------------------------------------------------- (defun c:ch-case (/ fic cou Ok) (setq j-sel (ssget '( (-4 . " (-4 . "") (-4 . "") (-4 . "") (-4 . "OR>") ) );ssget );fin setq j-sel (setq fic (load_dialog "Ddchcase.dcl")) (if (not (new_dialog "CHCASSE" fic)) (exit)) (action_tile "Boutons" "(setq cou $value)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq Ok (start_dialog)) (unload_dialog fic) (if (and (= 1 Ok) cou) (cond ((= cou "MINUSCULE") (progn (princ "\n---Tout en minuscules") (change T j-sel) );fin progn ) ((= cou "MAJUSCULE") (progn (princ "\n---Tout en MAJUSCULES") (change nil j-sel) );fin progn ) ((= cou "1-MAJ") (progn (princ "\n---1ere lettre des mots en majuscule") (majmin j-sel) );fin progn ) ((= cou "MAJ-D") (progn (princ "\n---Majuscule en début de phrase") (maj-1 j-sel) );fin progn ) );fin cond );fin if (prompt "\n---COPYRIGHT Février 1999 par Fabrice DEMIEL---") (princ) );fin defun ;;;------------------------------------------------------------ conversion MAJUSCULE en MINUSCULE et vice-versa ;;;------------------------------------------------------------ (defun change (ex js / tt m c1 i nbr) (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq m (cdr (assoc 1 (entget c1)))) (setq tt (strcase m ex)) (setq ent (subst (cons 1 tt) (assoc 1 ent) ent)) (entmod ent) (setq i (+ i 1)) ) (setvar "cmdecho" 1));fin defun change ;;;------------------------------------------------------------ (defun majmin (js / nbr i nom_ent ent chn chn-mod) (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq nom_ent (ssname js i)) (setq ent (entget nom_ent)) (setq chn (cdr (assoc 1 ent))) (setq chn-mod (t-ligne chn)) (setq ent (subst (cons 1 chn-mod) (assoc 1 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ); fin defun ;--------------------------------------------------------------- ; sous-fonction permettant la suppression des espaces superflus ; paramètre global : ch ; paramètres locaux : n i bul a b ;--------------------------------------------------------------- (defun SUP_ES (ch / n i bul a b) (setq n (strlen ch) b "") (if (/= n 0) (progn (setq i 1 bul t) (while (<= i n) (setq a (substr ch i 1)) (if (/= a " ") (progn (setq b (strcat b a)) (setq bul nil) );fin progn (if (= bul nil) (progn (setq b (strcat b a)) (setq bul t) ); fin progn );fin if );fin if (setq i (+ 1 i)) ); fin while (if (= (substr b (strlen b) 1) " ") (setq b (substr b 1 (- (strlen b) 1))) ); fin if ); fin progn ); fin if b ); fin ;;;------------------------------------------------------------------------ ;;; sous-fonction permettant la vérification de certains mots clés ;;; met en minuscules les articles. ;;; paramètre global : chn ;;; paramètres locaux : néant ;;;------------------------------------------------------------------------ (defun cle (chn) (cond ((= chn "De") (setq chn "de")) ((= chn "La") (setq chn "la")) ((= chn "DE") (setq chn "de")) ((= chn "LA") (setq chn "la")) ((= chn "de") (setq chn "de")) ((= chn "la") (setq chn "la")) ((= chn "DU") (setq chn "du")) ((= chn "du") (setq chn "du")) ((= chn "Du") (setq chn "du")) ((= chn "Et") (setq chn "et")) ((= chn "LE") (setq chn "Le")) ((= chn "Au") (setq chn "au")) ((= chn "A") (setq chn "à")) ((= chn "Aux") (setq chn "aux")) ((= chn "AUX") (setq chn "aux")) ((= chn "Dans") (setq chn "dans")) ((= chn "DANS") (setq chn "dans")) ((= chn "DES") (setq chn "des")) ((= chn "des") (setq chn "des")) ((= chn "Des") (setq chn "des")) ((= chn "SUR") (setq chn "sur")) ((= chn "SOUS") (setq chn "sous")) ((= chn "sur") (setq chn "sur")) ((= chn "sous") (setq chn "sous")) ((= chn "ALLEE") (setq chn "Allée")) ((= chn "Allee") (setq chn "Allée")) ((= chn "allee") (setq chn "Allée")) ((= chn "St") (setq chn "St")) ((= chn "CITE") (setq chn "Cité")) ((= chn "COTE") (setq chn "Côté")) ((= chn "Cote") (setq chn "Côté")) ((= chn "Coté") (setq chn "Côté")) ((= chn "Cite") (setq chn "Cité")) ((= chn "cite") (setq chn "Cité")) ((= chn "Sncf") (setq chn "S.N.C.F.")) ((= chn "Za") (setq chn "ZA")) ((= chn "Zi") (setq chn "ZI")) ((= chn "DEPURATION") (setq chn "d'Epuration")) );fin cond chn );fin cle ;;;------------------------------------------------------------------------ ;;; sous-fonction permettant de changer la casse d'une ligne ;;; chaque mot est vérifié par la sous-fonction MAJ ;;; vérifie les signes de ponctuation entre chaque mot de la ligne. ;;; paramètre global : chaine ;;; paramètres locaux : lg-chaine mot carac i phrase ;;;------------------------------------------------------------------------ (defun t-ligne (chaine / lg-chaine mot carac i phrase) ; longueur numérique de la chaine (setq lg-chaine (strlen chaine)) (setq i 1 mot " " phrase " ") ;parcours de la chaine du 1er au dernier caractère (while (<= i lg-chaine) ;Test si le caractere courant est different ;d'1 caractere de ponctuation (if (= (member (setq carac (substr chaine i 1)) '(" " "\\P" "\\L" "<" "," "-" "_" ":" "." "/" "|" "(" "(chr 34)")) nil) ; concaténation normale (setq mot (strcat mot carac)) ; sinon concaténation avec le signe de ponctuation (progn (setq ca (substr chaine i 1)) (setq mot (substr mot 2)) (if (/= mot (cle mot)) ; différents tests sur le mot en cours (setq mot (cle mot)) (setq mot (maj mot)));fin if (setq phrase (strcat phrase (sup_es mot) ca)) (setq mot " ") );fin progn );fin si (setq i (1+ i)) );fin while (if (/= mot " ") (progn (setq mot (substr mot 2)) (if (/= mot (cle mot)) (setq mot (cle mot)) (setq mot (maj mot)));fin if (setq phrase (strcat phrase (sup_es mot))) );fin progn );fin si (setq phrase (SUP_ES phrase)) );fin defun verif-ligne ;;;------------------------------------------------------------------------ ;;;------------------------------------------------------------------ ;;; sous-fonction permettant de changer la casse d'un mot ;;; vérifie si les deux premiers caractères sont égaux ;;; à lettre + apostrophe. ;;; paramètre global : txte paramètres locaux : néant ;;;------------------------------------------------------------------------ (defun maj (txte /) ; si les deux premiers caractères du mot ne sont pas dans la liste (if (= (member (substr txte 1 2) '("D'" "L'" "l'" "d'" "\\L" "\\P")) nil) ; faire une casse normale (progn (setq txte (strcat (strcase (substr txte 1 1)) (strcase (substr txte 2) T))); fin setq txte );fin 1er progn ; sinon faire une casse en prévoyant l'apostrophe (progn (setq txte (strcat (strcase (substr txte 1 2) T) (strcase (substr txte 3 1)) (strcase (substr txte 4) T)) ); fin setq txte );fin 2eme progn );fin if );fin defun ;;;------------------------------------------------------------------ (defun maj-1 (js /) (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq nom_ent (ssname js i)) (setq ent (entget nom_ent)) (setq chn (cdr (assoc 1 ent))) (setq chn-mod (maj chn)) (setq ent (subst (cons 1 chn-mod) (assoc 1 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) ); fin defun ;;;------------------------------------------------------------------ (prompt "\nFonction chargée- Pour lancer tapez : ch-case") (prin1)

Super y aurait-il la même chose en Vlisp ? Pour le fun merci Fabcad

J'ai réalisé une routine : Si les Superlispeurs pouvaient l'améliorer (en vlisp par exemple et les gestions d'erreurs). Bonne utilisation (defun traitement (js / max-increment i d) ; Demande d'un entier pour la valeur maximale pour incrémenter (setq max-increment (getint "\n Entrez le nombre maximal pour l'incrément : ")) ; Distance entre les textes qui vont être crées (setq d (getdist "\n Distance entre les textes : ")) ; Angle Pour la Direction (initget (+ 1 4)) (setq ang1 (getangle "\n Angle de Direction sur les Y ou les X : ")) (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (setq ent (entget c1)) ;Attention cette ligne est interprétée uniquement par AutoDESK MAP ; A remplacer par (setq INDEX (cdr (assoc 1 (entget c1)))) (setq INDEX (ade_expreval c1 ".STRING" "string")) (setq NEW-INDEX (strcat INDEX " ")) ; A VERIFIER OU COMPLETER SI LA JUSTIFICATION EST GAUCHE (setq PTI (cdr (assoc 11 (entget c1)))) (setq pt-texte (polar PTI ang1 d)) (setq INDEX-EN-COURS (strcat NEW-INDEX (itoa 1))) ;1er texte créé ; A VERIFIER OU COMPLETER SI LA HAUTEUR DU STYLE DE TEXTE EN COURS EST EGALE A 0 (command "texte" "j" "MC" pt-texte "0" INDEX-EN-COURS) (setq j 2) (while (<= j max-increment) (setq dernier-PT (cdr (assoc 11 (entget (entlast))))) (setq pt-texte (polar dernier-PT ang1 d)) ; Valeur de la chaine de caractères en cours (setq INDEX-EN-COURS (strcat NEW-INDEX (itoa j))) ; A VERIFIER OU COMPLETER SI LA HAUTEUR DU STYLE DE TEXTE EN COURS EST EGALE A 0 (command "texte" "j" "MC" pt-texte "0" INDEX-EN-COURS) (setq j (+ j 1)) ); fin while (setq i (+ i 1)) ); fin while (setvar "cmdecho" 1) );fin de traitement (defun c:textes-limites (/) (setvar "cmdecho" 0) (setq js (ssget '( (-4 . " (-4 . " (0 . "TEXT") (-4 . "AND>") (-4 . " (0 . "MTEXT") (-4 . "AND>") (-4 . "OR>") ) );ssget );fin setq js (prompt (strcat "\nNombre de textes : " (rtos (setq nbr (sslength js)) 2 0))) (if js (traitement js)) (prompt "\n---COPYRIGHT 01/07 par Fabrice DEMIEL---") nil (prin1) );fin de c:textes-limites

Ayant un tableau de limites a créer pour une impression sous autodesk map, j'ai en abcisse une série de lettres (objets textes AutoCAD) de A à ... et en ordonnée une série de nombres (objets textes AutoCAD) de 1 à ... , je souhaiterais une fonction lisp ou vlisp pour ecrire à l'intersection la concaténation de la lettre et du nombre sous la forme d'un texte comme BY 125. Ou n'ayant en abcisse la série de lettres (objets textes AutoCAD) de A à ... faire en sorte d'écrire avec un pas vertical vers le haut ou vers le bas. exemple : A B C D E F G .......... AB ......... ZZ A 1 B 1 C 1 D 1 E 1 F 1 G 1 ..........AB 1 .........ZZ 1 A 2 B 2 C 2 D 2 E 2 F 2 G 2 ..........AB 2 .........ZZ 2 A 3 B 3 C 3 D 3 E 3 F 3 G 3 ..........AB 3 .........ZZ 3 etc... merci pour votre collaboration. fabcad

Meilleurs voeux à tous les membres du site cadxp fabcad

merci à gile pour cette première ébauche cela fonctionne vraiment bien. Dans cette fonction pourrait-on créer une deuxième routine pour transformer ces regions englobantes en polylignes englobantes. A la solution de LUDWIG il s'avère qu'après test il ne crée que des contours aléatoires (copies de parcelles et quelques polylignes englobantes. Merci d'avance et quel brio.

Pour LECRABE Oui c'est à partir de N polylignes parcelles closes de générer la polyligne close "englobante" ? bien sur avec un autocad. Cela est fastidieux de convertir un grand nombre de parcelles en régions puis de les fusionner. Je patiente...

Auriez vous une routine ou des bouts de programme qui fusionne plusieurs polylignes fermées en une seule. Merci d'avance...

Un coup de calgon une fois et voici le travail : 1 - Quitter AutoCAD 2 - Dans un bloc notes copier coller et enregistrer sous acetmain.mns 3 dans le dossier support : - renommer l'ancien acetmain.mns en acetmain.old et effacer le acetmain.mnc 4 - copier dans ce dossier le nouveau acetmain.mns 5 - Relancez AutoCAD // // AutoCAD fichier de menu - C:\Documents and Settings\utilisateur\Application Data\Autodesk\Autodesk Map 3D 2005\R16.1\fra\support\acetmain.mnu // ***MENUGROUP=EXPRESS ***POP1 ID_MNEXPRESS [E&xpress] ID_MNACETLAY [->&Calques] ID_ACETLAYMAN [&Gestionnaire de Calques...]^C^Clman ID_ACETLAYWLK [Gestionnaire de Calques en temps réel...]^C^C_.laywalk [--] ID_ACETLAYMCH [Changer le Calque]^C^Claymch ID_ACETLAYCUR [Changer en Calque courant]^C^Claycur ID_ACETCOPYTO [Copier des Objects vers un nouveau Calque]^C^Ccopytolayer [--] ID_ACETLAYISO [isoler les Calques]^C^Clayiso ID_ACETLAYVPI [isoler le Calque dans la fenêtre courante]^C^Clayvpi [--] ID_ACETLAYOFF [Désactiver les Calques]^C^Clayoff ID_ACETLAYON [Activer tous les Calques]^C^Clayon [--] ID_ACETLAYFRZ [Geler les Calques]^C^Clayfrz ID_ACETLAYTHW [Liberer tous les Calques]^C^Claythw [--] ID_ACETLAYLCK [Verrouiller les Calques]^C^Claylck ID_ACETLAYULK [Deverrouiller les Calques]^C^Clayulk [--] ID_ACETLAYMRG [Fusionner les Calques]^C^Claymrg ID_ACETLAYDEL [<-Supprimer les Calques]^C^Claydel ID_MNACETBLK [->&Blocs] ID_ACETXRFLST [Afficher les Propriétés des Xref/Blocs ]^C^Cxlist [--] ID_ACETNCOPY [&Copier des objets inclus dans un bloc ou une xref]^C^Cncopy ID_ACETTRMBLK [Ajuster jusqu'à une entité d'un bloc ou une xref]^C^Cbtrim ID_ACETEXTBLK [Prolonger jusqu'à une entité d'un bloc ou une xref]^C^Cbextend [--] ID_ACETBURST [Décomposer les Attributs d'un bloc en Textes]^C^Cburst ID_ACETSHPBLK [Convertir une forme en Bloc]^C^Cshp2blk [--] ID_ACETATTOUT [Exporter les Informations d'Attributs]^C^Cattout ID_ACETATTIN [importer les Informations d'Attributs]^C^Cattin [--] ID_ACETBLOCKTOXREF [Convertir bloc en xref]^C^Cblocktoxref ID_ACETBLOCKREPLACE [<-Remplacer des blocs avec un autre bloc]^C^Cblockreplace ID_MNACETTEXT [->Textes] ID_ACETRTEXT [RTexte]^C^Crtext ID_ACETTXTFIT [Etirer des Textes]^C^Ctextfit [--] ID_ACETTXTMSK [Masque de Texte]^C^Ctextmask ID_ACETTXTUMSK [Démasquer des Textes]^C^Ctextunmask [--] ID_ACETTXTEXP [Décomposer les Textes]^C^Ctxtexp ID_ACETTXT2MT [Convertir des Textes en TextesMultilignes]^C^Ctxt2mtxt ID_ACETARCTXT [Texte en Arc]^C^C_.arctext [--] ID_ACETTJUST [Justification de Textes]^C^Ctjust ID_ACETTORIEN [Pivoter des Textes]^C^Ctorient ID_ACETTCIRCL [Encadrer des Textes]^C^Ctcircle ID_ACETTCOUNT [Numérotation automatique de Textes]^C^Ctcount [--] ID_MNACETTCASE [<-Changer la Casse de Textes]^C^Ctcase ID_MNACETLOUT [->Outils de présentation] ID_ACETCHSPAC [Changer d'Espace]^C^Cchspace [--] ID_ACETASPACE [Aligner les Espaces]^C^Calignspace ID_ACETVPSYNC [synchroniser des Fenêtres]^C^Cvpsync [--] ID_ACETVPSCAL [Afficher l'echelle d'une fenêtre]^C^Cvpscale [--] ID_ACETLAYOUTMRG [<-Fusionner des présentations]^C^Clayoutmerge ID_MNACETDIM [->Cotations] ID_ACETLEADER [->Outils de Repères] ID_ACETQLATCH [Attacher un Repère à une Annotation]^C^C_.qlattach ID_ACETQLDTCH [Detacher des Repères d'une Annotation]^C^C_.qldetachset ID_ACETQLATAL [<-Associer des Repères avec des Annotations]^C^C_.qlattachset [--] ID_ACETDIMEX [Exporter des Styles de Cotations...]^C^C_.dimex ID_ACETDIMIM [importer des Styles de Cotations...]^C^C_.dimim [--] ID_ACETDIMASSOC [<-Supprimer les valeurs des cotations forcées]^C^Cdimreassoc ID_MNACETSEL [->Outils de Selection] ID_ACETGETSEL [Obtenir un jeu de Selection]^C^Cgetsel ID_ACETFSTSEL [<-Selection Rapide]'fs ID_MNACETMOD [->Modifier] ID_ACETMSTRCH [Etirer Multiple]^C^Cmstretch ID_ACETMOCORO [Déplacer/Copier/Rotation]^C^C_.MOCORO ID_ACETCLIPIT [Délimiter un bloc ou une Xref]^C^Cclipit [--] ID_ACETSHPBLK [Convertir une forme en Bloc]^C^Cshp2blk ID_ACETCDORDER [Ordre de tracé par Couleur]^C^Ccdorder [--] ID_ACETOVERKILL [supprimer les doublons]^C^Coverkill ID_ACETFLATTEN [Applatir les objets]^C^CFlatten [--] ID_ACETCOPYM [Copier Multiple]^C^Ccopym ID_MNACETEXOFFSET [<-Décalage Etendu]^C^Cexoffset ID_MNACETDRAW [->Dessiner] ID_ACETBREAKL [symbole de Ligne Brisée]^C^Cbreakline ID_ACETSHATCH [<-Super Hachures...]^C^Csuperhatch ID_MNACETFTOOL [->Outils sur les fichiers] ID_ACETMOVEBAK [Déplacer les fichiers BAK]^C^Cmovebak [--] ID_ACETPLT2DW [Convertir des PLT en DWG]^C^Cplt2dwg ID_ACETIMGEDT [Editer une Image]^C^Cimageedit [--] ID_ACETREDIR [Redefinir les Chemins]^C^Credir [--] ID_ACETPROPULATE [Mise à jour des propriétés du Dessin]^C^CPropulate ID_ACETSAVEALL [sauvegarder tous les Dessins]^C^Csaveall ID_ACETCLOSEALL [Fermer tous les Dessins]^C^Ccloseall ID_ACETQQUIT [Fermeture rapide]^C^Cqquit ID_ACETREVERT [<-Revenir à la version Originale]^C^Crevert ID_MNACETNET [->Outils Internet] ID_ACETSHWURL [Montrer les Liens]^C^Cshowurls ID_ACETCHGURL [Changer les Liens]^C^Cchurls ID_ACETREPURL [<-Trouver et remplacer les Liens]^C^Crepurls ID_MNACETTOOL [->Outils] ID_ACETALIAS [Editeur des Alias de Commandes...]^C^Caliasedit ID_ACETSYSVAR [Editeur des Variable Systeme...]^C^C_.sysvdlg [--] ID_ACETMKLTYP [Créer des Types de Lignes]^C^Cmkltype ID_ACETMKSHAP [Créer des Formes]^C^Cmkshape [--] ID_ACETRTUCS [sCU en temps réel]^C^Crtucs [--] ID_ACETXDATA [Attacher des Xdata]^C^Cxdata ID_ACETXDLIST [Lister des Xdata]^C^Cxdlist [--] ID_ACETFSCREEN [Plein Ecran]^C^Cfullscreen [--] ID_MNACETEXPLAN [Repère Etendu]^C^Cexplan [--] ID_ACETEDITTIME [<-Temps d'Edition d'un DWG]^C^Cedittime ID_AFRACOM [->Sur Ligne de Commande] ID_AFRABLOCK [Renseignements de Bloc]^C^CBlock? ID_AFRACDORDER [Ordre d'affichage par couleur]^C^CCDOrder ID_AFRAEXTRIM [&Ajuster à l'emporte pièce]^c^cExTrim ID_AFRAFLATTEN [Mise à plat]^C^CFlatten ID_AFRAGATTE [&Modificateur de valeur d'attribut]^C^CGatte ID_AFRAJULIAN [&Julian]^C^CDate ID_AFRALSP [&Gestionnaire LISP]^C^CLSP ID_AFRALSPSURF [Viewer LISP]^C^CLSPSURF ID_AFRAMPEDIT [M&PEdit]^C^CMPEDIT ID_AFRAOVERKILL [suppression de doublons]^C^COVERKILL ID_AFRAREDIRMODE [Gestionnaire chemins]^C^CREDIRMODE ID_AFRASSX [selection Etendue]^c^cSSX ID_AFRATFRAMES [<-Gestion des cadres des images et des Wipeouts]^C^Ctframes ID_MNACETWEB [->Liens Internet] ID_MNACETWEXP [E&xpress Tools Web site]^C^C_.browser http://www.autodesk.com/expresstools ID_MNACETNEWS [Express Tools &Newsgroup]^C^C_.browser news://discussion.autodesk.com/autodesk.expresstools [--] ID_MNACETWPRO [<-&Autodesk Products and Support Website]^C^C_.browser http://www.autodesk.com/products ID_MNACETFAQ [Express Tools &FAQ]^C^C^P(acet-help "faq") ^P [--] ID_MNACETHELP [&Help]^C^C^P(acet-help) ^P ***TOOLBARS **TB_EXPRESS_TOOLS_LAYER_TOOLBAR **TB_ET:_LAYERS ID_TBACETLAY [_Toolbar("ET: Layers", _Floating, _Show, 187, 170, 1)] ID_ACETLAYMAN [_Button("Layer Manager", "et_LAYMAN16.BMP", "et_LAYMAN24.BMP")]^C^Clman ID_ACETLAYMCH [_Button("Match Object's Layer", "et_mchlay16.BMP", "et_mchlay24.BMP")]^C^Claymch ID_ACETLAYCUR [_Button("Change to Current Layer", "et_curlay16.BMP", "et_curlay24.BMP")]^C^Claycur ID_ACETLAYISO [_Button("Isolate Object's Layer", "et_LAYISO16.BMP", "et_LAYISO24.BMP")]^C^Clayiso ID_ACETCOPYTO [_Button("Copy Objects to New Layer", "et_COPYTO16.BMP", "et_COPYTO24.BMP")]^C^Ccopytolayer ID_ACETLAYWLK [_Button("Layer Walk", "et_wlklay16.BMP", "et_wlklay24.BMP")]^C^C_.laywalk [--] ID_ACETLAYFRZ [_Button("Freeze Object's Layer", "et_frzlay16.BMP", "et_frzlay24.BMP")]^C^Clayfrz ID_ACETLAYOFF [_Button("Turn Object's Layer Off", "et_offlay16.BMP", "et_offlay24.BMP")]^C^Clayoff ID_ACETLAYLCK [_Button("Lock Object's Layer", "et_lcklay16.BMP", "et_lcklay24.BMP")]^C^Claylck ID_ACETLAYULK [_Button("Unlock Object's Layer", "et_ulklay16.BMP", "et_ulklay24.BMP")]^C^Clayulk **TB_EXPRESS_TOOLS_TEXT_TOOLBAR **TB_ET:_TEXT ID_TBACETTEXT [_Toolbar("ET: Text", _Floating, _Show, 110, 208, 1)] ID_ACETTXTFIT [_Button("Text Fit", "et_TXTFIT16.BMP", "et_TXTFIT24.BMP")]^C^Ctextfit ID_ACETTXTMSK [_Button("Text Mask", "et_TXTMSK16.BMP", "et_TXTMSK24.BMP")]^C^Ctextmask ID_ACETTXTEXP [_Button("Explode Text", "et_txtexp16.BMP", "et_txtexp24.BMP")]^C^Ctxtexp ID_ACETARCTXT [_Button("Arc-Aligned Text", "et_ARCTXT16.BMP", "et_ARCTXT24.BMP")]^C^C_.arctext **TB_EXPRESS_TOOLS_BLOCK_TOOLBAR **TB_ET:_BLOCKS ID_TBACETBLK [_Toolbar("ET: Blocks", _Floating, _Show, 286, 208, 1)] ID_ACETNCOPY [_Button("Copy Nested Objects", "et_NCOPY16.BMP", "et_NCOPY24.BMP")]^C^Cncopy ID_ACETTRMBLK [_Button("Trim to Nested Objects", "et_TRMBLK16.BMP", "et_TRMBLK24.BMP")]^C^Cbtrim ID_ACETEXTBLK [_Button("Extend to Nested Objects", "et_EXTBLK16.BMP", "et_EXTBLK24.BMP")]^C^Cbextend ID_ACETXRFLST [_Button("List Xref/Block Properties", "et_XRFLST16.BMP", "et_XRFLST24.BMP")]^C^Cxlist ID_ACETCLIPIT [_Button("Extended Clip", "et_CLIPIT16.BMP", "et_CLIPIT24.BMP")]^C^Cclipit ID_ACETBURST [_Button("Explode Attributes to Text", "et_BURST16.BMP", "et_BURST24.BMP")]^C^Cburst **TB_EXPRESS_TOOLS_STANDARD_TOOLBAR **TB_ET:_STANDARD ID_TBACETTOOL [_Toolbar("ET: Standard", _Floating, _Show, 135, 132, 1)] ID_ACETMSTRCH [_Button("Multiple Object Stretch", "et_MSTRCH16.BMP", "et_MSTRCH24.BMP")]^C^Cmstretch ID_ACETMOCORO [_Button("Move/Copy/Rotate", "et_MOCORO16.BMP", "et_MOCORO24.BMP")]^C^C_.MOCORO [--] ID_ACETSHATCH [_Button("Super Hatch", "et_SHATCH16.BMP", "et_SHATCH24.BMP")]^C^Csuperhatch ID_ACETTFRAME [_Button("Toggle Frames", "et_TFRAME16.BMP", "et_TFRAME24.BMP")]^C^Ctframes ID_ACETSHWURL [_Button("Show URLs", "et_SHWURL16.BMP", "et_SHWURL24.BMP")]^C^Cshowurls ID_ACETBREAKL [_Button("Break-line Symbol", "et_BREAKL16.BMP", "et_BREAKL24.BMP")]^C^Cbreakline [--] ID_ACETFSTSEL [_Button("Fast Select", "et_FSTSEL16.BMP", "et_FSTSEL24.BMP")]'fs [--] ID_ACETCOPYM [_Button("Multiple Copy", "et_COPYM16.BMP", "et_COPYM24.BMP")]^C^Ccopym ***HELPSTRINGS ID_MNACETTSPACEINVADE [Trouve et selectionne des textes qui has overlapping objects: TSPACEINVADERS] ID_ACETOVERKILL [Cleans up overlapping geometry by removing duplicated and/or unneeded objects: OVERKILL] ID_ACETTXT2MT [Convertir des textes crées avec TEXTE or DTEXTE en TEXTEMULTILIGNE: TXT2MTXT] ID_ACETMOCORO [Deplacement, Copie, Rotation et Mise à l'échelle d'objets: MOCORO] ID_ACETPSBSCALE [sets or Updates the scale of blocks relative to paper space: PSBSCALE] ID_ACETBLOCKTOXREF [Convert a specified block and all of inserts of it to an xref: BLOCKTOXREF] ID_ACETTCOUNT [Adds sequential numbering to text objects: TCOUNT] ID_ACETTORIEN [Rotates text, multiline text, and block attribute objects to new orientation: TORIENT] ID_ACETTFRAME [Toggles frames for images and wipeouts: TFRAMES] ID_ACETXDLIST [Lists the extended object data (xdata) attached to an object: XDLIST] ID_ACETLAYFRZ [Layers of selected object(s) will be frozen: LAYFRZ] ID_ACETATTOUT [Extracts attribute information from the drawing: ATTOUT] ID_ACETBREAKL [Creates polylines and inserts break-line symbol: BREAKLINE] ID_ACETCHGURL [Modifies URL addresses: CHURLS] ID_ACETLAYVPI [isolates object's layer to current viewport: LAYVPI] ID_ACETSHATCH [uses images, blocks, external references, or wipeouts as hatch patterns: SUPERHATCH] ID_ACETARCTXT [Creates text following a selected arc: ARCTEXT] ID_ACETLAYOFF [Layers of selected object(s) will be turned off: LAYOFF] ID_MNACETTSCALE [scales or sets the height for text, multiline text, attributes, and attribute definitions: TSCALE] ID_ACETATTIN [inserts attribute information into the drawing: ATTIN] ID_ACETMKLTYP [Creates a linetype based on selected objects: MKLTYPE] ID_ACETFSCREEN [switches AutoCAD between full-screen and window displays: FULLSCREEN] ID_ACETFLATTEN [Converts 3D geometry to 2D: FLATTEN] ID_ACETSHWURL [shows the location of embedded URL addresses: SHOWURLS] ID_ACETPLT2DW [imports HP-GL files into the current drawing session: PLT2DWG] ID_ACETTXTEXP [Explodes text into polylines: TXTEXP] ID_ACETLAYCUR [Changes the layer of selected object(s) to the current layer: LAYCUR] ID_ACETBLOCKREPLACE [Replace all inserts of one block with inserts of another: BLOCKREPLACE] ID_ACETCOPYTO [Copies entities to different layer: COPYTOLAYER] ID_ACETQLDTCH [Dissassociates selected leaders from an annotation: QLDETACHSET] ID_ACETLAYTHW [Thaws all layers in drawing: LAYTHW] ID_ACETLAYMCH [Changes the layer of selected object(s) to the layer of a selected destination object: LAYMCH] ID_MNACETEXOFFSET [Enhances OFFSET: EXOFFSET] ID_ACETCOPYM [Copies objects multiple times with options to repeat, divide, measure, and array: COPYM] ID_ACETLAYOUTMRG [Merges the objects from other layouts into one layout and saves corresponding views: LAYOUTMERGE] ID_ACETREDIR [Redefines the paths in external references, images, shapes, and fonts: REDIR] ID_ACETEXTBLK [Extends to objects nested in blocks and external references: BEXTEND] ID_ACETLAYMRG [Merges two layers removing the first layer from the drawing: LAYMRG] ID_MNACETEXPLAN [Enhances PLAN: EXPLAN] ID_MNACETPSTSCALE [sets text height relative to paper space: PSTSCALE] ID_MNACETTCASE [Changes the case of selected text: TCASE] ID_ACETTCIRCL [surrounds text or multiline text with circles, slots, or rectangles: TCIRCLE] ID_ACETIMGEDT [Launches an image editor application for editing a selected image: IMAGEEDIT] ID_ACETDIMEX [saves dimension styles to a file: DIMEX] ID_ACETTXTFIT [Fits text between specified points: TEXTFIT] ID_ACETXRFLST [Displays properties of objects nested in blocks and external references: XLIST] ID_ACETLAYULK [Layer of selected object will be unlocked: LAYULK] ID_ACETLAYLCK [Layer of selected object will be locked: LAYLCK] ID_ACETDIMASSOC [Re-associates dimensions: DIMREASSOC] ID_ACETMOVEBAK [Moves saved AutoCAD backup files to a directory: MOVEBAK] ID_ACETMKSHAP [Creates a shape based on selected objects: MKSHAPE] ID_ACETFSTSEL [selects objects that touch a specified object: FS] ID_MNACETHELP [Displays Help for the AutoCAD Express Tools.] ID_ACETQLATCH [Associate a leader to an annotation object: QLATTACH] ID_MNACETBUG [sends a bug report about a Beta issue to the AutoCAD Express Tools team: ETBUG] ID_ACETEDITTIME [Tracks total active editing time in drawing: EDITTIME] ID_ACETREPURL [Replaces URL addresses with others: REPURLS] ID_MNACETFAQ [Displays an FAQ for AutoCAD Express Tools.] ID_ACETDIMIM [imports dimension styles saved to a file using DIMEX: DIMIM] ID_ACETTRMBLK [Trims to objects nested in blocks and external references: BTRIM] ID_ACETLAYISO [Layers of selected object(s) will be isolated: LAYISO] ID_ACETLAYWLK [isolates each layer: LAYWALK] ID_ACETCHSPAC [Moves objects between model space and paper space: CHSPACE] ID_ACETGETSEL [selects specific types of objects: GETSEL] ID_ACETCLOSEALL [Closes all open drawings: CLOSEALL] ID_ACETASPACE [Aligns model space objects in different viewports with each other or with objects in paper space: ALIGNSPACE] ID_MNACETNEWS [Launches a news reader and displays the AutoCAD Express Tools newsgroup.] ID_ACETQQUIT [Closes all drawings and exits: QQUIT] ID_ACETLSP [Lisp function and command searching utility: LSP] ID_ACETPROPULATE [updates, lists, and clears drawing property information: PROPULATE] ID_ACETREVERT [Closes the current drawing and re-opens the original version: REVERT] ID_ACETTJUST [Justifies text created with MTEXT and ATTDEF: TJUST] ID_ACETVPSYNC [synchronizes one or more viewports with a master viewport: VPSYNCH] ID_ACETVPSCAL [Lists the scale of a selected viewport: VPSCALE] ID_ACETTXTMSK [Places a mask behind selected text: TEXTMASK] ID_ACETTXTUMSK [Removes a mask from behind selected text: TEXTUNMASK] ID_ACETRTEXT [inserts or edits a remote text object: RTEXT] ID_MNACETWVIP [Launches a web browser and displays the AutoCAD Express Tools website.] ID_ACETALIAS [Launches an editor for aliases stored in the AutoCAD.pgp file: ALIASEDIT] ID_ACETLAYMAN [Layer Manager saves and restores layer settings: LMAN] ID_ACETBSCALE [scale blocks from insertion points: BSCALE] ID_ACETLSPSURF [Lisp file viewing utility: LSPSURF] ID_ACETCDORDER [Aranges draw order of objects based on color: CDORDER] ID_ACETSHPBLK [Converts from a shape definition to a block definition: SHP2BLK] ID_MNACETWPRO [Launches a web browser and displays the Autodesk Products website.] ID_ACETQLATAL [Associates selected leaders with a likely annotation: QLATTACHSET] ID_ACETBURST [Explodes block and converts attributes to text: BURST] ID_ACETSAVEALL [saves all open drawings: SAVEALL] ID_ACETRTUCS [Changes the UCS in real time: RTUCS] ID_MNACETWSUP [Launches web browser and loads the Autodesk support Web site.] ID_MNACETWEXP [Launches web browser and loads the AutoCAD Express Tools Web site.] ID_ACETSYSVAR [Launches an editor for system variables: SYSVDLG] ID_ACETMSTRCH [stretches objects with multiple selection windows: MSTRETCH] ID_ACETNCOPY [Copies objects nested inside blocks and external references: NCOPY] ID_ACETLAYON [Turns on all layers in drawing: LAYON] ID_ACETLAYDEL [Permanently deletes layer from drawing: LAYDEL] ID_ACETXDATA [Attaches extended object data (xdata) to an object: XDATA] ID_ACETCLIPIT [Adds arc, circle, and polyline capability to XCLIP: CLIPIT] ID_AFRABLOCK [Lists the objects in a block definition.] ID_AFRABCOUNT [Counts, itemizes, and displays in tabular form, the number of insertions of each block in the selected objects or in the entire drawing. ] ID_AFRACDORDER [Arranges the drawing order of objects by color number] ID_AFRADWGLOG [Creates and maintains an individual log file for each drawing file as it is accessed. ] ID_AFRAEXTRIM [Trims all objects at the cutting edge specified by a selected Polyline, Line, Circle, Arc, Ellipse, Text, mtext, or Attribute Definition. ] ID_AFRAFLATTEN [Converts 3D geometry to 2D geometry] ID_AFRAGATTE [Globally changes attribute values for all insertions of a specific block.] ID_AFRAJULIAN [AutoCAD Julian date / calendar date conversion routines. ] ID_AFRALSP [Displays a list of AutoLISP commands available at the command prompt. ] ID_AFRALSPSURF [Displays the contents of an AutoLISP file by individual functions.] ID_AFRAMPEDIT [Fonctionne comme PEDIT mais sur plusieures polylignes. Convertie les objets lignes et les arcs en polylignes. ] ID_AFRAOVERKILL [Removes unneeded objects by deleting duplicates and combining line and arc segments that overlap.] ID_AFRAREDIRMODE [sets options for the REDIR command by specifying which object types the command should act on.] ID_AFRASSX [Creates a selection set] ID_AFRATFRAMES [Toggles the state of frames for Wipeout and image objects. If frames are turned on, this command turns them off, and vice versa. ] ID_AFRALISP [AfraLisp-AutoLisp, Visual Lisp, VBA, VB Website] ID_AFRAAUGAFRICA [AutoCAD Users Group Africa] ID_AFRABEDROCK [bedRock - The Band In The Sand] // // Fin du fichier de menu AutoCAD - C:\Documents and Settings\utilisateur\Application Data\Autodesk\Autodesk Map 3D 2005\R16.1\fra\support\acetmain.mnu // Bonne utilisation

Hello Patrick, Je vois que nous avons les mêmes idées, je sais qu'il existe des applications mais payantes. Même des débuts de codes peuvent m'intéresser. merci d'avance...

Bonjour les super programmeurs, Pourrait-on créer une fonction qui permettrait de déplacer automatiquement des textes, des multi-textes ou des attributs de blocs visibles si leur cadre s'intersecte avec un objet. De les mettre là ou il y a de la place... merci pour vos bouts de programmes. fabcad

Le logiciel que j'utilise c'est Ant Renamer mais avec avec la fonction Imprimer un ensemble de cartes d'AutoDESK MAP, celle-ci utilise des requêtes pour afficher et traiter des objets, nous n'avons pas la main alors si j'imprime plusieurs cartes avec une présentation papier le fichier dwf est écrasé. C'est pourquoi je souhaite ce petit programme. To be continued... [Edité le 22/11/2006 par fabcad]

Bonsoir, Je souhaiterais un programme qui une fois chargé contrôlerait la création d'un fichier DWF dans un dossier et de le renommer avec l'heure de sa création sur le disque dur comme dans l'exemple ci-dessous : Dessin1-Présentation1.dwf en Fichier-13H54.dwf Ceci pour avoir une liste de dessins DWF et de pouvoir les renommer en seule fois avec une liste de noms de fichiers explicite par un logiciel de "renommage". Par exemple Plan-001.dwf, Plan-002.dwf, Plan-00N.dwf. Merci pour votre aide, [Edité le 21/11/2006 par fabcad]