LUDWIG

:D Bonjour !!! Et oui je n'en finis plus avec mes questions... Ce matin : j'ai fait un entget et je veux mettre le résultat dans un fichier txt. Mais j'ai l'impression que parceque c'est une liste et pas une chaine, ça ne marche pas. Y-a-til un moyen de transformer une liste en chaine ?

OK parfait ! Je vois que les coordonneés sont données par rapport au point d'insertion (normal puisque le bloc n'est pas forcement inséré dans le dessin). Merci Tramber ! Et pour avoir le bloc entier : (setq fir (car(entsel))) [Edité le 24/3/2005 par LUDWIG]

Bonjour, Je fais un lisp pour redéfinir correctement les points d'insertion des blocs (qui n'a jamais été embêté par un bloc dont le point d'insertion est à 100 kilomètres ?). Je pense "scanner" les blocs de la table et vérifier que le point d'insertion se trouve dans l'emprise du bloc... Si ce n'est pas le cas, je le rédéfinit au centre de l'emprise du bloc. Et là, magie, la méthode [surligneur] GETBOUNDINGBOX [/surligneur]est là pour m'aider ! Sauf que je n'arrive absolument pas à la faire fonctionner... Une ceinture noire pourrait-elle m'aider à comprendre (par exemple, via un programme qui demande de sélectionner un bloc à l'écran et place un point sur le mini et un point sur le maxi). Merci à vous !

Bonjour à tous, Nouvelle problématique du jour : j'ai des objets " blocs à vues multiples" que je dois " encapsuler" chacun dans un bloc ("normal")... J'ai une vague idée de la méthode à adopter... - Pour chaque nom de bloc à vues multiples, je créé une entrée de bloc dans la table des blocs Nom du bloc=nom du bloc à vue multiple (+ un indice si ça pose des problèmes de noms récurrents). --> je peux pour ça faire un wbloc des blocs à vues multiples et les réinsérer dans le dessin. - dans le dessin, pour chaque bloc à vues multiples, j'insère le bloc correspondant avec le même point d'insertion, les mêmes échelles XYZ et la même rotation - je supprime le bloc vues multiples Est-ce que quelqu'un a une meilleure idée ou des conseils à me fournir ? Merci d'avance....

OK je me pense dessus...

Tramber, je suis aller voir, mais ça me dépasse :hallucine: Bonuscad, Mon code (la différence avec le tien , c'est que je n'exporte que des blocs présents graphiquement...) : (defun c:wb () (setq filediaOLD (getvar "filedia")) (setvar "filedia" 0) (setq blocs (ssget (list (cons 0 "INSERT")))) (setq n 0) (repeat (sslength blocs) (setq bloc_traite (entget (ssname blocs n))) (setq fichier (strcat "C:/Documents and Settings/ldesmier/Bureau/BIBLI/" (setq nom (cdr (assoc 2 bloc_traite))) ".dwg")) ;le chemin est pour l'instant imposé (command "-wbloc" fichier nom) (setq n (+ 1 n)) ) (setvar "filedia" filediaOLD) ) Bon, sinon, je crois que je me suis fourvoyé lamentablement : je tentais un (getfiled "Chemin d'export des blocs" "" "" [b] 0[/b]) --> pas de nom par défaut donc ça ne marchait pas ! Mon problème est maintenant résolu. Merci pour ton lisp qui est très bien. NOTE : mon lisp ne traite pas le pb des doublons ! [Edité le 23/3/2005 par LUDWIG]

Bonjour, J'ai fait un lisp pour faire un Wbloc sur chacun des blocs sélectionnés dans le dessin. Je souhaite saisir le chemin du dossier ou enregistrer ces blocs via une boîte de dialogue ... Mais la commande GETFILED m'oblige à sélectionner un FICHIER... Si mon dossier est vide, je ne sais pas comment le sélectionner (à part en créer un fichier à l'intérieur...). Y-a-t'il un moyen d'utiliser GETFILED (ou une autre commande) pour sélectionner un DOSSIER ? Merci d'avance...

Je précise : -insérer " NOM_DU_BLOC = FICHIER " La redéfinition est automatique

Serge, d'après l'aide, EXPERT à 5 ne pose plus la question pour la redéfinition des styles de côtes. Mon problème étant qu'au contraire, il ne me posait pas la question alors que j'en aurais eu besoin. CoolMan, ta méthode marche nickelle. Mais j'avais une boîte de dialogue pour renommer mon bloc que je voulais insérer car son nom existait déjà dans le dessin. La syntaxe a utiliser (sur 2005) est : - insérer nom_du_bloc="nom_du_fichier.dwg" Le bloc "nom_du_bloc" existe déjà. Voulez-vous le redéfinir ? [Oui/Non] : o Merci beaucoup à vous deux...

Je n'ai pas de filtres de calques et un audit me montre qu'il n'y a rien a corrigé ! :calim:

rebonjour J'ai un plan avec des blocs. J'ai une bibliothèque avec ces blocs qui sont " plus a jour". Depuis le designcenter, je sais " redéfinir" un bloc (en cliquant à droite sur sa miniature --> Redéfinir seulement). [surligneur] Comment redéfinir en masse toutes les blocs de mon dessin sans avoir à les redéfinir un par un ?[/surligneur] Avec la boîte de dialogue insérer un bloc, il pose la question " voulez-vous redéfinir le bloc". Je me suis donc d'y qu'avec un script, ce serait facile. Mais en ligne de commande ( -Insérer), il ne pose plus la question ! HELP ME PLEASE !!!! :exclam: Note : je dois garder les mêmes noms de blocs (parceque j'ai des blocs multivues qui utilisent ces définitions). Donc à priori, blockreplace ne sert pas.

Bonjour J'ai mis cette macro dans un bouton pour purger automatiquement un dessin. Le problème, c'est qu'il me [surligneur] plante autocad [/surligneur] sur certains fichiers: ^C^C-purger;_all;*;n; alors que si je purge en passant par la boîte de dialogue, l n'y a aucun problème. En fait, quand j'utilise cette version de purger, il y a une barre d'avancement "analyse du dessin" en bas à gauche qui reste bloquée sur 12 ou 74 % (sur certains fichiers). J'ai également quelque lenteur quand je clic sur la liste des calques, cette barre d'avancement met trois plombes à réagir. Si quelqu'un sait comment gérer ce problème, je suis preneur ! (configuration : Autodesk Architectural Desktop 2005 - Windows XP PRO SP2 - Pentium IV 3,2 Ghz - 1Go Ram - Fichiers 3D de 6 Mo avec blocs multivues, murs, portes et fenêtres)

ah parfait parfait ! C'est vrai que quand ma sélection était vide, j'avais toujours un plantage ! Et c'est intéressant de placer une "alerte" pour que l'utilisateur comprenne que ça sélection ne va pas (car dans mon cas, quand la sélection n'est pas bonne, la question de la sélection est redemandée mais l'utilisateur ne voit peut-etre pas que la question est reposée).

arhh c'était simple, il faut juste utiliser "AND" (while (= nil (and (= "INSERT"(cdr(assoc 0 (entget(setq premier (car (entsel "\nSélectionnez une définition de bloc A REMPLACER (échelle 1 et rotation 0)... \n\n"))))))) (= 0 (cdr(assoc 50 (entget premier)))) (= 1 (cdr(assoc 41 (entget premier)))) (= 1 (cdr(assoc 42 (entget premier)))) (= 1 (cdr(assoc 43 (entget premier)))) )))

Aïe Aïe, ma problématique devient plus complexe : Je dois [surligneur] répéter le entget [/surligneur]tant que l'entité n'est pas un [surligneur] bloc de rotation 0 et d'échelle X Y et Z = 1[/surligneur]... Comment s'y prendre ? Je suppose que ce sera une ligne complexe... Je suis donc aussi preneur pour un [surligneur] arrêt du lisp [/surligneur]si mes conditions ne sont pas bonnes...

merci à tous

Ah Ok Pour ma part j'utilise DXFlistdata des outils de Bonuscad. C'est un peu plus ordonné. Le problème, c'est que ça ne donne pas les longueurs-largeurs de murs, ni même point de départ-point d'arrivée. J'avais le même problème quand j'ai voulu récupéré des liens hypertextes : ces liens sont gérés par une autre application (PE_URL) et il faut donner une syntaxe spécial pour le récupérer (setq lastent (entget(car(entsel)) '("PE_URL")) )... Donc je ne sais pas si je dois indiqué le nom d'une autre application pour qu'elle me donne ces valeurs de longueur et largeur...

Salut Je n'arrive pas utilise ton code et surtout je ne comprends pas à quoi il sert ... Tu peux expliquer ?

Bonjour, Je suis sur ADT2005 et je voudrais développer une commande LISP pour inverser la largeur et la longueur d'une entité AEC_wall (mur Autodesk Architectural Desktop) sans changer son sens. Or je n'arrive même pas à extraire les codes DXF ou seraient stockées ces infos. Faut-il entrer le nom d'une application (comme ici pour récupérer les valeurs d'un hyperlien) ? Laquelle ? Merci d'avance de votre aide...

Je réponds moi même à mon 1er message, au cas ou ça intéresse quelqu'un : ^C^C(sssetfirst (setq SEL (ssget '((-4 . "infNOT")(0 . "INSERT")(-4 . "NOT>"))) ) SEL) (avec en gras n'importe quel filtre).

Bonjour, Autocad fait que me poser cette question dès que je change de vue... Y-a-t'il une variable à changer pour qu'il régénère automatiquement (ou pas) sans poser la question ? Merci d'avance.

nan nan c'était vraiement une réaction bizarre. Quand je méttais plusieurs fois 0, il me le remplaçait à chaque fois par une valeur différente !

je voulais dire par "ligne de commande" : sans la boîte de dialogue, histoire d'automatiser la purge avec un petit bouton.

je n'ai pas eu le problème à nouveau...

Hello J'ai un bloc X. Quand je modifie manuellment (à 0 en l'occurence) sa rotation dans la fenêtre propriétés, il me change aussitôt cette valeur par une autre valeur (jamais la même me semble-t'il). Quelqu'un connaît ce problème et peut-il m'aider ? Merci d'avance !