yusukens82

Bonjour @bonuscad C'est donc toi qui avait écrit la routine, merci cela m'a servi durant 2 décennies (déjà !) Je viens de le tester : c'est plus léger sans dcl / slb et nous demande moins de clic même pour le même résultat. il n'y a moins de fonctionnalité mais ce n'est pas grave car au final on n'utilise toujours le talus de base Merci beaucoup

Bonjour Je me permet de relancer ma demande ! Si quelqu'un à un Lisp similaire pour créer facilement des talus ?

Bonjour, J'ai un Lisp permettant de créer des talus qui fonctionnait bien jusqu'à lors. c'est depuis que je suis passé sur AutoCAD 2022 que j'ai un retour d'erreur après la sélection du 2eme point : ; erreur: une exception s'est produite: 0xC0000005 (Violation d'accès) ; avertissement: fonction unwind ignorée exception ; erreur: une exception s'est produite: 0xC0000005 (Violation d'accès) Je ne sais plus ou j'ai trouvé ce Lisp je mets en pj les fichiers... talus.dcl talus.lsp talus.slb

C'est merveilleux tout ça, merci beaucoup @Olivier Eckmann Passez une très bonne fin d'année 😘

Le but de l'amélioration n'est pas de positionner la cotation automatiquement mais de la visualiser avant de les positionner. Une petite vidéo pour bien l'expliquer: http://www.trinh-dota.com/CADXP/Video-Cotation-Ameliorer.mp4 Merci pour votre réponse en tout cas

Bonjour, J'utilise régulièrement une routine qui fonctionne très bien permettant de mettre 2 cotations (horizontal et vertical) selon 2 points Voilà la routine : (defun c:T2 () (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) (if pt1 (progn ; Demander à l'utilisateur où placer la cote horizontale (setq pt3 (getpoint "\nSelectionnez le point de position de la cote horizontale : ")) ; Placer la cote horizontale (command "COTLIN" pt1 pt2 "h" pt3) ; Demander à l'utilisateur où placer la cote verticale (setq pt4 (getpoint "\nSelectionnez le point de position de la cote verticale: ")) ; Placer la cote verticale (command "COTLIN" pt1 pt2 "v" pt4) ) (princ "\nOpération annulée.") ) (princ) ) Je souhaite y apporter une amélioration permettant de visualiser sur l'écran la position de la cotation L'idée est contourner le problème en évitant de présélectionner les pts 3 et 4 (defun c:T2 () (setq pt1 (getpoint "\nSelectionnez le premier point de cote : ")) ; Demande le premier point (setq pt2 (getpoint "\nSelectionnez le second point de cote : ")) ; Demande le second point (command "COTLIN" pt1 pt2 "H") ; Cliquer sur l'écran pour positionner le cote horizontal ; Relancer la commande pour la cotation veticale ;(command "COTLIN" pt1 pt2 "V" ) ; Cliquer sur l'écran pour positionner le cote veticale ) je joins un fichier dwg pour faire les test test.dwg

C'est peut être moi qui avait mal exposé le problème. Le seul souci avec la routine d'origine est qu'elle ne fonctionnait pas lorsqu'on édité le bloc dans (editref) Qu'est-ce qui fait que cette dernière est plus efficace ? c'est juste que ça marche dans "editref".

@Olivier Eckmann Merci beaucoup, ça fonctionne dans tous les sens. qu'on soit dans dans editref ou pas. Merci beaucoup. vraiment. Passez de très bonnes fêtes de fin d'année.

Bonjour @didier Merci pour ta réponse précis et de ton aide. Je ne suis pas l'auteur de cette routine, je l'ai trouvé sur le net il y a plus de 15ans Les 2 options (choix un par un ou sélection par calque) sont très intéressantes : Si je dois en choisir qu'un j'opte par le choix du sélection texte par texte En te remerciant par avance.

Bonjour, J'utilise une routine permettant de cumuler les surfaces et l'inscrire dans un texte. En revanche elle ne fonctionne pas dans l'édition de référence (editref) quelqu'un pourrait m'aider à l'adapter ? voilà la routine et en pj un dwg pour le test (defun c:at (/ js somme ind st_ent type texte valtxt point surf) (setq cmdech (getvar "CMDECHO")) (setq iconscu (getvar "UCSICON")) (setq old_plan (getvar "clayer")) (setvar "CMDECHO" 0) (setvar "UCSICON" 0) (prompt "\nChoisir les textes a additionner") (setq js (ssget)) (setq somme 0.0) (setq ind 0) (if js (repeat (sslength js) (setq st_ent (entget (ssname js ind))) (setq type (cdr (assoc 0 st_ent))) (if (= type "TEXT") (progn ; on additionne la valeur du texte (setq texte (cdr (assoc 1 st_ent))) (setq valtxt (atof texte)) (setq somme (+ somme valtxt)) ) ) (setq ind (1+ ind)) ) ) (setq surf (strcat (rtos somme 2 2) )) (setq p3 (getpoint "\n Position pour le resultat de la somme : ")) (command "_layer" "l" "Z_Surf" "n" "Z_Surf" "e" "Z_Surf" "ch" "Z_Surf" "ac" "Z_Surf" "co" "" "" "") (command "texte" p3 20 0 surf) (setvar "CMDECHO" cmdech ) (setvar "UCSICON" iconscu ) (setvar "clayer" old_plan) ) Test.dwg

Merci beaucoup @Olivier Eckmann cela fonctionne à merveille.

Je ne sais pas si le fait également chez vous mais les commandes "-CALQUE" "A" "R" "ETAT02" "" "" ne s'applique pas dans la fenêtre active mais dans toute l'espace présentation.

Bonjour @didier Si c'est pour gagner qu'un seul clic je ne chercherai pas à optimiser à ce point. plutôt que de parler de clic que préfère résonner en action en intégrant les frappes clavier et déplacement souris pour mieux optimiser Je sais que cela peut sembler dérisoire de gager 8 actions mais je peux t'assurer que c'est fait toute la différence quand on fait ça à longueur de journée. et aussi source de moins d'erreur quand on sait qu'on n'a plus besoin de bien positionner le double clic ou choisir le bon état de calque (quand on n'en aune multitude avec défilement de la fenêtre). en tout cas j'espère quand même avoir réussi à te convaincre que ma demande n'est pas inutile.

Pardon ce n'était pas simple d'expliquer ma demande. j'ai monté une vidéo pour mieux expliquer le problème et surtout pour gagner du temps sur la gestion des états de calque Video.mp4

Bonjour, Je travail beaucoup avec les ETAT de CALQUE que j'applique sur les fenêtres. Je cherche un moyen d'appliquer un état de calque sur une fenêtre sélectionnait préalablement sans activer la fenêtre (le double clic) voilà ce que j'ai déjà écrit mais on est très loin de ce dont je recherche, pire encore, les 2 routines s'applique sur les toutes les fenêtres. (defun c:APPE () (layerstate-restore "ETAT02" viewportId 5) ) (defun c:APPE2 () (command "-CALQUE" "A" "R" "ETAT02" "" "") ) Vous avez compris que je suis nul en écriture de routine. je joins un fichier dwg pour tester la routine Si quelqu'un veut bien m'aider s'ils vous plait APPE.lsp Test.dwg