Netparty

Bonjour @Luna Voici quelque modif, mais pour le test de sélection cela n'a pas l'air de fonctionner. J'ai ajouter aussi (initget 4) pour empêcher les valeurs négative (defun c:test () (initget 4) ; 4 pour interdire les valeurs négative (if (setq e (entsel "\nSelectionner une ligne")) (progn (prompt "\nErreur : L'objet sélectionné n'est pas une ligne") (setq e (entsel "\nSelectionner une ligne")) )) )

Je suppose que je déclare la variable pour la récupérer plus tard dans la première ligne : (defun c:ECH_LIGNE (/ echelle) ; echelle est la variable Pour les 3 lignes suivantes : (setq echelle (getint "Quelle echelle :")) ; Je demande l'echelle (setq e (entsel "\nSelectionner une ligne") ; je choisi la ligne que je dois changer (setvar "CELTSCALE" echelle) ) ; j'applique la nouvelle echelle Cela fonctionne mais comment savoir que c'est la sélection qui doit recevoir le nouveau paramètre CELTSCALE.

Re @JPhil@Luna suis-je dans la bonne direction ? (defun c:ECH_LIGNE (/ ) (setq echelle (getint "Quelle echelle :")) ( (setq e (entsel "\nSelectionner une ligne")) (setvar "LTSCALE" echelle) ) ) Merci

Merci pour vos conseil Bonne journée

Bonjour JPhil J'ai trouvé mon problème, en fait comme la ligne était une ligne avec du texte, la hauteur du texte pour STANDARD était de 125 j'ai donc changer cela. Merci et bonne journée

Bonjour à tous J'ai pour habitude de vous demander de l'aide pour des Lisp, mais j'aimerai créer mon premier lisp tout seul. Je vais commencer par quelque chose de simple : - Au lancement du lisp je dois entrer une valeur pour l’échelle de type de ligne. - Ensuite je clique sur les lignes que je doit modifier. J'aimerai juste des pistes et fonction vers quoi je doit me diriger, merci de ne pas me donner la solution toute faite que je puisse chercher par moi même. voilà le début de mon code : (defun c:ECH_LIGNE (/ name) (setq Echelle ((getstring "Valeur") "\nSpécifiez la distance: ")) (princ) ) Quel éditeur utilisez-vous, moi j'ai installé visual studio code Merci et bonne journée

Bonjour à tous J'ai un soucis dans mon gabarit avec les échelles de type de ligne. Dans mon gabarit j'ai ceci comme ligne : Par contre si je test dans un nouveau fichier tout est correct avec les même paramètres. Il y a t-il une possibilité de remettre toutes les échelles par défaut. Merci d'avance

Encore un tout grand merci Luna Petite question est-il possible de ne pas sortir du lisp si je clique à coté de l'attribut? Bonne journée

Re Luna Super boulot, je t'en remercie Passe une bonne journée

Bonjour Luna Voici mon fichier, j'aimerai récupérer les attributs suivant du bloc : N°AFFAIRE, NIVEAU, TECHNIQUE, NUMERO, DERIND pour avoir un nom de présentation : N°AFFAIRE-NIVEAU-TECHNIQUE-NUMERO-DERIND Merci Dessin2.dwg

Bonjour à tous J'utilise régulièrement un lisp qui me permet de faire une rotation de 180° sur un attribut choisit mais j'aimerais l'adapter pour qu'en plus de la rotation la justification du texte soit changée en milieu droit cela est-il possible. Ci-joint le code : (defun c:ATTROT180 (/ name) (while (and (setq name (car (nentsel "\nVeuillez cliquer sur un attribut : "))) (= (cdr (assoc 0 (entget name))) "ATTRIB") ) (entmod (subst (cons 50 (+ (cdr (assoc 50 (entget name))) (/ pi 1.0))) (assoc 50 (entget name)) (entget name))) ) (if name (prompt "\nErreur : L'objet sélectionné n'est pas un attribut") (prompt "\nFin de la commande") ) (princ) ) Merci et bonne journée

Bonjour Luna Pourrais-tu me guider sur ce que je dois modifier pour l'adapter à mon cas Merci bonne journée

Bonjour Luna Quand j’exécute le lisp j'ai le message d'erreur suivant : erreur: no function definition: DXF_LIST Bonne journée

Bonjour Luna Merci pour tes infos, quand ton projet sera fait pourrais-tu me montrer cela. Bonne soirée

Bonjour Phil Je suis tombé par hasard sur ton post et ta méthode m’intéresse fortement. Pourrais-tu m’expliquer ta méthode pour renommer tes présentation suivant les champs de ton cartouche Merci

Bonjour Luna Je suis tombé par hasard sur ton post et m’intéresse fortement. Dans mon cas je renomme manuellement chaque présentation quand je change l'indice de mon plan exemple : ELEC-01-A , pour l'indice suivant ELEC-01-B comment puis-je récupérer le champs " DERNIER_INDICE " de mon cartouche pour renommer automatiquement mes présentation. Merci d'avance

Bonjour à tous Je vous explique mon problème, dans le cartouche de mes plans j'ai un bloc qui me sert de tableau de révision des indices du plan, ce bloc contient une série d'attribut pour chaque indice. Met souvent je dépasse le nombre d'indice de ce tableau et je suis obligé de supprimer l'indice le plus bas et de décaler toutes les infos des autres indices. Mon idée serait de prévoir les indice de A jusque Z et a l'aide d"un réseau rectangulaire au fur et a mesure que j’agrandis le réseau j'affiche l'indice supérieur. J’espère être claire dans mon explication? Merci d'avance pour votre aide Tableau indice de revision.dwg

Bonjour Luna C'est top Un tout grand merci Bonne journée

Bonjour Olivier Malgré cela je n'arrive pas à redéfinir la largeur à 0 après la commande Pline Merci

Bonjour à tous Je cherche la possibilité de dessiner une polyligne via un lisp avec la commande command "_PLINE" Est-il possible de définir la largeur du sommet de départ et de fin Merci d'avance

Re bonjour J'y suis presque mais quand je termine la commande Pline le reste du code (setvar "CPLINEWID" 0) n'est pas pris en compte. Aurais-tu une idée. merci (defun c:ZONE-TD-PLAN () (setvar "PLINEWID" 50) ; Largeur global de la polyligne (setvar "CELTSCALE" 25) ; Echelle du type de ligne (command "_layer" "_new" "COL_3_Tableaux-zonage" "") ; Création du calque (setvar "CLAYER" "COL_3_Tableaux-zonage") ; Se place sur le calque pour dessiner la polyligne (command "_PLINE" pause) ; Dessiner la polyligne (setvar "CLAYER" "0") ; Se place sur le calque 0 (setvar "CELTSCALE" 1) ; Redéfinit l'échelle à 1 (setvar "CPLINEWID" 0) ; Redéfinit la largeur global à 0 <------ Ne fonctionne pas (princ)

Bonjour Luna Super c'est impeccable. Est-il possible aussi de définir l’échelle du type de ligne? Un tout grand merci Bonne journée

Bonjour Luna J'ai testé mais cela ne fonctionne pas Merci quand même

Bonjour Eric J'ai encore une question, j'ai essayé de personnaliser une commande qui dessine une polyligne avec une épaisseur de 50 ^C^CPLINEWID;50;_pline jusque la cela fonctionne mais est-il possible quand j'ai terminé ma polyligne de revenir sur le calque 0. Merci

Merci