Fabs

Bonjour. j'ai vu sur le site qu'il était possible de modifier des décimales de champs ex: (%lu2%pr2">%) dans des blocs avec attributs, il y a une solution de Gille. ci joint le lien : j'ai des coordonnées de point en MTEXT que l'on me demande de changer la décimale, plus d'une centaine dans le dessin. est-il possible de lire le champs %pr2">% et de le mettre à 3 Cordialement Fabs

Bonjour. j'ai vu sur le site qu'il était possible de modifier des décimales de champs ex: (%lu2%pr2">%) dans des blocs avec attributs, il y a une solution de Gille. j'ai des coordonnées de point en MTEXT que l'on me demande de changer la décimale, plus d'une centaine dans le dessin. est-il possible de lire le champs %pr2">% et de le mettre à 3 Cordialement Fabs91

Bonjours à tous. Je déterre ce sujet, sur le lisp de Gile complété par Patrick_35. J’ai ajouté pour mes besoins l’importation des présentations. (mapcar 'cons '("Blocks" "DimStyles" "Layers" "Layouts" "LineTypes" "TextStyles" "UserCoordinateSystems" "Views") '("Blocs" "Styles de cotes" "Calques" "Présentations" "Types de ligne" "Styles de texte" "UCS" "Vues") ) Ci mes présentations se nomme « présentation1, 2, 3, 4 etc cela fonctionne sauf s’il existe déjà une présentation du même nom (normale). Si mes présentations se nomment A01, A02, A03 ou tout autre, les présentations son ajouté mes vides, cependant autocad me montre les vignettes pleines. Quand j’ouvre à nouveau le dwg, il me demande de faire une récupération et me donne ces informations : Layout Dictionary Entry BTR doesn't point back Deleted autant que de présentations Contrôle des entités 1ère passe Etape 1 1500 objets contrôlés Contrôle des entités 2ème passe AcDbBlockTableRecord: "*Paper_Space26" Not in Table Added Etape 2 1300 objets contrôlésAcDbLayout(93E) Placing A01 in ACAD_LAYOUT dictionary = présentation A01 AcDbLayout(943) Placing A02 in ACAD_LAYOUT dictionary = présentation A02 AcDbLayout(948) Etc pour les autres présentations Etape 2 1500 objets contrôlés Contrôle des blocs 27 blocs contrôlés Contrôle d'AcDsRecords Nombre total d'erreurs trouvées 129, corrigées 129 0 objets effacés Pourquoi le lisp c’est lire les présentions normalisées d’autocad mais pas celle que nous nommons. Je pense que cela vient de « gc:ImportTableRecords » je n’ai pas trouvé la solution merci par avance si quelqu'un pouvait m'orienter

merci c'est une autre solution, mon objectif est d'etre faignant et de laisser autocad travailler à ma place sur les choses répétitif. Fabs

Bonjours. j'utilise le lisp de patrick_35 Grf pour assembler plusieurs dessins dans l'espace Objet. fonctionne très bien. j'aurais voulu savoir si il étais possible de récupérer le contenu de chaque presentation (cartouche, cotes, textes ...) pour les insérer en meme temps dans l'espace présentation. j'utilise la fonction gabarit extension en dwg et je sélectionne chaque dessin 1 par 1 ou le lisp "Steal" de lee mac. j'ai 65 présentations à récupérer. les 65 dessins sont identiques avec les variables autocad merci par avance.

Bonjours ci joint un lisp à partager que j'utilise. il n'est pas parfait mais il fonctionne. le petit bug est en sélectionnant pour la premier foi le bloc le message est "Le bloc "_Y" n'a pas été trouvé." pourtant il l'a crée... (defun c:crbl (/ bloc nom way) (defun *error* (e) (vl-bt)) (while (or (not (setq bloc (car (entsel "\nSélectionner un bloc :")))) (/= (cdr (assoc 0 (entget bloc))) "INSERT") ) ) (setq path (getvar "DWGPREFIX")) ;;;;;; creation du repertoire Blocs dans la racine du dessin ;;;;;;;;;;;;;; (setq plotdir(strcat path "Blocs"));;; cree un repertoire PDF files dans le repertoir ou se trouve le dwg (if (not (findfile plotdir));;; si n'existe pas (vl-mkdir plotdir);;; Crée le répertoire PDF files ) ;;;;;; (setq chemin_name (strcat plotdir "//" bloc));;; Modification cree le pdf dans ce chemin ;;; (setq nom (cdr (assoc 2 (entget bloc)));;; nom du bloc, ne fonctionne pas quand il est anonyme (setq bloc (vlax-ename->vla-object bloc)) (setq nom (vla-get-effectivename bloc) ;;; nom du bloc avec effectivename fonctionne avec les blocs anonymes way (strcat path "Blocs" "\\" nom ".dwg");;; chemin complet du répètoire ) (if (findfile (strcat nom ".dwg")) (progn (command "-wbloc" way "_Y" nom) ) (command "-wbloc" way nom) ) )

merci du complément Didier, je vais l'étudier. Fabs

merci pour l'idée

merci de votre retour rapide les caracteres spéciaux (-, _, $, ¤) etaient pour faire des test de fonctionnement pour comparer avec le #. j'ai choisi le # en début de mes calque car cela fait bien longtemps que personne ne respecte les chartes d'entreprise si il y en a. et comme les dwg ne sont plus fait par un dessinateur mais par X dessinateurs donc autant de nouveau calques + les échanges internationaux = moyenne 200 calques le diese me permet d'avoir mes nom de calque en début de liste et de passer de l'un à l'autre rapidement Bonuscad ta ligne de command fonctionne parfaitement c'est ce que je recherchais Fabs

Bonjours le forum. ci joint le lisp que j'utilise régulierement, il fonctionne correctement mais pas avec des calques contenat ler #. il fonctionne bien avec des calques commencant par (-, _, $, ¤) si j'utilise la command clavier Fcalque => geler => selection de mon calque "#textes" = cela fonctionne. je ne trouve pas d'information en lisp qui pourrait bloquer avec l'utilisation du # dans un nom de calque. le # peut importe l'endroit dans le nom du calque, le lisp ne fonctionne pas. (defun c:gel_fen (/ ss n) (defun *error* (e) (vl-bt)) (setq ent(car(nentsel "\nSélectionnez un objet sur le calque à geler dans la fenêtre courante: "))) (setq ent (cdr (assoc 8 (entget ent)))) ;;;(command "_vplayer" "_freeze" ent "" "");;; fonction anglaise (command "fcalque" "g" ent "" "");;; fonction francaise (princ) ) quelqu'un aurait une idée pour les calque contenant le # dans un nom de calque (type #Textes) Fabs