BIGC-ROMU

Je te remercie, je regarde ça, et je vais essayer de faire quelque chose à ma sauce.

Bonjour à tous, Je n'arrive pas à trouver un lisp qui permetrais d'un clique, de selectioner toutes les hachures d'un dessin (même des blocs) et ensuite de les mettres toutes en arrière plan. Il me semblais que quelque chose du genre existait, mais je n'arrive plus à mettre la mains dessus... Si quelqu'un pouvait m'aider....

Bonjour à tous, Je n'arrive pas à trouver un lisp qui permetrais d'un clique, de selectioner toutes les hachures d'un dessin (même des blocs) et ensuite de les mettres toutes en arrière plan. Il me semblais que quelque chose du genre existait, mais je n'arrive plus à mettre la mains dessus... Si quelqu'un pouvait m'aider....

Bonjour C'est possible en inversant la délimitation (poigné en forme de flèche quand on selection l'XREF avec une délimitation).

Moi je conseil plutôt de modifier le bloc à partir de l'éditeur de bloc dans le dessin dans lequel est inséré le bloc, et non à partir du dwg "source" du bloc (créé avec wbloc). La mise à jour de l'ensemble des blocs du dessins sera faite automatiquement. une réserve, quand même, pour les bloc contenant des attributs (la mise à jour ne se fait pas!), ou l'on doit réinsérer le bloc.

Bonjour, et bienvenue sur CadXP julromgm777 D'aprés ton post je suppose que tu veut modifier les valeurs des attributs d'un bloc déja insérés. Par conséquent, je te conseille la commande ATE sur la ligne de commande.

Dans le post de lili2006 dans cette discution du 22/8/2010 à 08:03

Effectivement ça marche mieux... Je te remercie (gille)

Désolé pour le retard Quand tu modifie ton bloc dans l'éditeur pense à le réinserer une fois fois revenu dans le dessin. De plus, avant de réinsérer ton bloc, vérifier les unités de ton dessin dans Format - Contrôle des unités... Ton bloc semble bien fonctionner chez moi.

Bonjour à tous. J'ai modifié le lisp style_cot de (gille) (ce lisp permet de mettre courant le style de la cote selectionner). Ma modife consiste, en plus de mettre courant le style de la cote selectionner, à recupérer le calque de la cote selectionnée et de le mettre courant. Le lisp marche, mais j'ai un message d'erreur. Si quelqu'un peut m'aider. Le message d'erreur: Commande: style_cotc Sélectionnez la cote dont vous voulez rendre le style courant: GO-Cotations est maintenant le calque courant. ; erreur: no function definition: nil Le lisp modifié (parties surlignées): ;;; Rend le style de cote [surligneur] et le calque[/surligneur] de l'objet sélectionné courant (defun c:style_cotc (/ echo set1 ent) (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (if (and (= 1 (getvar "pickfirst")) (setq set1 (ssget "_i")) (= 1 (sslength set1)) ) (progn (setq ent (ssname set1 0)) (sssetfirst nil nil) ) (progn (sssetfirst nil nil) (while (not ent) (setq ent (car (entsel "\nSélectionnez la cote dont vous voulez rendre le style courant: " ) ) ) ) ) ) (if (= (cdr (assoc 0 (entget ent))) "DIMENSION") [surligneur] ((command "_Laymcur" ent)[/surligneur] (command "_-dimstyle" "_r" (cdr (assoc 3 (entget ent)))) ) (progn (princ "\nL'objet sélectionné n'est pas une cote.") (exit) ) ) (setvar "cmdecho" echo) (princ) )

Marche trés bien ce lisp, merci Patrick_35 Quelques sugestions: - Suppression des SHX manquantes (voir RFORM de (gille)) - Supprimer les caractères non imprimables (espaces, tabulations, retour charriot, ...) situés à droite de tous les textes, mtextes et attributs du dessin.(voir CLEANTXT (je ne connais pas l'auteur), voir ci-dessous. - Supprimer les objets nettoyer (wipeout) et les images raster ;; CLEANTXT ;; Supprime les caractères non imprimables (espaces, tabulations, retour charriot, ...) ;; situés à droite de tous les textes, mtextes et attributs du dessin. (defun c:cleantxt (/ RightCleanText) (vl-load-com) (defun RightCleanText (txt / lst) (setq lst (reverse (vl-string->list txt))) (while (and lst (or (< (car lst) 33) (and (= (car lst) 80) (= (cadr lst) 92)) ) ) (if (< (car lst) 33) (setq lst (cdr lst)) (setq lst (cddr lst)) ) ) (vl-list->string (reverse lst)) ) (if (ssget "_X" '((0 . "*TEXT,INSERT"))) (vlax-for obj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)) ) (if (= (vla-get-ObjectName obj) "AcDbBlockReference") (if (= (vla-get-HasAttributes obj) :vlax-true) (foreach att (vlax-invoke obj 'GetAttributes) (vla-put-TextString att (RightCleanText (vla-get-TextString att)) ) ) ) (if (= "" (setq txt (RightCleanText (vla-get-TextString obj)))) (vla-delete obj) (vla-put-TextString obj txt) ) ) ) ) (princ) ) Merci encore[Edité le 10/10/2010 par BIGC-ROMU] [Edité le 10/10/2010 par BIGC-ROMU]

Et moi qui pensais avoir fait le tour des lisps de Gille... Je suis impardonnable de ne pas avoir recherche chez Gille ou Patrick35... Désolé...et merci de m'avoir consacré un peu de temps.

Je te remercie REBCAO pour ta rapidité. Aprés essais sur une vue en plan d'un batiment tout en courbes, des décalage importants sont apparue aprés importation et remise à l'echelle (le facteur d'echelle d'importation est apparament aléatoire suivant le zoom du dessin), de plus des décalages angulaire sont apparus. Il me semblait avoir vue passe quelque chose du genre sur le forum, mais aprés recherche je n'est rien trouvé... Quelqu'un à t'il une solution? Pour info. la décomposition me permetrait de créer une modélisation rapide de mon batiment dans mon logiciel de calcul qui ne récupère pas les courbes et les cercles (via un DXF).

Bonjour, Je souhait convertir des cercles, courbes... en plusieur segments de droites. Comment je peut faire de façon automatique.

En version 2007 (désolé, j'avais pas vue que j'était dans un forum 2008) http:// http://cjoint.com/?grpAfWZRhn