lutofo

Bonjour a vous, J'utilise régulièrement des lisp qui malheureusement ne fonctionne plus avec autocad 2015, quelqu'un aurait il une solution ? Ces LISP sont JAV (V3.41) et TALUS (dsl, je ne réussit pas à les mettre en PJ). Merci

Merci c'est nickel. Il me manquait juste la petite info de mettre mes points dans un autre calque.

Bonjour, Je commence a travailler sur mensura et je souhaiterais modéliser en 3d le plan topo transmit par le géomètre. Malheureusement, je n'ai pas de point topo mais uniquement des point et des altitude en texte. Ayant travaillé avec covadis auparavant, il existait une commande pour attribuer à un point l'altitude d'un texte. J'ai bien réussit a créer un MNT a partir de la commande "convertir texte en point" mais les point créer ne sont pas sélectionnable pour créer un nouveau mnt avec ligne de rupture. Peut être avez vous une solution a m'apporter ou plus probablement des questions a me poser pour mieux comprendre ce que je veux, alors n'hésité pas. Merci

Tout d'abord merci pour ce lisp il est super. J'ai juste un petit souci pour utilisé design center apres avoir nettoyé le plan avec le lisp, je souhaite récuperer les calques d'un autre dessin via design center. Le hic c'est que la super purge a trop purger et mon dessin tout propre a perdu des liens ou je ne sais quoi ce qui rend impossible la copie des calques. Si quelqu'un a deja eu le pb. Merci PS: Design center marche si je ne fait que purger mon dessin.

Voila le lisp: ;;------------------------------------------------------------------------------ ;;Tracé d'un talus après saisie du type ;;Didier DUHEM 23/03/95 modifiée 21/11/98 ;;E.Mail D.Duhem@wanadoo.fr ;; http://perso.wanadoo.fr/didier.duhem/outils.htm ;;------------------------------------------------------------------------------- ;;---Début---------------------------------------------------PutVar-------------- ;; << change une variable système et mémorise l'ancienne valeur >> ;; << >> ;; ;; créée le : mercredi 25 novembre 1998 à 23:52 ;; ;; Admet : ;; ======= ;; vari : Chaine = variable système ;; valeur : Entier = valeur à placer ;; ;; Retourne : Entier = ancienne valeur ;; ========== ;------------------------------------------------------------------------------- (Defun PutVar ( vari valeur / tmp) (setq tmp (getvar vari)) (setvar vari valeur) tmp ) ;;---fin-----------------------------------------------------PutVar-------------- ;;---Début---------------------------------------------------tal_puis2----------- ;; <> ;; << (tal_puis2 48) donne 4 : 2*2*2*2*3 >> ;; ;; créée le : samedi 21 novembre 1998 à 16:41 ;; ;; Admet : ;; ======= ;; n : Entier = ;; ;; Retourne : Entier = nombre de puissances de 2 ;; ========== ;------------------------------------------------------------------------------- (Defun tal_puis2 ( n / i) (setq i 0) (if (/= n 0) (while (zerop (rem n 2)) (setq n (lsh n -1) i (1+ i)) ) ) i ) ;;---fin-----------------------------------------------------tal_puis2----------- ;;---Début---------------------------------------------------tal_serie----------- ;; << ;;calcul d'une série kn (1 + k + k² +.....+k (n-1)) >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 16:43 ;; ;; Admet : ;; ======= ;; k : Entier = paramètre ;; n : Entier = puissance ;; ;; Retourne : Entier = ;; ========== ;------------------------------------------------------------------------------- (Defun tal_serie ( k n / s i) (setq s 0 i 0) (if (/= n 0) (while (> n i) (setq s (+ s (expt k i)) i (1+ i) ) ) ) s ) ;;---fin-----------------------------------------------------tal_serie----------- ;;---Début---------------------------------------------------tal_affiche_image--- ;; << ;;affiche le slide relatif à une image avec éventuellement un bord >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 16:45 ;; ;; Admet : ;; ======= ;; num : chaine = "1" ou "2" ou "3" :numéro du slide ;; bord : Booléen = T si slide à encadrer ;; ;; Retourne : Entier = ;; ========== ;------------------------------------------------------------------------------- (Defun tal_affiche_image ( num bord / X Y imag nf) (setq nf (findfile (strcat "STTALUS" num ".sld"))) (setq imag (strcat "ima" num)) (setq X (dimx_tile imag) Y (dimy_tile imag)) (start_image imag) (if bord (progn (fill_image 0 0 X Y 1) (fill_image 3 3 (- X 6) (- Y 6) 0) (if nf (slide_image 3 3 (- X 6) (- Y 6) nf)) ) (progn (fill_image 0 0 X Y 0) (if nf (slide_image 3 3 (- X 6) (- Y 6) nf)) ) ) (end_image) ) ;;---fin-----------------------------------------------------tal_affiche_image--- ;;---Début---------------------------------------------------Tal_change_Image---- ;; << modifie le contour de l'image sélectionnée >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 16:49 ;; ;; Admet : ;; ======= ;; cle : Chaine = chaine d'entrée ;; ;; Retourne : Entier = ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_change_Image ( cle / ncour) (setq ncour (substr cle 4)) (Tal_Affiche_Image (itoa $typTal) nil) (Tal_Affiche_Image ncour T) (setq $TypTal (atoi ncour)) ) ;;---fin-----------------------------------------------------Tal_change_Image---- ;;---Début---------------------------------------------------Tal_Dial_Talus------ ;; << Gestion de la case de dialogue >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 16:55 ;; ;; Admet : ;; ======= ;; ;; Retourne : Liste = (nb-d'esp espacement petit_trait grand-trait) ou 1 ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_Dial_Talus ( / dclid linfo) (if (not (findfile $T_mess5)) (alert $T_mess1) ) (setq dclid (load_dialog (findfile $T_mess5))) (if (new_dialog "dialtalus" dclid) (progn (foreach clef (list "ima1" "ima2" "ima3") (action_tile clef "(Tal_Change_Image $key)") (Tal_affiche_image (substr clef 4) (= (atoi (substr clef 4)) $typtal)) ) (mapcar '(lambda (clef valeur) (set_tile clef (rtos valeur)) ) (list "pl" "gl" "esp") (list $pltal $gltal $esptal) ) (mode_tile "effac" (if (= 0 $encourstal) 1 0)) (set_tile "nb" (itoa $nesptal)) (action_tile "accept" "(setq linfo (Tal_lit_dial))(done_dialog)") (action_tile "effac" "(setq linfo 1)(done_dialog)") (start_dialog) ) ) (unload_dialog dclid) linfo ) ;;---fin-----------------------------------------------------Tal_Dial_Talus------ ;;---Début---------------------------------------------------Tal_Lit_Dial-------- ;; << lit la case de dialogue >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 16:59 ;; ;; Admet : ;; ======= ;; ;; Retourne : Liste = (nb-d'esp espacement petit_trait grand-trait) ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_Lit_Dial ( / ) (list (atoi (get_tile "nb")) (atof (get_tile "esp")) (atof (get_tile "pl")) (atof (get_tile "gl")) ) ) ;;---fin-----------------------------------------------------Tal_Lit_Dial-------- ;;---Début---------------------------------------------------T_Ext--------------- ;; << extrait une information DXF de l'entité >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:00 ;; ;; Admet : ;; ======= ;; clef : Entier = clef DXF ;; ent : Liste ou nom d'entité = liste obtenue par Entget ;; ;; Retourne : varie = valeur associée à la clef DXF ;; ========== ;------------------------------------------------------------------------------- (Defun T_Ext ( clef ent / ) (if (not (listp ent)) (setq ent (entget ent))) (cdr (assoc clef ent)) ) ;;---fin---------------------------------------------------T_Ext--------------- ;;---Début---------------------------------------------------Tal_OK-------------- ;; << définit les points de base des hachures et le coté et lance le tracé >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:03 ;; ;; Admet : ;; ======= ;; ;; Retourne : Sans intérêt = ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_OK ( / e selpt lpt ptor pttenp ang selpt pttemp2 d ptx ptx1) (setq e (car (entsel $T_mess2))) (if (and e (member (t_ext 0 e) (list "POLYLINE" "LINE" "ARC" "CIRCLE" "LWPOLYLINE" "SPLINE"))) (progn (command "_undo" "_g") (command "_measure" e $esptal) (setq selpt (ssget "_P") n 0) (repeat (if selpt (sslength selpt) 0) (setq lpt (cons (trans (t_ext 10 (ssname selpt n)) 0 1) lpt) n (1+ n) ) ) (command "_undo" "_e")(command "_undo" 1) (setq ptx (nth (/ (length lpt) 2) lpt) ptx1 (nth (1+ (/ (length lpt) 2)) lpt) ) (initget 1) (setq ptor (getpoint ptx $T_mess3) ang (angle ptx ptx1) pttemp (inters ptx ptx1 ptor (polar ptor (+ ang (/ pi 2)) 100) nil ) d (distance ptor pttemp) pttemp2 (polar pttemp (+ ang (/ pi 2)) d) ang (if (equal ptor pttemp2 0.001) (/ pi 2) (/ pi -2)) ) (Tal_trace_talus lpt ang) ) ) ) ;;---fin-----------------------------------------------------Tal_OK-------------- ;;---Début---------------------------------------------------Tal_Trace_Talus----- ;; << sélectionne les pied de talus et lance la routine de tracé >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:06 ;; ;; Admet : ;; ======= ;; lpt : Liste = de points ;; ang : Réel = direction des poils de talus ;; ;; Retourne : Entier = le nombre de talus tracé : 1 ou 0 ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_Trace_Talus ( lpt ang / selpied x) (prompt (strcat $T_mess4 (if (= 1 $typtal) $T_mess6 " "))) (setq selpied (ssget)) (cond ((= 1 $typtal) (talus1 lpt ang selpied)) ((and selpied (= 2 $typtal)) (talus2 lpt ang selpied)) ((and selpied (= 3 $typtal)) (talus3 lpt ang selpied)) ((not selpied) (no_talus)) ) ) ;;---fin-----------------------------------------------------Tal_Trace_Talus----- ;;---Début---------------------------------------------------Talus1-------------- ;; << calcul et lancement du tracé d'un talus de type 1 >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:09 ;; ;; Admet : ;; ======= ;; lpt : Liste = de points ;; ang : Réel = direction ;; selpied : = jeu de sélection pied de talus ;; ;; Retourne : Entier = nombre de talus tracé : 1 ;; ========== ;------------------------------------------------------------------------------- (Defun Talus1 ( lpt ang selpied / n pt pt1 pt2 ang1 long snap) (command "_undo" "_g") (setq n 0 sel nil snap (PutVar "osmode" 0)) (repeat (- (length lpt) 1) (setq pt (nth n lpt) pt1 (nth (1+ n) lpt) ang1 (+ ang (angle pt pt1))) (setq long (if (zerop (rem n $nesptal)) $gltal $pltal)) (command "_line" pt (setq pt2 (polar pt ang1 long)) "") (setq sel (cons (list (entlast) pt2) sel)) (setq n (1+ n)) ) (setq long (if (zerop (rem n $nesptal)) $gltal $pltal)) (command "_line" (last lpt) (setq pt2 (polar (last lpt) ang1 long)) "") (setq sel (cons (list (entlast) pt2) sel)) (if selpied (progn (command "_trim" selpied "") (foreach info sel (command info)) (command "") ) ) (PutVar "osmode" snap) (command "_undo" "_e") 1 ) ;;---fin-----------------------------------------------------Talus1-------------- ;;---Début---------------------------------------------------Talus2-------------- ;; << calcul et lancement du tracé d'un talus de type 2 >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:09 ;; ;; Admet : ;; ======= ;; lpt : Liste = de points ;; ang : Réel = direction ;; selpied : = jeu de sélection pied de talus ;; ;; Retourne : Entier = nombre de talus tracé : 1 ;; ========== ;------------------------------------------------------------------------------- (Defun Talus2 ( lpt ang selpied / n sel sel1 pt pt1 pt2 ang snap) (command "_undo" "_g") (setq n 0 sel nil sel1 nil snap (putvar "osmode" 0)) (repeat (- (length lpt) 1) (setq pt (nth n lpt) pt1 (nth (1+ n) lpt) ang1 (+ ang (angle pt pt1))) (command "_line" pt (setq pt2 (polar pt ang1 $pltal)) "") (setq sel (cons (list (entlast) pt2) sel)) (if (zerop (rem n $nesptal)) (setq sel1 (cons (car sel) sel1))) (setq n (1+ n)) ) (command "_line" (last lpt) (setq pt2 (polar (last lpt) ang1 $pltal)) "") (setq sel (cons (list (entlast) pt2) sel)) (command "_extend" selpied "") (foreach info sel1 (command info)) (command "") (command "_trim" selpied "") (foreach info sel (command info)) (command "") (putvar "osmode" snap) (command "_undo" "_e") 1 ) ;;---fin-----------------------------------------------------Talus2-------------- ;;---Début---------------------------------------------------Talus3-------------- ;; << calcul et lancement du tracé d'un talus de type 3 >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:09 ;; ;; Admet : ;; ======= ;; lpt : Liste = de points ;; ang : Réel = direction ;; selpied : = jeu de sélection pied de talus ;; ;; Retourne : Entier = nombre de talus tracé : 1 ;; ========== ;------------------------------------------------------------------------------- (Defun Talus3 ( lpt ang selpied / n sel sel1 pt pt1 pt2 ang snap) (command "_undo" "_g") (setq n 0 sel nil sel1 nil snap (putvar "osmode" 0)) (repeat (- (length lpt) 1) (setq pt (nth n lpt) pt1 (nth (1+ n) lpt) ang1 (+ ang (angle pt pt1))) (if (zerop (rem n 2)) (progn (command "_line" pt (setq pt2 (polar pt ang1 0.001)) "") (setq sel (cons (list (entlast) pt2 n) sel)) ) (progn (command "_line" pt (setq pt2 (polar pt ang1 $pltal)) "") (setq sel1 (cons (list (entlast) pt2) sel1)) ) ) (setq n (1+ n)) ) (if (zerop (rem n 2)) (progn (command "_line" (last lpt) (setq pt2 (polar (last lpt) ang1 0.001)) "") (setq sel (cons (list (entlast) pt2 n) sel)) ) (progn (command "_line" (last lpt) (setq pt2 (polar (last lpt) ang1 $pltal)) "") (setq sel1 (cons (list (entlast) pt2) sel1)) ) ) (command "_trim" selpied "") (foreach info sel1 (command info)) (command "") (Tal_exectalus3 sel selpied) (putvar "osmode" snap) (command "_undo" "_e") 1 ) ;;---fin-----------------------------------------------------Talus3-------------- ;;---Début---------------------------------------------------Tal_exectalus3------ ;; << trace les traits étendus des talus de type 3 >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:14 ;; ;; Admet : ;; ======= ;; sel : Jeu de sélection = traits à prolonger éventuellement ;; selpied : Jeu de sélection = pieds de talus ;; ;; Retourne : Sans intérêt = ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_exectalus3 ( sel selpied / ent d1 d2 long ang p1 p2) (command "_extend" selpied "") (foreach info sel (command (list (car info) (cadr info)))) (command "") (setq coef (/ $gltal $pltal)) (foreach info sel (setq ent (entget (car info)) puiss (tal_puis2 (caddr info)) d1 (+ $pltal (* $gltal (tal_serie coef (- puiss 1)))) d2 (+ $pltal (* $gltal (tal_serie coef puiss))) long (distance (t_ext 10 ent) (t_ext 11 ent)) ang (angle (t_ext 10 ent) (t_ext 11 ent)) ) (if (> d1 long) (entdel (car info)) (progn (setq p1 (polar (t_ext 10 ent) ang d1)) (if (> d2 long) (setq p2 (t_ext 11 ent)) (setq p2 (polar (t_ext 10 ent) ang d2)) ) (setq ent (subst (cons 10 p1) (assoc 10 ent) ent) ent (subst (cons 11 p2) (assoc 11 ent) ent) ) (entmod ent) ) ) ) ) ;;---fin-----------------------------------------------------Tal_exectalus3------ ;;---Début---------------------------------------------------tal_no_talus-------- ;; << message si pas de talus à tracer >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:16 ;; ;; Admet : ;; ======= ;; ;; Retourne : Entier = nombre de talus tracé donc 0 ;; ========== ;------------------------------------------------------------------------------- (Defun tal_no_talus ( / ) (alert "pour ce type de talus, vous devez désigner \nau moins un pied de talus") 0 ) ;;---fin-----------------------------------------------------tal_no_talus-------- ;;---Début---------------------------------------------------chg_var------------- ;; << modifie une variable système et récupère sa valeur initiale >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:18 ;; ;; Admet : ;; ======= ;; nom : Chaine = de la variable ;; valeur : = à attacher à la variable ;; ;; Retourne : Entier = ancienne valeur ;; ========== ;------------------------------------------------------------------------------- (Defun chg_var ( nom valeur / xx) (setq xx (getvar nom)) (setvar nom valeur) xx ) ;;---fin-----------------------------------------------------chg_var------------- ;;---Début---------------------------------------------------Tal_Cree_DCL-------- ;; << écrit le DCL >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:20 ;; ;; Admet : ;; ======= ;; option : Booléen = T : écrit NIL met à 0 ;; ;; Retourne : Sans intérêt = ;; ========== ;------------------------------------------------------------------------------- (Defun Tal_Cree_DCL ( option / fich) (setq fich (open "imtal.dcl" "w")) (if option (progn (write-line (strcat "imagetal:image_button {width = 20" (chr 59) "fixed_width = true"(chr 59) "aspect_ratio = 1"(chr 59) "}" ) fich ) (write-line "lesimagestalus : column {" fich) (write-line (strcat " : text {value = " (chr 34) "Offert par Didier-AD" (chr 34)(chr 59)"}") fich) (write-line " :row {" fich) (write-line (strcat " : imagetal {key=" (chr 34) "ima1" (chr 34) (chr 59) "}") fich) (write-line (strcat " : imagetal {key=" (chr 34) "ima2" (chr 34) (chr 59) "}") fich) (write-line (strcat " : imagetal {key=" (chr 34) "ima3" (chr 34) (chr 59) "}") fich) (write-line " }" fich) (write-line "}" fich) ) ) (setq fich (close fich)) ) ;;---fin-----------------------------------------------------Tal_Cree_DCL-------- ;;---Début---------------------------------------------------Talerreur----------- ;; << gestion d'erreur >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:22 ;; ;; Admet : ;; ======= ;; ch : Chaine = message d'erreur ;; ;; Retourne : Sans intérêt = ;; ========== ;------------------------------------------------------------------------------- (Defun Talerreur ( ch / ) (Tal_cree_dcl nil) (setq *error* $olderr) ) ;;---fin-----------------------------------------------------Talerreur----------- ;;---Début---------------------------------------------------C:TALUS------------- ;; << commande principale >> ;; << >> ;; ;; créée le : samedi 21 novembre 1998 à 17:23 ;; ;; Admet : ;; ======= ;; ;; Retourne : Sans intérêt = ;; ========== ;------------------------------------------------------------------------------- (Defun tal_TALUS ( / blp cmd linfo ) (setq $encourstal 0) (setq $olderr *error* *error* talerreur) (setq cmd (chg_var "cmdecho" 0)) (setq blp (chg_var "blipmode" 0)) (setq linfo t) (while linfo (if (not $typtal) (setq $typtal 1)) (if (not $esptal) (setq $esptal 2.0)) (if (not $pltal) (setq $pltal 8.0)) (if (not $gltal) (setq $gltal 15.0)) (if (not $nesptal) (setq $nesptal 4)) (setq oldtyp $typtal) ; (Tal_cree_dcl T) (setq linfo (tal_dial_talus)) ; (tal_cree_dcl nil) (if (and linfo (listp linfo)) (progn (setq $nesptal (car linfo) $esptal (cadr linfo) $pltal (caddr linfo) $gltal (cadddr linfo) ) (setq $encourstal (+ (tal_OK) $encourstal)) ) (setq $typtal oldtyp) ) (if (= 1 linfo) (progn (command "_undo" 1) (setq $encourstal (- $encourstal 1)) ) ) ) (setq *error* $olderr $olderr nil) (setvar "cmdecho" cmd) (setvar "blipmode" blp) ) ;;---fin-----------------------------------------------------C:TALUS------------- ;;---Début---------------------------------------------------initialisation------ (if (wcmatch (strcase (getvar "LOCALE")) "FR*") (progn (defun c:talus () (tal_talus)) (setq $T_mess1 "FDTALUS.DCL non trouvé" $T_mess2 "\nPointez la crête du talus " $T_mess3 "\nCoté des hachures " $T_mess4 "\nSélectionnez le ou les pied(s) de talus " $T_mess5 "FDTALUS.DCL" $T_mess6 " (facultatif) " tmp (alert "Tapez TALUS pour commencer") ) ) (progn (defun c:bank () (tal_talus)) (setq $T_mess1 "EDTALUS.DCL not found" $T_mess2 "\nPick the top of the bank " $T_mess3 "\nSide for the hatch" $T_mess4 "\nSelect the bottom of the bank " $T_mess5 "EDTALUS.DCL" $T_mess6 " (optional) " c:bank c:talus tmp (alert "Type BANK to begin") ) ) ) ;;---Début---------------------------------------------------initialisation------ J'ai essayer de rajouter le";" comme tu me la dis et c'est nickel.Merci beaucoup[Edité le 7/7/2010 par lutofo]

Bonjour, J'ai trouvé ici : http://pagesperso-orange.fr/didier.duhem/routines.htm#Talus un lisp pour créer des talus sous autocad. Le petit soucie est qu'à chaque ouverture d'un nouveau dessin une fenetre texte " tapez talus pour commencer "s'affiche. Quelqu'un aurait il la solution pour ne plus avoir cette fenetre (mes connaissances en lisp se limite a l'utilisation). merci.

Le fichier de Thierry ne contenait pas de nouvelle hachure. par contre j'ai récupéré les fichiers AutoCAD.pat et acadisio.pat (les deux de covadis) puis collé dans mon repertoir autocad, et magie magie j'ai desormais les hachures covadis. Merci a tous pour votre aide.

Merci pour le lien mais il me permet juste d'avoir un fichier acadisio.pat classique (hachure fournit dans autocad). DSL rebcao je ne sait pas comment j'ai obtenue la meme image de profil que toi. Pour le message en -1 c'est certainement parce que j'en ai supprime plusieur (des doublons). Je vais tenter de modifier le nom du fichier de hachure de covadis et voir ce que ca donne pour autocad.

Merci pour cette precision rebcao. En effet Covadis possede son propre fichier de hachure, c'est ce dernier que j'aimerai recuperer sur autocad (sans covadis).

Bonjour, Je travail actuellement sur Autocad 2008 et mon problème est que je recupere des plans ayant des hachures covadis (non associatives) et donc il m'est impossible de modifier la hachure car Autocad ne la reconnais pas. J'ai bien essayer avec le lisp model_hacth pour recuperer le dessin de la hachure mais cela ne marche pas. Si quelqu'un avait la solution pour recuperer ls hachures covadis sur autocad je l'en remercie d'avance.

Bonjour, Je travail actuellement sur Autocad 2008 et mon problème est que je recupere des plans ayant des hachures covadis (non associatives) et donc il m'est impossible de modifier la hachure car Autocad ne la reconnais pas. J'ai bien essayer avec le lisp model_hacth pour recuperer le dessin de la hachure mais cela ne marche pas. Si quelqu'un avait la solution pour recuperer ls hachures covadis sur autocad je l'en remercie d'avance.