LeGritche Posté(e) le 26 janvier 2023 Partager Posté(e) le 26 janvier 2023 Bjr@toutes&tous, Je reposte ce message ici, ce sera peut-être plus adapté... Veuillez m'en excuser si ce n'est pas le cas I need somebody's help ! Je vous explique: Projeteur depuis de nombreuses années, j'ai collectionné de nombreux fichiers de hachures (+ de 2500 fichiers pat !). Je souhaiterais aujourd'hui créer un pdf pour visualiser et identifier par leur nom un certain nombre d'entre elles ... J'ai essayé de créer un bloc avec un rectangle polyligne tout simple et un texte en dessous avec champ pour identifier l'objet hachure et ensuite récupérer le nom du motif. Je voulais insérer ces blocs, hachurer, et ensuite double-clic sur le texte pour le mettre à jour en fonction de la hachure. Nada, ça ne fonctionne pas ... Peut-être n'est-ce pas le bon raisonnement à avoir ... Et c'est là, ami(e)s Lispiennes & lispiens (je ne sais pas si ça se dit 😬) que je tourne mon humble carcasse vers vous. Ne serait-il pas plus simple en effet de rédiger un petit lisp qui permettrait, après avoir cliqué sur la hachure, d'écrire le nom de celle-ci à un endroit désigné par un autre simple clic ? Malheureusement, je n'ai aucune notion de programmation dans ce langage qui me parait toujours être un langue magique ... D'avance merci si vous pouvez m'aider et si ce n'est pas trop complexe, ou une indication, une orientation vers laquelle me tourner. Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
JPhil Posté(e) le 27 janvier 2023 Partager Posté(e) le 27 janvier 2023 Un début de réponse peut-être >>> ici <<< ? (Pas testé) Lien vers le commentaire Partager sur d’autres sites More sharing options...
(gile) Posté(e) le 27 janvier 2023 Partager Posté(e) le 27 janvier 2023 Salut, Essaye ça : (defun c:HatchName (/ ent elst pt) (if (and (setq ent (car (entsel "\nSélectionnez une hachure: "))) (= (cdr (assoc 0 (setq elst (entget ent)))) "HATCH") (setq pt (getpoint "\nSpécifiez le point de départ du texte: ")) ) (command-s "_TEXT" pt "" 0. (cdr (assoc 2 elst))) ) (princ) ) Gilles Chanteau - gileCAD - GitHub Développements sur mesure pour AutoCAD Lien vers le commentaire Partager sur d’autres sites More sharing options...
lecrabe Posté(e) le 27 janvier 2023 Partager Posté(e) le 27 janvier 2023 Hello @(gile) SVP il pourrait etre interessant d avoir le Nom du Motif mais aussi l Echelle ( assoc 41 ) !? Attention a l Echelle qui n existe pas pour le Motif SOLID ! Voir le PDF de mes Hachures ... Belle annee 2023, La Sante, Bye, lecrabe G_PAT3_PDF.pdf Autodesk Expert Elite Team Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 27 janvier 2023 Auteur Partager Posté(e) le 27 janvier 2023 JPhil, Merci pour ta réponse mais ça ne donne pas grand chose... Le fichier pm.lsp est correctement chargé par autocad mais il ne se passe absolument rien si ce n'est qu'il me lance la commande PMAILLE qui n'a rien à voir avec mon problème... Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 27 janvier 2023 Auteur Partager Posté(e) le 27 janvier 2023 Salut @(gile), Merci pour ta réponse et ton aide : ça marche nickel et c'est exactement ce que je voulais pouvoir faire ! Salut @lecrabe, oui je suis d'accord à propos de l'échelle mais ce n'est qu'un petit plus éventuellement. J'ai tellement de fichiers de hachure que je vais dans un premier temps les visualiser, et ensuite les classer. Je ne manquerais pas d'en faire profiter la communauté quand j'aurais terminé. Encore merci à vous pour votre réactivité, Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
(gile) Posté(e) le 27 janvier 2023 Partager Posté(e) le 27 janvier 2023 Avec l'échelle : (defun c:HatchName (/ ent elst pt) (if (and (setq ent (car (entsel "\nSélectionnez une hachure: "))) (= (cdr (assoc 0 (setq elst (entget ent)))) "HATCH") (setq pt (getpoint "\nSpécifiez le point de départ du texte: ")) ) ((lambda (dz) (setvar 'dimzin 8) (command-s "_TEXT" pt "" 0. (strcat (cdr (assoc 2 elst)) " (Echelle = " (rtos (cdr (assoc 41 elst))) ")" ) ) (setvar 'dimzin dz) ) (getvar 'dimzin) ) ) (princ) ) Gilles Chanteau - gileCAD - GitHub Développements sur mesure pour AutoCAD Lien vers le commentaire Partager sur d’autres sites More sharing options...
lecrabe Posté(e) le 27 janvier 2023 Partager Posté(e) le 27 janvier 2023 Hello @(gile) MERCI j avais reussi a imprimer l Echelle mais pas les 2 ensemble ! Belle annee 2023, La Sante, Bye, lecrabe Autodesk Expert Elite Team Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 4 février 2023 Partager Posté(e) le 4 février 2023 Bonjour à la communauté. Je cherche à faire une liste de toutes les hachures disponibles (pas seulement celles utilisées), pour me faire un catalogue, comme celui partagé par @lecrabe. Je n'ai rien trouvé de probant sur la toile, quelqu'un aurait une astuce ? Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 5 avril 2023 Auteur Partager Posté(e) le 5 avril 2023 Bonjour à toutes et tous, Ça y est ! J'ai enfin pu trouver le temps de terminer la mise en page. Comme promis, je mets à votre disposition plus de 2000 motifs de hachures. Un grand merci à @(gile) pour son aide, et oui, @lecrabe, le facteur d'échelle est un plus indéniable concernant les hachures. Portez vous bien, Cordialement, CatalogueHachures.part1.rar Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 5 avril 2023 Auteur Partager Posté(e) le 5 avril 2023 comment faire pour vous transmettre ce zip de 13 Mo ??? Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 5 avril 2023 Partager Posté(e) le 5 avril 2023 Salut, et un grand merci pour le partage ! ! Pour le partage de 13Mo, j'attends la solution, car je n'en ai pas de pérennes. Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
lecrabe Posté(e) le 5 avril 2023 Partager Posté(e) le 5 avril 2023 Hello Un lien grosfichier / wetransfert / download free / etc, cela permettra deja de recuperer ton fichier ... Bye, lecrabe Autodesk Expert Elite Team Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 5 avril 2023 Partager Posté(e) le 5 avril 2023 Salut. Le problème avec la méthode de @lecrabe, c'est que ton fichier ne sera disponible que 15 ou 30 jours... Mais on pourras toujours le "repartager" plus tard... Sauf un partage public sur Google.drive par exemple (bien que je ne suis pas un fan de cette solution). Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 5 avril 2023 Auteur Partager Posté(e) le 5 avril 2023 Bon bin va pour wetransfer, voici le lien : https://we.tl/t-Aj2kOZjXwq Sinon je peux vous le transmettre sur demande en mp à cette adresse : grandroq.pro@gmail.com Bien à vous, 2 Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 5 avril 2023 Partager Posté(e) le 5 avril 2023 Mille merci @LeGritche ! ! ! Wouaouw ! ! ! Impressionnant ! Tu as fais ça à la main ou grâce à un programme ? Car j'aimerais bien faire ça avec mes hachures... Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 6 avril 2023 Auteur Partager Posté(e) le 6 avril 2023 Il y a 20 heures, DenisHen a dit : Tu as fais ça à la main ou grâce à un programme ? Tu parles de hachurer chaque case avec un motif différend ? A la mano ! et c'est pour ça que ça m'a pris un certain temps avant de pouvoir vous le transmettre, je n'avais pas toujours de temps disponible... Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
lecrabe Posté(e) le 6 avril 2023 Partager Posté(e) le 6 avril 2023 Hello @LeGritche Magnifique et ton PDF/DWG me semble un peu inspire de celui que j avais fourni ! Tu as bien raison, c Tip-Top d avoir un exemple avec le Nom et l Echelle !! Bon We, La Sante, Bye, lecrabe Autodesk Expert Elite Team Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 6 avril 2023 Partager Posté(e) le 6 avril 2023 Wouaouw ! ! ! Alors là, chapeau bas Monsieur. Un travail de Titan ! ! ! @lecrabe avait fait un travail similaire il y a quelques temps. Encore merci, il y en a dont je vais me servir, c'est certain. Et c'est certain aussi que je ne serais pas le seul... Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 6 avril 2023 Auteur Partager Posté(e) le 6 avril 2023 à l’instant, lecrabe a dit : Magnifique et ton PDF/DWG me semble un peu inspire de celui que j avais fourni ! Oui oui, c'est certain, je ne m'en cache pas 😉 Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 6 avril 2023 Auteur Partager Posté(e) le 6 avril 2023 il y a 1 minute, DenisHen a dit : Encore merci, il y en a dont je vais me servir, c'est certain. Tant mieux, c'est fait pour ça ! il y a 2 minutes, DenisHen a dit : Et c'est certain aussi que je ne serais pas le seul... Et bien les zautres, n'hésitez pas à demander, je vous enverrais le zip Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 6 avril 2023 Partager Posté(e) le 6 avril 2023 Je viens de voir qu'on avait beaucoup de hachures en commun... Du coup, j'hésite à faire le mien, trop de doublons... Encore bravo et merci... Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
lecrabe Posté(e) le 6 avril 2023 Partager Posté(e) le 6 avril 2023 Hello Les Jeunots Mais Christian REB @rebcao avait lui aussi realise un joli catalogue de hachures ! Bye, lecrabe 1 Autodesk Expert Elite Team Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 6 avril 2023 Partager Posté(e) le 6 avril 2023 Oui, Il en avait fait un... C'est d'ailleurs lui qui m'avait donné l'idée de faire le mien... Windows 11 / AutoCAD 2024 Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net). Davantage d'avantages, avantagent davantage (Bobby Lapointe). La connaissance s'accroît quand on la partage (Socrate). Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi) Lien vers le commentaire Partager sur d’autres sites More sharing options...
LeGritche Posté(e) le 6 avril 2023 Auteur Partager Posté(e) le 6 avril 2023 il y a 1 minute, lecrabe a dit : Hello Les Jeunots Ca fait toujours plaisir 😀 il y a 1 minute, lecrabe a dit : Mais Christian REB @rebcao avait lui aussi realise un joli catalogue de hachures ! Oui, je m'en suis servi aussi 😉 Le Tout est supérieur à la somme des parties qui Le compose ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant