bryce

Tu peux essayer la commande _AUDIT, en répondant Oui pour la correction d'erreurs. Pour poster un fichier dwg, il faut le zipper. Sinon tu peux passer par exemple par ce site: http://dl.free.fr/ et poster ici le lien obtenu. ;)

Bonjour, Je ne vois pas à quoi servent les points bloqués... :unsure: C'est normal, par définition un plan ne peut être que plat, il ne peut pas être courbe... :huh: Si j'ai à peu près compris ta demande, tu devrais pouvoir utiliser la fonction Scission.

Bonjour, http://cadxp.com/index.php?/topic/33195-resolu-variable-dessin/page__p__178207#entry178207 ;)

Bonjour, Pourrais-tu poster un fichier en exemple ?

Bonjour, Je n'ai pas bien compris le pourquoi du comment, mais voici un petit lisp que j'avais déjà écrit: (defun c:ungroup (/ acdoc groups group ) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)) groups (vla-get-groups acdoc) ) (vla-startundomark acdoc) (vlax-for group groups (vla-delete group) ) (vla-endundomark acdoc) (princ) )

Bonjour, Une liste, c'est-à-dire ? Un fichier texte contenant la liste des calques à geler ?

J'ai fait une petite correction (j'avais oublié de déclarer *error* dans les variables locales), il faudra re-télécharger le lisp. ;)

Bonjour, Tu peux essayer ce lisp: http://www.creao.fr/uploads/lisp/concat.lsp Le code: (defun c:concat ( / *error* acdoc spc oldcmdecho ss ht style ent strings string prev) (vl-load-com) (setq spc (if (or (eq AcModelSpace (vla-get-ActiveSpace (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ) ) (eq :vlax-true (vla-get-MSpace acdoc)) ) (vla-get-ModelSpace acdoc) (vla-get-PaperSpace acdoc) ) ) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (if ss (vla-delete ss)) (setvar "cmdecho" oldcmdecho) (vla-endundomark acdoc) (princ) ) (vla-startundomark acdoc) (setq oldcmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq ss (ssget '( (0 . "TEXT") )) ) (progn (setq ss (vla-get-activeselectionset acdoc) ht (vla-get-height (vla-item ss 0)) style (vla-get-stylename (vla-item ss 0)) ) (vlax-for ent ss (setq strings (cons (cons (vla-get-textstring ent) (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))) ) strings ) ) (vla-delete ent) );vlax-for (setq strings (vl-sort strings '(lambda (e1 e2) (< (cadr e1) (cadr e2)) ) )) (setq string "") (setq prev (cdr (car strings))) (mapcar '(lambda (l) (if (> (distance prev (cdr l)) (* 0.9 ht) ) (setq string (strcat string " ")) ) (setq string (strcat string (car l))) (setq prev (cdr l)) ) strings ) (vla-put-stylename (vla-addtext spc string (vlax-3D-point (cdr (car strings))) ht) style) ) ) (*error* nil) ) (princ "Commande à utiliser: CONCAT") (princ)

Bonjour, Pourrais-tu poster un exemple de fichier contenant une de ces xrefs indétachables ?

1664 messages, g'sundheit jalna ! :D

Bonjour, On peut aussi garder TEXTED à 2, et mettre MTEXTFIXED à 1 ou 0 pour empêcher l'effet de zoom sur les petits textes. Apparemment c'est cet effet de zoom qui cause ce bug... :huh:

Bonjour, Même problème ici... :blink: Par contre en faisant l'inverse ça fonctionne: ne pas mettre de masque dans le style de cotes, mais l'activer avec la palette Propriétés sur les cotes choisies. On peut alors l'activer ou le désactiver sans souci... :unsure:

Bonjour, Juste pour info: j'ai testé la dll par curiosité, et tous les noms des styles de multilignes sont perdus (les styles existent toujours, mais leurs noms sont vides). :unsure:

Bonjour, Je pense qu'il n'y a pas d'autre solution que d'écrire un lisp spécifique qui remplacera le ATTOUT/ATTIN normal...

Bonjour, Ce n'est pas très clair, mais tu peux déjà tester cette macro pour voir si ça correspond à ce que tu veux faire : *^C^C_select;_si;\_id;\_erase;_p;;_-insert;TOTO;_s;1;@;; Il faut remplacer TOTO par le nom de ton bloc.

Bonjour, Dans la commande -CALQUE (_-LAYER), il existe une option cachée F (_FI) pour gérer les filtres de calques. L'option Choisir (_S) permet d'activer un filtre (dans ton cas, celui qui s'appelle "Tous"). ;) Si tu veux te créer un bouton, la macro serait: '-calque;f;c;"Tous";; Ou bien tu pourrais écrire un petit Lisp (ou utiliser simplement l'Enregistreur d'actions, pour une fois qu'il servirait à quelque chose...) pour définir une commande courte. :)

Bonjour, Si malgré tout tu veux te créer un bouton, la macro à utiliser serait: ^C^Crepere;c ou ^C^C_plan;_c ;)

Bonjour, Il ne faut pas coller les 3 macros dans le même bouton. Il faut créer un bouton pour chaque macro. ;)

Certaines cotes sont effectivement très bizarres ! J'ai l'impression que le logiciel qui a exporté le fichier a créé des objets "corrompus", je ne vois pas vraiment de solution (à part de ne pas toucher à ces cotes)... <_<

Bonjour, Tu peux insérer un champ avec une seule décimale, puis éditer le texte et rajouter un 0 derrière le champ... :D

Je te propose un petit Lisp qui permet, sur des cotes existantes, de transférer le suffixe dans le texte de cote: http://www.creao.fr/uploads/lisp/oversuff.lsp Tu devrais ensuite pouvoir appliquer un autre style à ces cotes sans perdre d'infos. Le code : (defun c:oversuff(/ acdoc *error* oldcmdecho ss dim suff over) ; Transfère le suffixe des cotes sélectionnées à la suite du texte de cote. ; Brice Studer, Octobre 2011 (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (if ss (setq ss nil)) (setvar "cmdecho" oldcmdecho) (vla-endundomark acdoc) (princ) ) (vla-startundomark acdoc) (setq oldcmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq ss (ssget '( (0 . "DIMENSION") ) )) (progn (setq ss (vla-get-activeselectionset acdoc)) (vlax-for dim ss (if (not (= "" (setq suff (vla-get-TextSuffix dim)))) (progn (if (= "" (setq over (vla-get-TextOverride dim))) (setq over "<>") ) (vla-put-TextOverride dim (strcat over suff)) (vla-put-TextSuffix dim "") ) ) );vlax-for );progn ss );if ss (*error* nil) ) (princ "\nCommande à utiliser: OVERSUFF") (princ)

Il n'apparaît pas dans la case Suffixe de cote ? Ce serait bien que tu postes un fichier en exemple...

Bonjour, Dans la palette Propriétés, il ne faut pas mettre ce texte supplémentaire dans la case "Suffixe", mais plutôt dans la case "Remplacement de texte", sous la forme <>\X2.20 par exemple. On peut aussi utiliser la commande Editer le texte (ED au clavier) plutôt que la palette Propriétés, et ajouter simplement \X2.20 derrière le texte de cote. Ça évite de taper les <>... ;)

Les vues non rectangulaires existent depuis la version 2000, non ?! Ou alors on ne pense pas à la même chose... :unsure:

Bonjour, Peut-être que tu l'as inséré sur un calque non imprimable (à vérifier dans le gestionnaire de calques) ? Peut-être que le contenu du PDF est blanc ? C'est quoi comme PDF ? Image ou vectoriel ? Ce serait bien que tu postes un exemple... ;)