Aller au contenu

HACHURE


MamyTina

Messages recommandés

Bonjour à tous,

J'ai un petit souci avec les hachures.

En fait, nous sommes pluisieurs à travailler sur des projets de digitalisation.

Le problème c'est que quand on prend un fichier d'un colègue les hachures de types bois, grass, gravel, brouss

ne se dessinnet plus correctement.

Pour ce faire, je crée un scu temporaire et redessine tous les hachures.

Quelqu'un aurait une idée ou un astuce?

 

Amicalement

 

Fabien

AutoCad MAP 2023 - Covadis + Autopiste 18.0c

www.colas-mayotte.fr

Lien vers le commentaire
Partager sur d’autres sites

Salut, dans ta boite de dialogue de hachures, est-ce que si tu vas dans "origine des hachures", clique sur "Origine spécifiée" avec l'option "Utiliser par défaut l'étendue des contours", ça change quelque chose ?

 

Sinon il existe un lisp fait par (gile) il me semble, qui défini automatiquement l'origine de toutes les hachures en un point spécifique dans chaque hachure.

Par contre je n'ai pas le temps de chercher, je te laisse le soin de le faire ;)

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

1) Merci a Bonuscad & GC !

 

2) Sinon merci a Olivier pour CE message :

>>> Bonjour,

Pour éviter cela, quand tu démarres (ouvres) ton dessin, tu tapes SNAPBASE en ligne de commande et tu cliques un point à proximité de ton dessin.

A partir de là toutes tes hachures seront définies à partir de ce point et non plus plus à partir de 0,0.

Sinon tu mets la variable HPORIGINMODE à 5, comme cela toutes tes hachures auront comme point de base le centre de la zone à hachurer.

Olivier

 

3) La Foire a la Farfouille, c 'est chez moi !

 

Par contre, je n'ai pas teste cette vieille routine HPSTART DONC tu nous diras si elle marche et avec quelle version d'AutoCAD !?

 

Bye, lecrabe

 


;; 
;; Routine HPSTART from Bonuscad & GC
;; 
;; Le même, mais avec la possibilité de lancer la commande après avoir sélectionné le motif de hachures:
;; 

(defun C:HPSTART (/ ent set1 base echo pt1 pt2)

 (if (and (= 1 (getvar "pickfirst"))

          (setq set1 (ssget "_i"))

          (= 1 (sslength set1))

     )

   (progn

     (setq ent (ssname set1 0))

     (sssetfirst nil nil)

   )

   (progn

     (sssetfirst nil nil)

     (while (not ent)

       (setq ent

              (car

                (entsel

                  "\nSélectionnez le motif de hachures à modifier. "

                )

              )

       )

     )

   )

 )

 (setq base (getvar "snapbase")

       echo (getvar "cmdecho")

 )

 (command "_undo" "_begin")

 (setvar "cmdecho" 0)

 (cond

   ((eq (cdr (assoc 0 (entget ent))) "HATCH")

    (setq pt1 (getpoint "\nPoint d'origine à établir aux Hachures: "))

    (setq pt2 (list (car pt1) (cadr pt1)))

    (setvar "SNAPBASE" pt2)

    (if (zerop (cdr (assoc 76 (entget ent))))

      (command "_.-HATCHEDIT" ent "" "" "" "" "")

      (command "_.-HATCHEDIT" ent "" "" "" "")

    )

    (setvar "snapbase" base)

   )

   (T (princ "\nL'objet n'est pas une hachure "))

 )

 (command "_undo" "_end")

 (setvar "cmdecho" echo)

 (princ)

) 

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • 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é