bono05

Salut à tous, Voilà peux t-on convertir un arc en spline? Sachant que j'en ai des dizaines par plan... Merci!

C'est pas mal déjà cà! Merci gile. Mais je voudrai faire une cartouche avec ce champ et que lorsque je l'utilise dans un plan (en xref) elle m'affiche automatiquement tous les noms de mes xrefs présent. Car si j'ai bien compris ce que tu me propose, je dois faire cette manip individuellement sur chaque plan?

Salut à tous, Voici mon problème suivant: ;) J'aimerai à l'aide d'un champ (field) que le nom de mes xrefs s'affichent sur mon plan? Est-ce possible de cette façon là? Cela me permettrait d'afficher le nom qui représente la dernière version en cours... Merci!!! [Edité le 15/4/2010 par bono05]

...en beaucoup mieux!!! Du moins pour ma part. Alors encore un tout grand merci Tramber!!! :D

Tout d'abord merci a Tambler et Eric pour leurs aide!! Sinon...c'est ça!!!!! C'est génial comme truc. :D Mais ....est-il possible que le nouveau layer garde les même propriétés que le standard (couleur, type de ligne, ect...). Comme le fait autocad en standard si on rajoute un nouveau layer. [Edité le 14/4/2010 par bono05]

SI mon layer par défault dans mon plan se nomme ABCDEFG12345, lorsque je veux créer un nouveau, qu'il me mette le même texte (que je changerai manuellement ensuite) que le défault? Ton macro est bien , mais l'exemple que je t'ai donné change plusieurs fois par plan, et il faudrait alors que je change à chaque fois le macro! Je cherche un "truc" qui m'afficherai automatiquement le nom du layer courant dans mon plan. Voici un exemple: http://cjoint.com/?eonzO0n35P Dans ce cas si si je clique sur nouveau layer...il me crée ce nouveau layer au même nom que le layer par défault dans mon plan...je n'ai plus qu'à adapter la fin de mon texte. Autre avantage, le nouveau layer se place par ordre alphabétique et donc visuellement direcytement où il doit être. dans le cas du "layer1" mon ecran saute jusque la lettre "L". J'espère que mon explication est plus claire? merci!!!

Salut Eric, C'est déjà un premier pas. Mais pourrait-on envisager un petit bouton (avec lisp ou...) qui afficherai justement le même nom du calque qui est par défault?

Bonjour à tous, Lorsque l'on rajoute un nouveau layer il affiche automatiquement layer1 puis layer2,.... Mon problème est que j'ai des plans avec pas mal de long nom dans mes layers: mesmeublescouleurs_A32 mesmeublescouleurs_A33 mesmeublescouleurs_A34 mesmeublescouleurs_A35 Et je voudrai pouvoir créer un nouveau layer qui utilise déjà le nom d'un layer actif (par ex par default)? Ainsi je n'aurai plus qu'à modifier le dernier chiffre (au lieu de ton retapper au clavier) Bref plus de layer1,layer2,.... mais qu'il affiche le nouveau layer comme celui qui est actif. ps: Je sais que le copier coller serait une solution pour le texte!! Merci!

Salut philsogood, Pour ajouter, supprimer ou modifier les ML...mlstyle ! (connait pas la commande en français?) Par contre une fois ton style de ML utilisé...je ne crois pas que tu puisses changer son style par après!!! (à confirmer) Concernant la question tu peux refermer une ml que tu as joints...

He bien en voulant créer cette macro, je suis tombé (sans me faire mal) sur la commande "reverse"!! Et avec celle-ci je peux faire: "Invertir la direction de ligne, polyline, spline et helix objects" Et ce en en selectionnant plusieurs à la fois!!!!!!! C'est juste magique!! Maintenant pour la version française je ne sais pas ce que cela pourrait-être...inversion? :casstet:

C'est super merci Pascal. Maintenant si je dois en changer une trentaine dans un plan et après les avoir selectionnés... Puis-je le faire en une seule commande? merci!!!

Salut à tous, Tout est dans le titre...et je suis sûr de déjà l'avoir vu, mais je ne sais plus où? Merci!

Salut à tous, Nouvelle chose très étrange... Je veux copier coller un bmp dans un plan et il ne veux pas le faire dans le modelspace?? Il m demande pourtant le point d'insertion...donc je clique et là plus rien!! Si j'essaye cela sur un autre plan cela fonctionne. Il y a donc un truc qui empeche cela sur ce plan...Y-a-t'il donc une variable ou autres qui permet de l'afficher? Merci!

....ce qui est pratique pour imprimer plusieurs fichiers à la fois...mais quel imprimante utilise-tu? A mon sens cela ne change rien au fait que tu peux utiliser DWGtoPDF.

Alors je te renvoi ici (Merci à Gile!!): http://cadxp.cadmag.info/modules.php?op=modload&name=XForum&file=viewthread&tid=14630 Pour toi à partir du point 1.2 ... ;)

Salut, Pour ce faire j'utilise ce petit lisp trouvé sur le net. Ouvre le plan que tu veux en grisé, tapes colorx et ensuite tu peux choisir la couleur que tu désires, ou dans ton cas " bylayer". Ensuite mettre tous les layers du xref en couleur clair. ;;; Posted ;;; http://www (defun C:COLORX (/ doc col) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (mip:layer-status-save) (if (setq col (acad_colordlg 7 t)) (ChangeAllObjectsColor doc col) ;_ col — color number ) ;_ end of if (mip:layer-status-restore) (vla-endundomark doc) (princ) ) ;_ end of defun (defun C:COLORXREF (/ doc col) (vl-load-com) (alert "\This lisp change color xref\nONLY ON A CURRENT SESSION" ) ;_ end of alert (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (mip:layer-status-save) (if (setq col (acad_colordlg 7 t)) (ChangeXrefAllObjectsColor doc col) ;_ col — color number ) ;_ end of if (mip:layer-status-restore) (vla-endundomark doc) (princ) ) ;_ end of defun (defun C:COLORXL (/ doc col) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (if (setq col (acad_colordlg 7 t)) (ChangeAllObjectsColor doc col) ;_ col — color number ) ;_ end of if (vla-endundomark doc) (princ) ) ;_ end of defun (defun C:COLORXREFL (/ doc col) (vl-load-com) (alert "\This lisp change color xref\nONLY ON A CURRENT SESSION" ) ;_ end of alert (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (if (setq col (acad_colordlg 7 t)) (ChangeXrefAllObjectsColor doc col) ;_ col — color number ) ;_ end of if (vla-endundomark doc) (princ) ) ;_ end of defun (defun mip:layer-status-restore () (foreach item *MIP_LAYER_LST* (if (not (vlax-erased-p (car item))) (vl-catch-all-apply '(lambda () (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))) (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))) ) ;_ end of vla-put-freeze ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of if ) ;_ end of foreach (setq *MIP_LAYER_LST* nil) ) ;_ end of defun (defun mip:layer-status-save () (setq *MIP_LAYER_LST* nil) (vlax-for item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)) ) ;_ end of vla-get-layers (setq *MIP_LAYER_LST* (cons (list item (cons "freeze" (vla-get-freeze item)) (cons "lock" (vla-get-lock item)) ) ;_ end of cons *MIP_LAYER_LST* ) ;_ end of cons ) ;_ end of setq (vla-put-lock item :vlax-false) (if (= (vla-get-freeze item) :vlax-true) (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false)) ) ;_ end of vl-catch-all-apply ) ;_ end of if ) ;_ end of vlax-for ) ;_ end of defun (defun ChangeXrefAllObjectsColor (Doc Color / tmp txtstr) (vlax-for Blk (vla-get-Blocks Doc) (cond ((or (= (vla-get-IsXref Blk) :vlax-true) (and (= (vla-get-IsXref Blk) :vlax-false) (wcmatch (vla-get-name Blk) "*|*") ) ;_ end of and ) ;_ end of or (vlax-for Obj Blk (if (and (vlax-write-enabled-p Obj) (vlax-property-available-p Obj 'Color) ) ;_ end of and (vla-put-Color Obj Color) ) ;_ end of if (if (and (vlax-write-enabled-p Obj) (vlax-property-available-p Obj 'TextString) ) ;_ end of and (progn (setq txtstr (if (vlax-method-applicable-p Obj 'FieldCode) (vla-FieldCode Obj) (vlax-get-property Obj 'TextString)) ) (setq tmp 0) (while (setq tmp (VL-STRING-SEARCH "\\C" txtstr tmp)) (setq txtstr (vl-string-subst (strcat (substr txtstr (1+ tmp) 2)(itoa Color) ";") (substr txtstr (1+ tmp) (- (1+ (VL-STRING-SEARCH ";" txtstr tmp)) tmp)) txtstr tmp) ) (setq tmp (+ tmp 3)) ) (vla-put-Textstring Obj txtstr) ) ) ;_ end of if (if (and (vlax-write-enabled-p Obj) (= (vla-get-ObjectName obj) "AcDbBlockReference") (= (vla-get-HasAttributes obj) :vlax-true) ) ;_ end of and (foreach att (vlax-safearray->list (vlax-variant-value (vla-GetAttributes obj)) ) ;_ end of vlax-safearray->list (if (and (vlax-write-enabled-p att) (vlax-property-available-p att 'Color) ) ;_ end of and (vla-put-Color att Color) ) ;_ end of if ) ;_ end of foreach ) ;_ end of if (if (and (vlax-write-enabled-p Obj) (wcmatch (vla-get-Objectname Obj) "*Dimension*,AcDb*Leader") ) ;_ end of and (progn (vl-catch-all-apply 'vla-put-ExtensionLineColor (list Obj Color)) (vl-catch-all-apply 'vla-put-TextColor (list Obj Color)) (vl-catch-all-apply 'vla-put-DimensionLineColor (list Obj Color)) (if (vlax-property-available-p Obj 'LeaderLineColor) (progn (setq tmp (vla-getinterfaceobject(vlax-get-acad-object)(strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2)))) (vla-put-colorindex tmp Color) (vl-catch-all-apply 'vla-put-LeaderLineColor (list Obj tmp)) ) ) ) ;_ end of progn ) ;_ end of if ) ;_ end of vlax-for ) ((= (vla-get-IsLayout Blk) :vlax-true) (vlax-for Obj Blk (if (and (vlax-write-enabled-p Obj) (vlax-property-available-p Obj 'Color) (vlax-property-available-p Obj 'Path) (wcmatch (strcase (vla-get-ObjectName Obj)) "*BLOCK*") ) ;_ end of and (vla-put-Color Obj Color) ) ;_ end of if ) ;_ end of vlax-for ) (t nil) ) ;_cond ) ;_ end of vlax-for (vl-cmdf "_redrawall") ) ;_ end of defun (defun ChangeAllObjectsColor (Doc Color / txtstr tmp txt count) (vlax-for Blk (vla-get-Blocks Doc) (if (= (vla-get-IsXref Blk) :vlax-false) (progn (setq count 0 txt (strcat "Changed " (vla-get-name Blk))) (grtext -1 txt) (vlax-for Obj Blk (setq count (1+ count)) (if (zerop(rem count 10))(grtext -1 (strcat txt " : " (itoa count)))) (if (and (vlax-write-enabled-p Obj) (vlax-property-available-p Obj 'Color) ) ;_ end of and (vla-put-Color Obj Color) ) ;_ end of if (if (and (vlax-write-enabled-p Obj) (vlax-property-available-p Obj 'TextString) ) ;_ end of and (progn (setq txtstr (if (vlax-method-applicable-p Obj 'FieldCode) (vla-FieldCode Obj) (vlax-get-property Obj 'TextString)) ) (setq tmp 0) (while (setq tmp (VL-STRING-SEARCH "\\C" txtstr tmp)) (setq txtstr (vl-string-subst (strcat (substr txtstr (1+ tmp) 2)(itoa Color) ";") (substr txtstr (1+ tmp) (- (1+ (VL-STRING-SEARCH ";" txtstr tmp)) tmp)) txtstr tmp) ) (setq tmp (+ tmp 3)) ) (vla-put-Textstring Obj txtstr) ) ) ;_ end of if (if (and (vlax-write-enabled-p Obj) (= (vla-get-ObjectName obj) "AcDbBlockReference") (= (vla-get-HasAttributes obj) :vlax-true) ) ;_ end of and (foreach att (vlax-safearray->list (vlax-variant-value (vla-GetAttributes obj)) ) ;_ end of vlax-safearray->list (if (and (vlax-write-enabled-p att) (vlax-property-available-p att 'Color) ) ;_ end of and (vla-put-Color att Color) ) ;_ end of if ) ;_ end of foreach ) ;_ end of if (if (and (vlax-write-enabled-p Obj) (wcmatch (vla-get-Objectname Obj) "*Dimension*,AcDb*Leader") ) ;_ end of and (progn (vl-catch-all-apply 'vla-put-ExtensionLineColor (list Obj Color)) (vl-catch-all-apply 'vla-put-TextColor (list Obj Color)) (vl-catch-all-apply 'vla-put-DimensionLineColor (list Obj Color)) (if (vlax-property-available-p Obj 'LeaderLineColor) (progn (setq tmp (vla-getinterfaceobject(vlax-get-acad-object)(strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2)))) (vla-put-colorindex tmp Color) (vl-catch-all-apply 'vla-put-LeaderLineColor (list Obj tmp)) ) ) ) ;_ end of progn ) ;_ end of if ) ;_ end of vlax-for ) ) ;_ end of if ) ;_ end of vlax-for (vl-cmdf "_redrawall") ) ;_ end of defun (princ "\nType ColorX, COLORXREF, ColorXL, COLORXREFL in command line" ) ;_ end of princ

Et voilà...c'est réglé!! Merci CDL. :D

Salut à tous, Je fais un zoom sur une zone de mon plan en model...puis je sauve. Ensuite lorsque que je passe de mon model vers mon layout...et que je reviens vers mon layout c'est comme si il me fait en zoom étendue automatiquement, hors normalement il devrai "tenir" la dernière vue ou zoom effectué?? Quelqu'un peux m'expliquer pourquoi il fait cela? Merci!!!

Salut, A faire dans les propriétées de l'imprimante DWFtoPDF... http://cjoint.com/?dtloKgtbNn ;)

Après discussion, ce n'est pas vraiment nécessaire....et tant mieux!! J'ai constaté que si je faisait un espace de texte très important...il ne s'affiche qu'une seule fois au milieux! Donc problème également réglé pour moi! :D Maintenant concernant le block de couleur autour du texte...serait-il possible de le rendre transparent? un peu comme la commande (express tools) textmask? Milles merci !!!!!!!! Ps: maintenant je constate que mon idée de départ est très apprécié par d'autres...et tant mieux! [Edité le 9/3/2010 par bono05]

C'est super gile....puis-je encore te demander un truc? Le fait est que l'on utilise uniquement les longueurs pairs... Donc je ne devrai pas avoir de 7m (par ex), mais 8m alors... :exclam: Je comprendrai si cela ne serai pas facilement réalisable. Et enfin...est-ce possible qu'il n'affiche qu'une seule fois sa longueur au milieu sur le cable (donc pas comme l'option "espace"), l'idée est par après de faire un décompte avec toutes les longueurs en reprenant ce texte. Mais comme il est parfois marqué plusieurs fois cela ne va pas. Encore et encore merci !!!!!!!

Gile, Je resterai donc encre attentif à la première demande...concernant la deuxième je comprend tout à fait que cela peut être compliqué. Sache que je te remercie pour le travail accompli et suis déjà très heureux d'avoir les options présentes. Merci!!!!!!!!!!!!!!!!! :)

Cher Gile, Retest....et questions: La spline devrait faire 6M...et elle en fait 600m! J'ai changé les unités mais cela ne modifie rien? Ai-je raté quelque chose? Peux-tu faire en sorte que les mtext suivent la spline si on modifie sa longeur? autant en mesure que en alignement (texte sur la spline?) Encore merci!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Bonjour à tous, Heureux de vous retrouver en forme en ce lundi matin! Je constate que vous n'avez pas chômé sur mon problème... :D Et je vous en remercie. Après un petit test j'aurai les remarques suivantes: -Comment , a l'avance, pouvoir choisir la taille du texte? Car je l'ai essayé sur un plan et l'échelle du texte est beaucoup trop grande?! Dans mon cas ce sont souvent des petites longueurs et donc avec le problème de grandeur du texte cela ne fonctionne pas? Et en bonus une petite option ou il rajouterai 1 ou 2 m automatiquement (ou non) à la taille du spline? Dans mon cas un spline represente un cable et le trait comprend une reserve de 1 ou 2M en fonction de sa taille. Enfin quand je change la couleur dans l'option...elle reste jaune! Alors je la change dans le lisp... Voilà...merci!!!!! [Edité le 8/3/2010 par bono05]

J'ai testé et maintenant c'est ok... Maintenant je constate des solutions en selection de splines, mais aucune en créatiion de splines? N'est-ce peut-être tout simplement pas possible alors, vous en pensez quoi? Enfin si seule la selection serait possible , je serai plutôt attiré par l'idée de Lecrabe...désolé Tramber. ;)