Maxime063

Les polylignes 3D ne vont en effet pas pouvoir (à ma connaissance) recevoir de types de lignes. Elles servent à avoir des coordonnées X,Y,Z qui varient pour chaque sommets à l'inverse d'une polyligne 2D qui va avoir X,Y qui varie et Z qui reste fixe. Il est soit possible de passer par covadis 3D > Gestion des polylignes 3D > convertir en polylignes 2D Soit d'utiliser un lisp (j'en ai pas en réserve pour ça) Ou alors plus fastidieux, de repasser par dessus avec la command polyligne (avec de préférence la variable "OSNAPZ" à 1 et le Z scu à la valeur qui t'intéresse)

Est-il possible d'avoir le dwg avec les lignes qui posent problèmes ?

Bonjour, Dans un premier temps il est déconseillé de faire du copier coller pour importer ces styles. Donc si je comprends bien, ce problème n'est pas sur toutes les lignes du dessin? Vérifier si l'échelle du type de ligne est bien à 1 (ou égale aux autres) Peut-être regarder la variable LTSCALE qui à une valeur trop importante ?

Salut, Tu as essayé d'enregistrer tes paramètres puis de passer par le système de transfert ?

Je me doute que ça vient de toi oui ^^ Possible d'avoir le code ? :)

Une bien jolie application bravo à toi C'est sur une application ou un lien en ligne ?

Salut, Comme @Aleck l a précisé, c'est la variable DYNMODE qui joue sur la saison dynamique. Peut-être que ton F12 n'est pas paramétré pour activer la variable. Dans ce cas DYNMODE 0 pour arrêter et 3 pour activer

Bonjour, Pas à ma connaissance, si besoin j'avais fais un petit raccourcis en lisp (defun c:rr (/ SELECT1 p1 p2 p3 p4) (setq SELEC1 (ssget)) (setq p1 (getpoint "\nSaisir le 1er point de l'objet a rotationner : ")) (setq p2 (getpoint "\nSaisir le 2eme point de l'objet a rotationner : ")) (setq p3 (getpoint "\nSaisir le 3eme point -> angle d'arrive de la rotation : ")) (command "_rotate" SELEC1 "" p1 "_R" p1 p2 "_P" p1 p3) )

Une autre solution manuelle serait de décomposé la ligne de repère. Après cela le texte devient un Mtext, et on peut donc y mettre un masque d'arrière plan B) Attention toute fois, si on copie les propriétés d'un Mtext vers un autre, la justification du Mtext sera le même que celui qui était définit sur la ligne de repère.

Super merci Fraid. J'avais essayer (setq num (10+ num)) mais c'est vrai que c'est un peu bête :huh: Après test, le strat est indépendant, pour le coup je le fait commencer à 10

Bonjour, En temps normal j'arrive a bidouiller et me débrouiller mais la, j'arrive pas à suivre le code. J'utilise le lisp du grand lee mac sauf que cette fois, j'aimerai une incrémentation d'attribut de +10 et non +1 comme par défaut. Si une âme charitable et meilleure que moi veut bien m'aider, je vous remercie d'avance ;;---------------------=={ AutoLabel Attributes }==---------------------;; ;; ;; ;; This program will automatically populate a specific attribute tag ;; ;; with a unique label within a set of attributed blocks, renumbering ;; ;; if blocks are added, copied or erased. ;; ;; ;; ;; The program uses an Object Reactor to monitor modification events ;; ;; for the set of all attributed blocks with a block name matching ;; ;; a block name or wildcard pattern specified within the program ;; ;; source code. ;; ;; ;; ;; Following modification to any matching attributed block, a Command ;; ;; Reactor will trigger the program to automatically renumber a ;; ;; specific attribute tag held by all matching attributed blocks in ;; ;; the active layout of the drawing. ;; ;; ;; ;; The block references are numbered in the order in which they are ;; ;; encountered in the drawing database of the active drawing ;; ;; (that is, the order in which the blocks were created). ;; ;; ;; ;; The program also allows the user to specify a numbering prefix & ;; ;; suffix, the starting number for the numbering, and the number of ;; ;; characters to be used for fixed length numbering with leading zeros ;; ;; (i.e. if the numbering length is set to 2, the program will number ;; ;; the blocks 01,02,03,...,10,11,12). ;; ;; ;; ;; The autonumbering functionality is automatically enabled on drawing ;; ;; startup when the program is loaded, and may be subsequently enabled ;; ;; or disabled manually using the commands 'AUTOLABELON' & ;; ;; 'AUTOLABELOFF' respectively. ;; ;;----------------------------------------------------------------------;; ;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;; ;;----------------------------------------------------------------------;; ;; Version 1.0 - 2011-09-14 ;; ;; ;; ;; - First release. ;; ;;----------------------------------------------------------------------;; ;; Version 1.1 - 2015-09-20 ;; ;; ;; ;; - Program entirely rewritten. ;; ;; - Added callback function to handle command cancelled & command ;; ;; failed events when modifying autonumbered blocks. ;; ;; - Added the ability to specify a numbering prefix & suffix, ;; ;; specify a starting number, and use fixed length numbering ;; ;; (i.e numbering with leading zeros: 01,02,...,10). ;; ;; - Block Name & Attribute Tag parameters may now use wildcards to ;; ;; match multiple block names & tags (the first attribute tag which ;; ;; matches the wildcard pattern will be numbered). ;; ;; - Incorporated compatibility for Multiline Attributes. ;; ;;----------------------------------------------------------------------;; ;; Version 1.2 - 2015-09-27 ;; ;; ;; ;; - Program modified to only increment numbering counter if an ;; ;; attribute matching the target tag name is found. ;; ;; - Implemented compatibility for multileader blocks. ;; ;;----------------------------------------------------------------------;; ;; Version 1.3 - 2018-10-27 ;; ;; ;; ;; - Fixed bug in autolabel:getattributetagid function preventing ;; ;; numbering of multileader attributed blocks. ;; ;;----------------------------------------------------------------------;; ;; Version 1.4 - 2020-02-15 ;; ;; ;; ;; - Program modified to account for attributed MInsert Blocks. ;; ;;----------------------------------------------------------------------;; (setq ;;----------------------------------------------------------------------;; ;; Settings ;; ;;----------------------------------------------------------------------;; autolabel:blockname "myblock" ;; Name of block to be updated (not case-sensitive / may use wildcards) autolabel:blocktag "mytag" ;; Attribute tag to be updated (not case-sensitive / may use wildcards) autolabel:prefix "" ;; Numbering prefix (use "" for none) autolabel:suffix "" ;; Numbering suffix (use "" for none) autolabel:start 1 ;; Starting number autolabel:length 2 ;; Fixed length numbering (set to zero if not required) autolabel:startup t ;; Enable on drawing startup (t=enable / nil=disable) autolabel:objtype 3 ;; Bit-coded integer > 0 (1=attributed blocks; 2=multileader blocks) ;;----------------------------------------------------------------------;; ) ;;----------------------------------------------------------------------;; ;; Main Program ;; ;;----------------------------------------------------------------------;; (defun autolabel:objectreactorcallback:renumberblocks ( own rtr arg ) (if (null autolabel:commandreactor) (setq autolabel:commandreactor (vlr-command-reactor "autolabel" '( (:vlr-commandended . autolabel:commandreactorcallback:renumberblocks) (:vlr-commandcancelled . autolabel:commandreactorcallback:cancelled) (:vlr-commandfailed . autolabel:commandreactorcallback:cancelled) ) ) ) ) (princ) ) (defun autolabel:commandreactorcallback:cancelled ( rtr arg ) (if (= 'vlr-command-reactor (type autolabel:commandreactor)) (progn (vlr-remove autolabel:commandreactor) (setq autolabel:commandreactor nil) ) ) (princ) ) (defun autolabel:commandreactorcallback:renumberblocks ( rtr arg / att blk idx num obj oid sel ) (if (= 'vlr-command-reactor (type autolabel:commandreactor)) (progn (vlr-remove autolabel:commandreactor) (setq autolabel:commandreactor nil) ) ) (if (= 'vlr-object-reactor (type autolabel:objectreactor)) (vlr-remove autolabel:objectreactor) ) (if (and (not autolabel:undoflag) (setq sel (ssget "_X" (append (if (= 3 (logand 3 autolabel:objtype)) '((-4 . "<OR")) ) (if (= 1 (logand 1 autolabel:objtype)) (list '(-4 . "<AND") '(0 . "INSERT") '(66 . 1) (cons 2 (strcat "`*U*," autolabel:blockname)) '(-4 . "AND>")) ) (if (= 2 (logand 2 autolabel:objtype)) '((0 . "MULTILEADER")) ) (if (= 3 (logand 3 autolabel:objtype)) '((-4 . "OR>")) ) (if (= 1 (getvar 'cvport)) (list (cons 410 (getvar 'ctab))) '((410 . "Model")) ) ) ) ) ) (progn (setq num autolabel:start) (repeat (setq idx (sslength sel)) (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx))))) (if (wcmatch (vla-get-objectname obj) "AcDbBlockReference,AcDbMInsertBlock") (if (setq att (autolabel:getattribute obj)) (progn (vla-put-textstring att (strcat autolabel:prefix (autolabel:padzeros (itoa num) autolabel:length) autolabel:suffix ) ) (setq num (1+ num)) (autolabel:addowner obj) ) ) (if (and (= acblockcontent (vla-get-contenttype obj)) (wcmatch (setq blk (strcase (vla-get-contentblockname obj))) autolabel:blockname) (setq oid (autolabel:getattributetagid blk)) ) (progn (autolabel:setblockattributevalue obj oid (strcat autolabel:prefix (autolabel:padzeros (itoa num) autolabel:length) autolabel:suffix ) ) (setq num (1+ num)) (autolabel:addowner obj) ) ) ) ) ) ) (if (= 'vlr-object-reactor (type autolabel:objectreactor)) (vlr-add autolabel:objectreactor) ) (princ) ) (defun autolabel:commandreactorcallback:undocheck ( rtr arg ) (setq autolabel:undoflag (= (strcase (car arg) t) "undo")) (princ) ) (defun autolabel:commandreactorcallback:blockinserted ( rtr arg / att blk ent enx idx new num obj oid sel ) (if (and (not autolabel:undoflag) (wcmatch (strcase (car arg) t) (strcat (if (= 1 (logand 1 autolabel:objtype)) "-insert,insert,executetool" "") (if (= 3 (logand 3 autolabel:objtype)) "," "") (if (= 2 (logand 2 autolabel:objtype)) "mleader" "") ) ) (setq ent (entlast)) (setq new (vlax-ename->vla-object ent)) (setq enx (entget ent)) (or (and (= 1 (logand 1 autolabel:objtype)) (= "INSERT" (cdr (assoc 0 enx))) (= 1 (cdr (assoc 66 enx))) (wcmatch (autolabel:effectivename new) autolabel:blockname) ) (and (= 2 (logand 2 autolabel:objtype)) (= "MULTILEADER" (cdr (assoc 0 enx))) (= acblockcontent (vla-get-contenttype new)) (wcmatch (strcase (vla-get-contentblockname new)) autolabel:blockname) ) ) (setq sel (ssget "_X" (append (if (= 3 (logand 3 autolabel:objtype)) '((-4 . "<OR")) ) (if (= 1 (logand 1 autolabel:objtype)) (list '(-4 . "<AND") '(0 . "INSERT") '(66 . 1) (cons 2 (strcat "`*U*," autolabel:blockname)) '(-4 . "AND>")) ) (if (= 2 (logand 2 autolabel:objtype)) '((0 . "MULTILEADER")) ) (if (= 3 (logand 3 autolabel:objtype)) '((-4 . "OR>")) ) (if (= 1 (getvar 'cvport)) (list (cons 410 (getvar 'ctab))) '((410 . "Model")) ) ) ) ) ) (progn (setq num (1- autolabel:start)) (repeat (setq idx (sslength sel)) (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx))))) (if (wcmatch (vla-get-objectname obj) "AcDbBlockReference,AcDbMInsertBlock") (if (autolabel:getattribute obj) (setq num (1+ num)) ) (if (and (= acblockcontent (vla-get-contenttype obj)) (wcmatch (setq blk (strcase (vla-get-contentblockname obj))) autolabel:blockname) (autolabel:getattributetagid blk) ) (setq num (1+ num)) ) ) ) (if (wcmatch (vla-get-objectname obj) "AcDbBlockReference,AcDbMInsertBlock") (if (setq att (autolabel:getattribute new)) (progn (vla-put-textstring att (strcat autolabel:prefix (autolabel:padzeros (itoa num) autolabel:length) autolabel:suffix ) ) (autolabel:addowner new) ) ) (if (setq oid (autolabel:getattributetagid (vla-get-contentblockname new))) (progn (autolabel:setblockattributevalue new oid (strcat autolabel:prefix (autolabel:padzeros (itoa num) autolabel:length) autolabel:suffix ) ) (autolabel:addowner new) ) ) ) ) ) (princ) ) (defun autolabel:addowner ( obj ) (if (and (= 'vlr-object-reactor (type autolabel:objectreactor)) (not (member obj (vlr-owners autolabel:objectreactor))) ) (vlr-owner-add autolabel:objectreactor obj) ) ) (defun autolabel:getattribute ( blk ) (if (wcmatch (strcase (autolabel:effectivename obj)) autolabel:blockname) (vl-some '(lambda ( att ) (if (wcmatch (strcase (vla-get-tagstring att)) autolabel:blocktag) att) ) (vlax-invoke blk 'getattributes) ) ) ) (defun autolabel:getattributetagid ( blk ) (eval (list 'defun 'autolabel:getattributetagid '( blk / itm tmp ) (list 'if '(setq itm (assoc (strcase blk) autolabel:attributetagids)) '(cdar (vl-member-if '(lambda ( att ) (wcmatch (car att) autolabel:blocktag)) (cdr itm))) (list 'progn (list 'vlax-for 'obj (list 'vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) 'blk) '(if (and (= "AcDbAttributeDefinition" (vla-get-objectname obj)) (= :vlax-false (vla-get-constant obj)) ) (setq tmp (cons (cons (strcase (vla-get-tagstring obj)) (autolabel:objectid obj) ) tmp ) ) ) ) '(setq autolabel:attributetagids (cons (cons (strcase blk) tmp) autolabel:attributetagids)) '(autolabel:getattributetagid blk) ) ) ) ) (autolabel:getattributetagid blk) ) (defun autolabel:setblockattributevalue ( obj idx str ) (if (vlax-method-applicable-p obj 'setblockattributevalue32) (defun autolabel:setblockattributevalue ( obj idx str ) (vla-setblockattributevalue32 obj idx str)) (defun autolabel:setblockattributevalue ( obj idx str ) (vla-setblockattributevalue obj idx str)) ) (autolabel:setblockattributevalue obj idx str) ) (defun autolabel:objectid ( obj ) (if (vlax-property-available-p obj 'objectid32) (defun autolabel:objectid ( obj ) (vla-get-objectid32 obj)) (defun autolabel:objectid ( obj ) (vla-get-objectid obj)) ) (autolabel:objectid obj) ) (defun autolabel:effectivename ( obj ) (if (vlax-property-available-p obj 'effectivename) (defun autolabel:effectivename ( obj ) (strcase (vla-get-effectivename obj))) (defun autolabel:effectivename ( obj ) (strcase (vla-get-name obj))) ) (autolabel:effectivename obj) ) (defun autolabel:padzeros ( str len ) (if (< (strlen str) len) (autolabel:padzeros (strcat "0" str) len) str ) ) (defun autolabel:disable ( key ) (foreach grp (vlr-reactors :vlr-command-reactor :vlr-object-reactor) (foreach obj (cdr grp) (if (= key (vlr-data obj)) (vlr-remove obj)) ) ) (setq autolabel:undoflag nil autolabel:objectreactor nil autolabel:commandreactor nil ) ) (defun autolabel:enable ( key ) (autolabel:disable key) (vlr-set-notification (setq autolabel:objectreactor (vlr-object-reactor nil key '( (:vlr-erased . autolabel:objectreactorcallback:renumberblocks) (:vlr-copied . autolabel:objectreactorcallback:renumberblocks) (:vlr-unerased . autolabel:objectreactorcallback:renumberblocks) ) ) ) 'active-document-only ) (vlr-set-notification (vlr-command-reactor key '( (:vlr-commandwillstart . autolabel:commandreactorcallback:undocheck) (:vlr-commandended . autolabel:commandreactorcallback:blockinserted) ) ) 'active-document-only ) (autolabel:commandreactorcallback:renumberblocks nil nil) (princ (strcat "\nAutonumbering enabled for tags matching \"" autolabel:blocktag "\" within " (if (= 1 (logand 1 autolabel:objtype)) "blocks" "") (if (= 3 (logand 3 autolabel:objtype)) " & " "") (if (= 2 (logand 2 autolabel:objtype)) "multileaders" "") " matching \"" autolabel:blockname "\"." ) ) (princ) ) ;;----------------------------------------------------------------------;; ;; Loading Expressions ;; ;;----------------------------------------------------------------------;; ( (lambda nil (vl-load-com) (cond ( (vl-some (function (lambda ( val par ) (if (/= 'str (type val)) (princ (strcat "\nThe " par " parameter must be a valid string.")) ) ) ) (list autolabel:blockname autolabel:blocktag autolabel:prefix autolabel:suffix ) '( "Block Name" "Attribute Tag" "Numbering Prefix" "Numbering Suffix" ) ) ) ( (/= 'int (type autolabel:start)) (princ "\nThe Starting Number parameter must hold an integer value.") ) ( (/= 'int (type autolabel:length)) (princ "\nThe Fixed Length Numbering parameter must hold an integer value.") ) ( (not (and (= 'int (type autolabel:objtype)) (< 0 autolabel:objtype) (< 0 (logand 3 autolabel:objtype)) ) ) (princ "\nThe Object Type parameter must hold a bit-coded integer value between 1 & 3.") ) ( (setq autolabel:blockname (strcase autolabel:blockname) autolabel:blocktag (strcase autolabel:blocktag) ) (defun c:autolabelon nil (autolabel:enable "autolabel") ) (defun c:autolabeloff nil (autolabel:disable "autolabel") (princ "\nAutonumbering disabled.") (princ) ) (if autolabel:startup (autolabel:enable "autolabel")) ) ) (princ) ) ) ;;----------------------------------------------------------------------;; ;; End of File ;; ;;----------------------------------------------------------------------;;

Alors s'il s'agit de ça, voici la version lisp que j'avais (defun c:VarriablePickStyle ( / ucs) (setq ucs (getvar "UCSFOLLOW")) (if (= ucs 1) (setvar "UCSFOLLOW" 0) );if (prin1) (if (= ucs 0) (setvar "UCSFOLLOW" 1) );if (prin1) );defun

Bonjour, Tu peux développer ? pour ma part, la variable UCSFOLLOW est toujours égale à 0 dans les nouvelles fenêtres. Je suppose donc que tu modifies la variable manuellement à 1 au préalable et souhaite à la fin la restituée à 0 ?

C'est assez étonnant que flatten ne donne rien :blink: Peut-être due à des accroches objets qui se projettent sur des objets 3D inséré dans le dessin, dans ce cas osnapz = 1

Ok pour ce soir et pour la cadence de 10minutes, je sais que le 3/2 est assez rapide. Je suis dispo à partir de 19h

J'ai juste quelques mois de pratique mais je suis encore très loin d'être un bon joueur :unsure: Avec des cours tu me rattrapera très vite, mais je ne me laisserai pas faire pour autant. C'est ces rivalités qui au final font évoluer ;)

Il est vrai que les vendeurs ont remarqué la hausse des ventes d'échiquiers ces derniers mois. Tant mieux, c'est un divertissement intelligent pour une fois qui est mit en avant B)

Bonjour, Pour ma part j'ai commencé début d'année dernière, si ça t'intéresse de jouer je t'envoie en privé mon identifiant pour me retrouver sur chess.com

Dans ce cas la, que ce soit avec un CTB, un calque prédéfinit qui met une transparence ou bien en le modifiant à la main, il est possible une fois que la couleur du fond est choisi d' y ajouter une transparence et donc de voir les objets en dessous. (sans oublier de tracer avec la transparence)

Bonjour, Une couleur transparente ? c'est à dire ? Il est possible de forcer la couleur du fond d'un Mtext ou alors pour un texte d'une ligne de repère et un Mtext on peut y mètre la couleur du fond de plan

Bonjour, De mon point de vue, tu devrait aussi décomposer ton texte après la fonction burst. Car le texte est en lien avec l'objet dans le bloc, en le décomposant il perd l'association est donc affiche une erreur.

Salut GEGE, Il me semble avoir déjà vue cette situation mais ne sait plus vraiment comment j'ai tourné le truc. Possible d'avoir le dwg avec la polyligne ?

Après avoir tester sur un MAP 3D 2016 j'ai le même résultat avec la condition qui bloque

Bonjour Vincent, Pas de besoin ou très peu dans le ferraillage mais je prendrai sur mon temps pour regarder de plus près cet outil qui semble superbe Un grand merci, Amicalement

Salut, Ce sont les 2 commandes qui ne fonctionnent pas ou simplement quitter sans enregistrer ?