Aller au contenu

yusukens82

Membres
  • Compteur de contenus

    486
  • Inscription

  • Dernière visite

  • Jours gagnés

    1

yusukens82 a gagné pour la dernière fois le 26 mai 2024

yusukens82 a eu le contenu le plus aimé !

À propos de yusukens82

  • Date de naissance 18/11/1982

Contact Methods

  • MSN
    ziou@trinh-family.com

Profile Information

  • Gender
    Male
  • Location
    Paris

Visiteurs récents du profil

Le bloc de visiteurs récents est désactivé et il n’est pas visible pour les autres utilisateurs.

yusukens82's Achievements

Contributor

Contributor (5/14)

  • Dedicated Rare
  • Reacting Well Rare
  • First Post Rare
  • Collaborator Rare
  • Conversation Starter Rare

Recent Badges

3

Réputation sur la communauté

  1. 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
  2. Bonjour Je me permet de relancer ma demande ! Si quelqu'un à un Lisp similaire pour créer facilement des talus ?
  3. 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
  4. C'est merveilleux tout ça, merci beaucoup @Olivier Eckmann Passez une très bonne fin d'année 😘
  5. 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
  6. 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
  7. 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".
  8. @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.
  9. 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.
  10. 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
  11. Merci beaucoup @Olivier Eckmann cela fonctionne à merveille.
  12. 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.
  13. 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.
  14. 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
  15. 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
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité