-Olivier-

Bonjour, Tu peux utiliser des côtes et textes annotatifs pour qu'ils s'adapte à ton échelle. Une recherche sur le site et dans l'aide d'autocad devrait te permettre de te familiariser avec le concept. Au cas où tu serais récalcitrant à cette méthode, (je le suis :P ) tu peux créer plusieurs styles de cotations et styles de textes. Pour ma part je prend une taille de texte situé entre 1.8 et 2.5mm dans l'espace papier (il suffit de mesurer une majuscule avec la commande distance). La mise à l'échelle des annotations d'un dessin est un roman fleuve. Regarde les différentes méthodes et demande nous des renseignements sur les points où tu bloques. Bonne soirée.

Bonsoir, Le site n'accepte pas les .dwg :blink: :D , si tu le zip, il devrait passer comme une lettre à la poste. Olivier

Bonjour Damien, :blink: Il n'y a pas de choix de format de fichier pour les dwt. Il faut que tu enregistre ton gabarit en dwg 2004, puis à partir de ton PC en version 2004 tu l'enregistre en dwt. Ton gabarit sera alors utilisable par tous les autres PC. Attention en cas de modifications du gabarit, il faut les faire à partir de ta version la plus ancienne. Olivier

Bonjour, Pour la variable MAXACTVP ne correspond pas à 64 fenêtres dans un fichier mais 64 fenêtres actives simultanément dans une seule présentation. Cette limite est uniquement une limite d'affichage (ta carte graphique te lachera sûrement avant) et ne bloque pas l'impression. Si ta supression de présentations à corrigée ton problème, je dirais que le soucis viens plus des capacités de ta carte graphique qui ne suivent pas. Evite d'avoir des présentations qui ne servent à rien ton gabarit. Tu peux créer plusieurs gabarits (un par phase par exemeple). Il est ensuite très rapide d'appeler une série de présentations depuis n'importe qu'elle présentation dans ton dessin (clic droit sur un obglet puis à partir du gabarit. Ceci allègera considérablement tes dessins et augmentera la rapidité d'exécution de d'autocad. ;) Olivier

Bonsoir AleskB, Active et dégèle tous tes calques (les entités composants ton bloc sont peut-être sur un calque gelé). Faire un Crtl A et vérifier dans les propriétés si ta référence de bloc est sélectionnée où non. Ton cartouche peut avoir été créé dans une échelle totalement différente. - Il y est : > (très grand) Faire un zoom étendu > (très petit) clic droit, sélection rapide puis rechercher les objets références de bloc avec le nom de ton bloc Olivier

Pour le moment je ne me suis pas mis aux fonctions vlisp (vla vlax ...).J'utilise seulement les codes dxf et je comprends pas toutes les parties de ton programme. :D

Désolé, mais ce coup ci il va falloir s'adresser à l'auteur, je suis pas au niveau.

Bonjour, Après test, le lisp fonctionne parfaitement chez moi (bravo à Patrick_35 encore une fois B) ) As tu remplacé le nom de ton bloc dans les guillemets et indiqué la bonne position de l'attribut (1ère ligne -> 0 / 2ème ligne -> 1 ...) A+

Effectivement très proche. Sélection du nom de bloc différente, et je en vois pas de désactivation de l'accrochage objet (pose problème s'il y a d'autre objets proche des points) Sur le mien, il manque la désactivation de la demande d'attribut.

Bonjour Ronsinette, Je n'ai pas retrouvé le lisp donc voici un code vite fait. (defun c:inspoint (/ *error echo accro ss1 ent blocname) (defun *error* (errmsg) (setvar "osmode" accro) (setvar "cmdecho" echo) (princ errmsg) ) (setq echo (getvar 'cmdecho) accro (getvar 'osmode)) (setvar "osmode" 0) (setvar "cmdecho" 0) (princ "\n Sélectionnez les points") (setq ss1 (ssget '((0 . "point"))) blocname (cdr (assoc 2 (entget (car (entsel "\n Sélectionnez le bloc"))))) ) (repeat (sslength ss1) (setq ent (ssname ss1 0)) (command "_-insert" blocname (cdr (assoc 10 (entget ent))) "" "" "") (ssdel ent ss1) ) (setvar "osmode" accro) (setvar "cmdecho" echo) (princ) ) Je suis débutant en programmation donc ce lisp n'est pas exempt de défaut. Le bloc doit déjà être présent sur le dessin. Pour un bon fonctionnement, privilégier le scg lors du lancement. Ce lisp ne demande pas les échelles ni l'angle de rotation mais je peux le modifier. Olivier

Parce que si tu change quelquechose qui ne marche pas par autre chose qui ne marche par, personne ne sens rend compte ? :blink: :D

Désolé, j'ai lu un peu vite. et j'ai confondu l'action du double clic et du clic droit. Si j'ai bien compris tu as déjà mis la macro _-edit dans l'interface utilisateur pour la commande editeur de bloc du menu contextuel et cela ne change rien. :huh:

Bonjour Fauxsuisse, Dans l'interface utilisateur, dans Actions déclenchées par double clic, sous bloc, tu devrais avoir la macro suivante : $M=$(if,$(and,$(>,$(getvar,blockeditlock),0)),^C^C_properties,^C^C_bedit) Bonne journée. PS : Je suis sous 2011, j'espère que les commandes non pas changées entretemps.

Bonjour, Je ne vois pas l'intérêt de la chose (compatibilté avec un logiciel ???). :unsure: Pour aller plus vite : - créer 2 styles de côtes similaires, l'un sans lignes d'attaches et l'autre sans lignes de côtes ni flèches. - créer toutes tes cotes sur un calques avec le premier styles - faire une copie de l'ensemble sur un autre. - sélectionner les cotes copiées et les mettre sous le 2nd style. - décomposer les cotes du 2nd style. - sélesction rapide des textes du 2nd calque pour les supprimer. Ouf fini :D

Bonjour, Je confirme, j'ai un collègue d'une autre agence qui travail avec. En revanche je ne sais pas où il l'a acheté. Je peux me renseigner lundi si cela intéresse. Bon weekend.

Bonjour, La valuer doit être mise sur 31.

Je parlais de la partie écrite par gile (routine que tu as postée initialement). Je me suis contenté d'ajouter 3 lignes au début (du blabla) et 6 lignes à la fin (lancement de la routine de (gile). Tu trouveras ci-dessous la routine complète corrigée. ;; Commande pub ;; purge le bloc nommé ;; ROUTINE gc:PurgeBlock par (gile) ;; ;; gc:PurgeBlock ;; Purge les blocs dont le nom correspond au modèle (insensible à la casse) ;; ;; Argument ;; pat : un modèle pour le nom de bloc, accepte les caractères génériques ("*" pour tous) (defun gc:PurgeBlock (pat / massoc blk name blst loop) (vl-load-com) (defun massoc (code alst) (if (setq alst (member (assoc code alst) alst)) (cons (cdar alst) (massoc code (cdr alst))) ) ) (while (setq blk (tblnext "BLOCK" (not blk))) (if (and (wcmatch (strcase (setq name (cdr (assoc 2 blk)))) (strcase pat)) (< (cdr (assoc 70 (setq elst (entget (tblobjname "BLOCK" name))))) 4) ) (setq blst (cons (cdr (assoc 330 elst)) blst)) ) ) (setq loop T) (while (and loop blst) (setq loop nil) (foreach b blst (or (vl-some 'entget (massoc 331 (entget B))) (progn (setq blk (vlax-ename->vla-object B)) (vlax-for o blk (if (= (vla-get-ObjectName o) "AcDbBlockReference") (vla-Delete o) ) ) (vla-delete blk) (setq blst (vl-remove b blst)) (setq loop T) ) ) ) ) ) ;;; COMMANDE PRINCIPALE (defun c:pub (/ pat) (setq pat (getstring "\nIndiquez le nom du bloc :")) (gc:PurgeBlock pat) (princ) )

Oups Problème de copie sur la routine de (gile). J'ignore comment j'ai pu la faire fonctionner hier soir. :blink: Recopie la routine de gile à la place de celle présente dans la routine ci-dessus et le problème sera réglé.

La mise en gras d'un texte ne peux s'effectuer uniquement dans l'éditeur de texte multiligne. Cette action force le texte sélectionner mais ne change pas les propriétés de l'objet texte. Tout ce qui est modifié de cette manière ne peux pas être pris en compte part la commande corresprop. Relis ce qui à été écris précédemment (création de style de texte, modification part la boite de dialogue propriété... ) et tu pourras modifier ce que tu souhaite.

Bonjour Philous2, Euh,... 4 bouts de lignes de code niveau débutant c'est pas très long. :D J'ai testé le lancement et il fonctionne. La commande me purge bien le bloc nommé mais seulement s'il est déjà effacé dans le dessin. Je ne suis pas au niveau pour la routine principale de (gile). Donc pour connaître le fonctionnement réelle de la routine et apporter des modifications, tu devrais poster un message dans la rubrique lisp. Olivier

Merci Bonuscad pour ta contribution. Voici la routine complètée pour fonctionner en commande lisp classique. ;; Commande pub ;; purge le bloc nommé ;; ROUTINE gc:PurgeBlock par (gile) ;; ;; gc:PurgeBlock ;; Purge les blocs dont le nom correspond au modèle (insensible à la casse) ;; ;; Argument ;; pat : un modèle pour le nom de bloc, accepte les caractères génériques ("*" pour tous) (defun gc:PurgeBlock (pat / massoc blk name blst loop) (vl-load-com) (defun massoc (code alst) (if (setq alst (member (assoc code alst) alst)) (cons (cdar alst) (massoc code (cdr alst))) ) ) (while (setq blk (tblnext "BLOCK" (not blk))) (if (and (wcmatch (strcase (setq name (cdr (assoc 2 blk)))) (strcase pat)) (< (cdr (assoc 70 (setq elst (entget (tblobjname "BLOCK" name))))) 4) ) (setq blst (cons (cdr (assoc 330 elst)) blst)) ) ) (setq loop T) (while (and loop blst) (setq loop nil) (foreach b blst (or (vl-some 'entget (massoc 331 (entget B))) (progn (setq blk (vlax-ename->vla-object B)) (vlax-for o blk (if (= (vla-get-ObjectName o) "AcDbBlockReference") (vla-Delete o) ) ) (vla-delete blk) (setq blst (vl-remove b blst)) (setq loop T) ) ) ) ) ) ;;; COMMANDE PRINCIPALE (defun c:pub (/ pat) (setq pat (getstring "\nIndiquez le nom du bloc :")) (gc:PurgeBlock pat) (princ) )

Qu'elle méthode as tu utilisée ? Essaye de créer un nouveau style de texte avec la police arial blach, puis applique cette police aux différents textes.

Ok Philous2, Je vais tenter de bidouiller quelquechose ce soir.

Salut, Sauf erreur de ma part, (je suis débutant en lisp) le programme que tu as est une sous routine utilisée par un autre lisp. Il manque une entrée de variable (pat) fourni par le programme principal. Je ne suis pas d'un très bon niveau en lisp mais si tu peux mettre le lien vers l'endroit où tu l'a récupéré, il doit possible de complèter le lisp. Avis au lispeur...

Il semblerais que tu ai modifié la police de caractère de tes textes dans l'éditeur. Comme je l'ai précisé, ceci force la police du texte et rend la commande corresprop inopérante. Si tu ne veux pas modifier tes textes un par un, il faut les décomposer en texte simple ce qui supprimera le verouillage.