conversion de polylignes 3d en 2d

[pm]

Bonjour,

 

Je recuoere un fichier dxf contenant des polylignes 3d que je dois importer dans un autre logiciel qui ne connait que les polylignes 2d.

 

La question est: comment convertir l'ensemble des objets de 3d en 2d

 

Je connais la méthode 100% manuelle ou je retrace les polylignes par dessus les objets mais je cherche a faire plus rapide et plus global (par exemple par un script)

 

 

Merci de votre aide

 

[Tramber]

essaies comme ca

[nobless]

bonjour,

 

Essaye ce lisp :

 

 

;Converti les polylignes 3D to polylignes 2D

;..............................................................................

(defun c:p3p2 (/ eg cl en e nc fp pt)

(princ "\n[Change 3D Polyline to 2D Polyline.]")

(setq e (entsel " Select a 3DPoly: ")

en (car e)

cl (if(=(cdr(assoc 70(entget en)))1)1)

p1 (cdr(assoc 10(entget(entnext en))))

p2 (cdr(assoc 10(entget(entnext(entnext en)))))

)

(command "ucs" "3" p1 p2 "")

(setq fp (trans p1 0 1))

; en (entnext en))

(setvar "blipmode" 0)

(command "pline")

(command fp)

(while (/=(cdr(assoc 0(setq eg(entget(setq en(entnext en))))))"SEQEND")

(setq pt (trans(cdr(assoc 10 eg))0 1))

(if pt (command pt))

(if (and (not pt) cl)(command fp))

);endwhile

(command "")

(command "ucs" "w")

(setvar "blipmode" 1)

(princ)

)

;.............................................................................

;;;;;;;;;;;;;;;;;Nö BLesS;;;;;;;;;;;;;;Energetik Facktory;;;;;;;;;;;;;;;;;;;;;

..............................................................................

[Eric]

Bonjour,

 

La commande flatten des express peut faire ca

 

Tu tapes flatten sur la ligne de commande ensuite tu suis le déroulement de la commande mais à la question "remove hidden line" si tu réponds non cela reste des polylignes 3D et si tu réponds oui cela deviens des polylignes 2D

 

La commande flatten écrase tous les objets sur le même Z

 

A plus

 

Eric