z=0...

[KHdA]

Bonjour à tous,

 

J'ai vu passé il y a quelques temps une petite application qui permettait de mettre toutes les coordonnées z à zéro.

 

Ayant reçu un relevé topo d'un géomètre qui travaille en 3D, j'aimerais pouvoir facilement en faire une projection dans le plan z=0 afin de le retravailler en 2D.

 

Quelqu'un pourrait me dire si cette application est toujours disponible quelque part. (je travaille sur ACAD2002)

 

Merci d'avance.

 

KH

[Maximilien]

petite appli donné par Patrick :

 

 (defun c:Z0 ()
 (command "_move"    "_all"	 ""	    "0,0,0"    "0,0,1e99"
   "_move"    "_p"	 ""	    "0,0,0"    "0,0,-1e99"
  )
)

 

Au fait Patrick pas trop peur par chez toi pour la légionellose?

[KHdA]

Merci beaucoup.

 

N'etant pas familier des appli, routines et autres programmations de ce type, pourriez vous me rappeler comment on la charge/lance dans AutoCAD? Merci encore

 

KH

[PONTIAC95-2]

Bonjour,

tu peux juste taper au clavier les mêmes lignes sans lisp

 

1ére commande

(command "déplacer" "_all" "" "0,0,0" "0,0,1e99")

 

2éme commande

(command "déplacer "all" "" "0,0,0" "0,0,-1e99")

 

Bonne journée

[Maximilien]

ou encore plus simple sur le ligne de commande (peut-être aussi mis dans un fichier script)

 

_move
_all
[Touche Entrée supplémentaire]
0,0,0
0,0,1e99
[Touche Entrée supplémentaire]
_p 
[Touche Entrée supplémentaire]
0,0,0
0,0,-1e99

 

ou dans un bouton

_move;_all;;0,0,0;0,0,1e99;;_p ;;0,0,0;0,0,-1e99;

 

 

[Edité le 17/5/2005 par Maximilien]

[Tramber]

un sujet à lire + le lien qui y est donné par Patrick

[KHdA]

Merci à tous,

 

J'y suis arrivé... il m'a falu tout exploser plusieurs fois... mais j'y suis arrivé :-)

 

(La méthode me parait plus que bizarre elle exploite en quelque sorte les limites d'acad semble-t-il ...)

 

encore merci

 

KH