Remettre la valeur Z à zéro

[aldo127]

Bonjour,

 

Y a-t-il un lisp qui permet de remettre à 0 la valeur Z de toutes les entités (ligne, polyligne, rectangle cercle textes....) d'un dessin.

 

 

Merci

[zebulon_]

Bonjour,

 

; Super-simple little routine to force
; all z-coordinants in a drawing to zero
; (with thanks to Randy Richardson and
; the Autodesk NG's).
;
; From Tee Square Graphics - 01/28/2000

(defun C:SMASH ( )
 (command "_.move" "_all" "" '(0 0 1e99) ""
 "_.move" "_p" "" '(0 0 -1e99) "")
 (princ)
) 

 

Amicalement

Vincent

 

[aldo127]

Merci beaucoup

Marche nikel

Exactement ce que j'ai besoin

[vinz34]

OK zebulon

 

Cette routine fonctionne mais n'est pâs toujours suffisante ludwig avait dévellopé sur ce sujet et largement approfondi la question.

A rechercher dans le forum, c'est un sujet qui a été maintes fois traité.

[zebulon_]

c'est un sujet qui a été maintes fois traité.

 

c'est vrai que ça revient souvent. Mais on a du mal a retrouver ses petits sur CadXP (la rançon du succès, sans doute). S'il y avait une FAQ, ce sujet aurait effectivement un certain succès.

 

Amicalement

Vincent

 

[vinz34]

Je te l'accorde, j'en ai retrouvé un quand même

 

c'est ici

 

Il y avait ça aussi.

 

 

 

[Edité le 20/10/2009 par vinz34]