Hachures (catalogue)

[LeGritche]

Bjr@toutes&tous,

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 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 etre 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.

CatalogueHachures.dwg

[CoolM@n]

(DEFUN c:MaHach    (/ aa qs ww wx)
  (SETQ ww (TBLSEARCH "STYLE" "arial_025"))
  (SETQ wx (GETVAR "TextStyle"))
  (IF (= ww nil)
    (ENTMAKE (LIST
           (CONS 0 "STYLE")
           (CONS 100 "AcDbSymbolTableRecord")
           (CONS 100 "AcDbTextStyleTableRecord")
           (CONS 2 "arial_025")
           (CONS 70 0)
           (CONS 40 0.2)
           (CONS 41 1.0)
           (CONS 50 0.0)
           (CONS 71 0)
           (CONS 42 0.2)
           (CONS 3 "Arial.ttf")
           (CONS 4 "")
         ) ;_ Fin de List
    ) ;_ Fin de ENTMAKE
  ) ;_ Fin de if

  (SETQ aa (ENTSEL "Selectionner une Hachure: "))
  (SETQ qs (GETPOINT "\nPoint d'insertion du texte: "))
  (WHILE (/= aa nil)
    (PROGN
      (SETVAR "TextStyle" "arial_025")
      (COMMAND "_Text"
           "_j"
           "_left"
           qs
           0
           (CDR (ASSOC 2 (ENTGET (CAR aa))))
      ) ;_ Fin de COMMAND
      (SETQ aa (ENTSEL "Selectionner une hachure: "))
      (IF (/= aa nil)
    (SETQ qs (GETPOINT "\nPoint d'insertion du texte: "))
      ) ;_ Fin de if
    ) ;_ Fin de PROGN
  ) ;_ Fin de WHILE
  (PRINC)
) ;_ Fin de DEFUN

CatHachure.lsp

[Invité @CoolM@n]

Bonjour,

Merci pour ta réponse qui fonctionne aussi très bien. J'avais trouvé une solution à l'époque grâce à (gile)
https://cadxp.com/topic/60252-hachures-catalogue/?do=findComment&comment=343345

En tout cas, j'en profite ici pour le redire , si vous souhaitez récupérer mon catalogue de hachures
n'hésitez pas à me le demander en mp à cette adresse : grandroq.pro@gmail.com

Banne Onnée,
Veilleurs Moeux,

Qu'elle apporte plus qu'elle n'emporte

😉