Bortch59

Bonjour, merci pour vos réponses. Il s'agit effectivement d'un exercice, de plus c'est un outil qui me manque. Je ne connaissais pas la commande BURST (comme beaucoup de commandes des express d'ailleurs) qui se rapproche de ce que je veux mais elle ne traite pas les types et épaisseurs de lignes (DuBloc dans mon cas).

Bonjour, je souhaiterais créer un lisp qui placerait tous les objets d'un bloc dans le calque courant une fois celui-ci explosé. Mes blocs sont créés sous le calque 0 et les propriétés sont DuBloc (couleur, type ligne et épaisseur) sauf axes qui ont des propriétés forcées (hors calque). Je ne sais pas trop comment m'y prendre. J'ai pensé créer une liste de tous les éléments composants le bloc, puis de mettre à jour leurs propriétés via (subst) et (entmod). Qu'en pensez vous? Merci pour vos pistes, pas de codes tout fait SVP.

Au temps pour moi! Je ne m'étais jamais rendu compte que les attributs conservaient leur justification après symétrie (à l'inverse des textes multiples).

Bonsoir, j'ai creé le bloc ci-joint. Il comporte un paramètre polaire et de symétrie ainsi que deux attributs. J'insére mon bloc, je renseigne mes attributs, je replace le bloc selon le paramètre polaire, tout ce passe bien. Sauf quand j'édite l'un des deux attributs, la justification disjoncte et je suis obligé de réinitialiser le bloc puis de le replacer. Le bloc a été créé avec une version 2010, le problème existait déjà. Merci pour vos réponses. ETQ_FE.zip

Merci à vous deux pour vos réponses. C'est exactement ça. Ce que je redoutais et que je voulais éviter, c'est d'avoir à sortir tout mes blocs en fichiers blocs => gros boulot! Mais avec le lisp que me présente Fraid, j'ai l'impression que cela va être un jeu d'enfant.

Bonjour, j'ai un fichier contenant des blocs que j'insère via les palettes. Je me retrouve donc avec un groupe de 5 palettes qui commence à être surchargée à mon gout (à chaque fois 1 type de raccords x 8 ou 9 diamètres). J'envisageais de créer un code par type de raccord qui irait me chercher le bloc dans le bon diamètre et que je mettrais dans une palette (gain = 1 palette au lieu de cinq). Seulement je ne sais pas comment aller chercher les blocs dans le fichier source à la manière des palettes. Est-ce possible ou dois je obligatoirement créer un fichier par bloc? Je précise que mis à part ce problème de récupération de bloc je sais faire le reste. Merci.

Salut, après analyse de vos réponses et quelques tests j'ai opté pour la solution qui suit (initget 1 "Calcul") (setq AiResa (getreal "Arase inférieure ou [Calcul]: ")) (cond ((numberp AiResa) (INSERT_RESA)) ((null (numberp AiResa)) (calcul)) ) Merci à vous deux.

Je relance ce post que j'avais classé comme résolu car je n'arrive pas à faire la même chose avec (getreal) (setq AiResa (getreal "Arase inférieure ou [Calcul]: ")) J'ai essayé avec (initget 128), (initget "C"), (initget 128 "C")... J'ai toujours la même erreur : Nécessite une valeur numérique. Normalement le bit 128 devrait me permettre ce genre de choix?

Effectivement très simple. Je ne comprends pas j'étais convaincu que (entsel) ne permettait pas ce genre d'action. Peut être un erreur de syntaxe pendant mes tests. Merci.

Bonjour, j'ai pour habitude d'insérer des choix avec mots clés du style (initget "U N F") (setq choixOp (getkword "\n[unités/NGF/Format]: " ) ) mais comment faire si l'on veut ajouter une option à une fonction (entsel) (setq ObjetSelect (entsel "\nSélectionnez un raccord ou [Paramètres]: ") ) sachant que (entsel) n'accepte rien d'autre qu'une sélection Merci.

Je parlais en effet des ldatas. Pour ce qui est des Xrecords, comment se fait le choix des codes DXF? Y a t'il des paires à éviter ou fait on un peu ce que l'on veut (hormis je pense 0 et 100)?

Bonjour, est t'on obligé de passer par un objet Xrecord pour ajouter des données au dictionnaire?? Cela parait moins compliqué en Vlisp, est ce une impression?

Merci pour vos réponses. Suite à la réponse de (gile), j'ai opté pour récupérer l'échelle du bloc que j'insère. Je vous livre ci-dessous mon code en l'état (pas de gestion d'erreur, etc), vos remarques sont les bienvenues. Le but est d'insérer une étiquette qui renseigne les dimensions d'une réservation circulaire et la numérote. Merci. (defun c:test (/) (setvar "attdia" 0) (setq lstEnt (entget (car (entsel)))) (while (/= (cdr (assoc 2 lstEnt)) "RSV_CIRC") (alert "Vous devez sélectionner une réservation") (setq lstEnt (entget (car (entsel)))) ) (setq EntEch (cdr (assoc 41 lstEnt))) (if (null Num) (setq Num 1) (setq Num (1+ Num)) ) (command "_-insert" "ETQ_RSV" pause "" "" "" (print (strcat "PLB n°" (rtos Num 2 0) ) ) (print "en dalle" ) (print (strcat "Ø" (rtos EntEch 2 0) ) ) "" ) (setvar "attdia" 1) (princ) )

Bonjour, je n'arrive pas à me "balader" dans un bloc que je sélectionne par (entsel) afin de récupérer par exemple le diamètre d'un cercle faisant partie dudit bloc. Je précise que je sais parcourir les attibuts d'un bloc avec (entnext). Merci.

Salut lili2006, je remarque que tu insère la formule une fois le bloc fait. J'ai réessayé avec un autre bloc, cela fonctionne parfaitement. Mais l'inconvénient est qu'il faut refaire la formule à chaque fois que l'on insère le bloc. Dans la méthode que j'ai utilisée avec le bloc "TEST_Ht_COL" (dans fichier joint au premier post et qui fonctionne), la formule est insérée dans la valeur par défaut de l'attribut (objet=>définition d'attribut + objet=>définition d'attribut). Par contre ça ne marche plus avec le bloc "test"... Si tu as une idée... Merci

Salut lili2006, pourrais tu m'envoyer l'image en question à l'adresse ci dessous sylvain.brochot@laposte.net Merci

Est ce que tu pourrais préciser, je ne vois toujours pas ce que je ne fais pas correctement. Merci.

Non plus, j'ai droit à ce message d'erreur: Error (403) It seems you don't belong here! You should probably try logging in? You can also check out our FAQ or forums and maybe you'll find what you were looking for. Or maybe you should try heading home.

L'image ne s'affiche pas chez moi...

Bonjour, effectivement cele fonctionne, mais où est la différence avec ce que j'ai fait. Le fait d'attribuer une valeur par défaut? Je ne comprends pas...

Bonjour, quelqu'un saurait-il me dire quelle est la différence entre les deux blocs du fichier ci-joint? Je cherche à additionner des valeurs d'attribut. J'avais créé le bloc TEST_Ht_COL qui fonctionne (la soustraction des valeurs s'opère correctement) mais je n'arrive plus à faire la même chose. méthode employée pour la création des champs: champs=>formule ; champs=>objet=>définition d'attribut=>valeur + champs=>objet=>définition d'attribut=>valeur Merci. Addition champs valeur attribut.zip

Salut, tu fais allusion aux dictionnaires? Doit-on créér un dictionnaire par variables à sauvegarder?

Bonjour, j'aurais voulu savoir s'il est possible d'attribuer simplement une variable à un fichier, comme par exemple attribuer une altimétrie à un dessin. L'utilisation de (setq VAR) étant réinitialisé à chaque ouverture du fichier. Je connais "dwgprops" mais peut-on l'exploiter (simplement) en Lisp? Y aurait il d'autres pistes? Merci.

OK merci pour ces (cette) réponses!! Je m'en vais regarder de plus près (ai_sysvar). Merci.

Bonjour, à la suite de recherches sur la gestion d'erreurs je suis tombé sur ce post, où j'ai trouvé la fonction de (gile) (SAVE&SET_VAR) très inréressante. ;;; SAVE&SET_VAR ;;; Enregistre la valeur initiale de la variable système dans une liste ;;; et lui attribue sa nouvelle valeur (si val est non nil) (defun SAVE&SET_VAR (var val) (cond ((getvar var) (setq SavedSysVarLst (cons (list 'setvar var (getvar var)) SavedSysVarLst) ) (if val (setvar var val) ) ) ) ) Seulement si je comprends son fonctionnement dans son ensemble, je ne comprends pas certaines subtilités. Pourquoi n'écrit t'on pas simplement: (defun SAVE&SET_VAR (var val) (setq SavedSysVarLst (cons (list 'setvar var (getvar var)) SavedSysVarLst) ) (setvar var val) ) Pourquoi utiliser (cond)? Pourquoi extraire la valeur de la variable deux fois? Et pourquoi utilise t'on (if) puisque l'on affectera forcément une valeur à la variable? Merci.