yusukens82

Bonjour Luna, merci pour ta réponse. c'est vrai que ma demande semble bizarre à première vue. Je pensais avoir encore une chance avec la fonction CHAMPS que je ne maitrise pas encore Je joins un fichier pour mieux comprendre. sur la cote à 160.36, j'ai appliqué un préfixe de +1. Il suffit donc de déplacer l'accroche pour avoir une cote NGF. Le but d'appliquer une formule à la cote et réduire le point d'origine 100 (tout en bas) à 50 . pour réduire le grand rectangle vert. Cote avec formule.dwg

Bonjour, Savez vous s'il est possible d'appliquer une formule mathématique (addition ou soustraction) à une cote. par exemple : la cote fait 15.50 et j'aimerai qu'elle fasse 15.50 + 7.00 = 22.50. Puis quand je déplace la cote de 5, elle s'adapte à 20.50 + 7.00 = 27.50. Peut être en appliquant un "champs" à la cote ?

Si tu parles de la forme de la sélection du premier clic. on ne le distingue pas super, c'est pour cette raison que je suis revenu sur la proposition de Didier avec son encadrés provisoires. en tout cas les 2 propositions fonctionnent à meilleur, je m'amuse tellement avec que je n'ai plus envie de partir en vacance 🙂

@VDH-Bruno Merci beaucoup pour ton autre proposition. ça répond parfaitement à ma demande. merci merci

@Luna,Mrerci aussi à toi que j'avais oublié 😉 , c'est bon j'ai réussi à contourner le problème en ajoutant 3 petites lignes. Mettre au début : (setq uc (getvar "worlducs")) (if (= uc 0) (command "_ucs" "")) LE CODE A la fin de la routine : (if (= uc 0) (command "_ucs" "p")) mais je vais tout de même tester ta modification. merci

je viens de trouver la réponse dans le forum, il suffit de mettre : Mettre au début : (setq uc (getvar "worlducs")) (if (= uc 0) (command "_ucs" "")) LE CODE A la fin de la routine : (if (= uc 0) (command "_ucs" "p")) un grand merci à toi @didier pour tout ce que tu apportes à la communauté, j'espère que tu passeras de bonne vacances avec les petit(e)s Merci @Turtle76 d'avoir testé la routine

Avec la commande MODIFVAR je viens de comparer les 399 variable dès deux fichiers Il y a que deux variables de différents : VIEWBACKSTATUS (en les mettant à la même valeur, cela ne change rien). WORLDUCS (qui permet de comparer si le SCU coïncide avec le SCG), en le mettant à 1 cela refonctionne. C’était donc un problème de SCU. si facile d'ajouter une ligne disant que la variable fonctionne également si variable WORLDUCS est à 0 ?

Je viens de faire le test sur le fichier initial et cela fonction. Le problème vient donc de mon fichier de travail sur lequel je testais la routine. Je joins le fichier. vous verrez que ça ne fonctionne pas test 2.dwg

Bonjour @didier j'avais donc bien la dernière version. Pas de message d'erreur la routine fonctionne mais sans l'amélioration, à savoir l'encadrement du texte sélectionné. à causse d'un variable peut être ?

quand je le télécharge depuis le dernier message, j'ai celui là : ;| demande de yusukens82 https://cadxp.com/topic/61565-copier-coller-texte-et-effacer-lorigine/#comment-351114 réponse de didier le 17 juillet 2024 ajout du cadre en vecteurs sur texte origine pour visualisation le 18 juillet 2024 |; (defun c:r2 (/ bd bg hd hg maxext minext tex1 tex2) (setq tex1 (car (entsel "\nChoix du texte initial.\n"))) (vla-GetBoundingBox (vlax-ename->vla-object tex1) 'minext 'maxext ) (setq bg (vlax-safearray->list minext) hd (vlax-safearray->list maxext) ) (setq hg (list (car bg) (cadr hd)) bd (list (car hd) (cadr bg)) ) (grdraw bg hd 1) (grdraw hd bd 2) (grdraw bd bg 2) (grdraw bg hg 2) (grdraw hg hd 2) (setq tex2 (car (entsel "\nChoix du texte à modifier.\n"))) (if (or (= (cdr (assoc 0 (entget tex1))) "TEXT") (= (cdr (assoc 0 (entget tex1))) "MTEXT") ) (progn (entmod (subst (assoc 1 (entget tex1)) (assoc 1 (entget tex2)) (entget tex2) ) ) (entdel tex1) ) (alert "\nErreur de type d'entité") ) )

c'est moi qui suis dessolé de te déranger durant tes vacances. Sauf erreur, je pense que tu t'es encore trompé de fichier. c'est la routine.

nacré de te déranger tes vacances essaye d'en profiter au maximum quand même je viens de tester la routine. bizarrement ça ne change rien par rapport à la version 1. pas de vecteur jaune autour de la première sélection

Aucun problème, très bonne soirée et merci encore pour ton aide

Re bonjour, J'ai utilisé la routine toute l'après-midi. c'est très utile. Si je peux apporter une petite amélioration (si c'est faisable bien sûr). C'est de mettre en surbrillance le texte qu'on a sélectionné en premier pour montrer graphiquement qu'on l'a sélectionné.

Merci Didier. c'est exactement ce qu'il me fallait. aucune amélioration n'a besoin d'être faite. mon gain de temps au quotidien te remercie infiniment !

Bonjour, Est-ce que quelqu'un peut m'écrire une routine qui ressemble à un "copier les propriétés" mais pour une valeur d'un texte. Je m'explique (voir image) : La routine 1 (que j'ai déjà) : permettant de cumuler les surface de plusieurs texte. La routine 2 permettant de de : 1) Sélectionner le texte 61.19 pour copier la valeur 2) Sélectionner le texte 60.00 pour coller la nouvelle valeur 3) Effacer le texte d'origine 1ère sélection à première vu, cela ne semble pas très utile mais dans mon quotidien cela me permettrait de réduire considérablement le nombre de manœuvre Je joins également le fichier dwg en vous remerciant par avance Test.dwg

Merci Luna, ça marche très bien. Merci pour l'explication qui va avec.

Bonjour, J'utilise une routine depuis plusieurs année qui me permet d'afficher la surface d'une polyligne. le souci et qu'il n'arrive pas les 0 en début et fin de texte exemple un rectangle de 100x50, il affichera .5 alors que j'aimerai qu'il affiche 0.50 Quelqu'un peut m'aider à modifier le lisp ? Merci par avance

Essentiellement du Autocad 85% le reste c'est un peu de Revit et Photoshop.

Bonjour, Merci pour ta réponse. et cela prend en charge l'accélération du matérielle quand tu travailles sur Autocad ? Cordialement,

Bonjour, Ma configuration actuelle : Prcesseur : AMD Ryzen 9 7900X 12-Core Processor 4.70 GHz Mémoire RAM : 32,0 Go - DDR5 Corsair Vengeance Carte graphique : NVIDIA RTX A4000 Carte mère : B650-E WIFI ASUS Malheureusement la carte graphique est défaillante, il me fait planter mon PC quand je travail trop longtemps sous Autocad. Au bout de quelques heure un message d'erreur me force à désactiver "L'accélération du matérielle" Dans Autocad Je souhaite changer de carte, j'ai un budget de 1300€ (un peu plus si besoin). avez-vous une carte de type "Jeux" ou "professionnelle" à conseiller ? Je me sert essentiellement du PC pour travailler sous Autocad/Revit et très peu pour jouer. Merci par avance

Merci beaucoup, c'est exactement ce qui me fallait. très bon dimanche.

Bonjour, Lorsque je clique dans le vide qui compose 2 lignes interrompus, ça me sélectionne la ligne. (voir photo, quand je clique dans le cercle rouge ça sélectionne la ligne bleu) il y a t'il une variable pour éviter de sélectionner la ligne ? Cordialement,

Merci beaucoup Gile c'est parfait. pardon, j'aurai du ajouter la mention "bloc sélectionné" pour être plus précis

Merci Phiphi pour ton lisp très complet ça permet de choisir l'angle de rotation et une confirmation visuel. Merci Gile pour ton Lisp, en revanche est-ce possible de l'adapter pour qu'on puisse déclencher la routine sans cliquer de nouveau sur le bloc. j'ai essayé sans succès à placer la variable (ssget)