sujet Re: AUTOCAD - Aplanir des cotations (Z=0) dans AutoCAD – tous produits - Forum Français

AUTOCAD - Aplanir des cotations (Z=0)

SET040 — Wed, 10 Aug 2022 15:04:13 GMT

Bonjour à tous,

J'ai aplani un plan 3D entièrement en 2D (Z=0), manuellement ou via la commande FLATTEN.

Cela a fonctionner sur quasi toutes les entités (polylignes, lignes, cercles, hachures, textes etc.) sauf pour les cotations.

En effet, lorsqu'on bascule la vue (vue avant ou vue orbite 3D) on voit bien que les textes et les flèches de ces cotation sont bien à zéros mais les points d'accroches de ces cotations ont une altitude :

il semblerait que le dessinateur ait dessiner ses cotations sur des polylignes qui avaient une élévation de 100m.

Quelqu'un pourrait-il m'aider à ce sujet ? D'avance un tout grand merci.

Je mets le .dwg en annexe si besoin.

Re: AUTOCAD - Aplanir des cotations (Z=0)

_gile — Wed, 10 Aug 2022 18:57:08 GMT

Salut,

Tu peux essayer ce LISP :

(defun c:FLATDIM (/ flattenDim ss i) (defun flattenDim (dim / flattenDxf elst) (defun flattenDxf (dxf) (subst 0. (cadddr dxf) dxf)) (setq elst (entget dim)) (entmod (subst (flattenDxf (assoc 10 elst)) (assoc 10 elst) (subst (flattenDxf (assoc 11 elst)) (assoc 11 elst) (subst (flattenDxf (assoc 13 elst)) (assoc 13 elst) (subst (flattenDxf (assoc 14 elst)) (assoc 14 elst) elst ) ) ) ) ) ) (if (setq ss (ssget '((0 . "DIMENSION")))) (repeat (setq i (sslength ss)) (flattenDim (ssname ss (setq i (1- i)))) ) ) (princ) )

Re: AUTOCAD - Aplanir des cotations (Z=0)

-didier- — Wed, 10 Aug 2022 19:18:23 GMT

Bonjour @SET040

Sans dénigrer le lisp de @_gile, la solution de déplacer les objets de 0,0,0 à 0,0,1e99 puis de déplacer à nouveau de 0,0,0 à -1e99 fonctionne.

C'est aisé à mettre dans une macro.

Amicalement

Re: AUTOCAD - Aplanir des cotations (Z=0)

SET040 — Thu, 11 Aug 2022 13:01:50 GMT

Ca marche parfaitement, merci @_gile !

Merci @-didier-. C'est une vieille astuce il me semble, je n'avais jamais oser l'utiliser pourtant. Et pourtant ça marche aussi , comme quoi... 😉

Re: AUTOCAD - Aplanir des cotations (Z=0)

CADaSchtroumpf — Thu, 11 Aug 2022 13:39:27 GMT

@SET040 a écrit :

Merci @-didier-. C'est une vieille astuce il me semble, je n'avais jamais oser l'utiliser pourtant. Et pourtant ça marche aussi , comme quoi... 😉

Oui ça fonctionne, mais attention aux pièges. Cela peut donner des résultats inattendus avec des entités construite dans des SCU non parallèle au SCG et parfois avec des insertions de blocs. A utiliser en conscience de cause...🙄