Pb echelles

[Joffoon]

Bonjour à toutes et tous,

 

Tout d'abord meilleurs voeux pour cette nouvelle année :)

 

Mon probleme est que j'ai reçu un dwg d'un architecte avec un plan topo designant une parcelle ou se trouvera une étude de filières.. Etudes réalisée et bémol lorsque je passe en EP, mon plan s'affiche mais pour pouvoir le visualiser il faut etre au 1/25000 grossomodo alors que je veux du 1000eme.

 

EO est en cm et je veux du metre, j'ai essayé des changement d'echelles avec la commande mais sans succés...

 

Merci pour vos réponses..

 

A+

 

 

 

 

[lili2006]

Bonjour à toutes et tous,

 

1 mm => 1 UD;

1cm => 10 UD;

1m => 1000 UD.

 

D'ou xp objet => papier = 1m / 1 cm = 1000/10 = 100 =XP

 

J'aurais fait comme ça moi, à priori,...

[lesourd2]

Salut

 

Moi c'est marrant, mais j'aurais fait le contraire, en effet,

 

EO est en cm et je veux du metre,

 

Pour passer de cm en m : xp=0.01 ( 1cm est 100 fois plus petit qu' 1m).

 

Donc ton dessin prendra un facteur d'echelle de 0.01 et se retrouvera coté en metre.

 

 

Un petit lisp genial pour mettre à l'echelle tes fenetres de presentation suivant tes unites de dessin.

 

 Vous connaissez votre unité
Vous savez à quelle échelle vous voulez mettre votre fenêtre de présentation.
Mais vous êtes perdu dans les paramètres.  
Essayez ceci
(defun c:qz ( / unit_draw fz f_m flag)
(cond
((ssget "_X" '((0 . "VIEWPORT")))
(if (or (eq (getvar "USERS5") "") (not (eq (substr (getvar "USERS5") 1 2) "qz")))
(progn
(initget "KM ME CM MM")
(if (not(setq unit_draw (getkword "\nDessin réalisé en [KM/ME/CM/MM] : ")))
(setq unit_draw "ME")
)
(cond
((eq unit_draw "KM")
(setq unit_draw 1000000)
)
((eq unit_draw "ME")
(setq unit_draw 1000)
)
((eq unit_draw "CM")
(setq unit_draw 10)
)
((eq unit_draw "MM")
(setq unit_draw 1)
)
)
(setvar "USERS5" (strcat "qz" (itoa unit_draw)))
)
(setq unit_draw (atoi (substr (getvar "USERS5") 3)))
)
(initget 6 "5 10 25 50 100 200 250 500 1000 2000 2500 5000 10000 25000 50000 1000000")
(setq fz (getint "\nChoix de l'échelle[5/10/25/50/100/200/250/500/1000/2000/2500/5000/10000/25000/50000/ 1000000]? <100>:"))
(if (not fz) (setq fz 100))
(if (eq (getvar "TILEMODE") 1) (setvar "TILEMODE" 0))
(if (not (eq (getvar "CVPORT") 1)) (command "_.pspace"))
(princ "\nChoisissez la fenêtre à mettre à l'échelle")
(while (null (setq f_m (ssget "_:S" '((0 . "VIEWPORT")))))
(princ "\nN'est pas une fenêtre")
)
(setq f_m (ssname f_m 0))
(if (eq (boole 1 16384 (cdr (assoc 90 (entget f_m)))) 16384)
(progn
(command "_.mview" "_lock" "_off" f_m "")
(setq flag T)
)
(setq flag nil)
)
(command "_.mspace")
(setvar "CVPORT" (cdr (assoc 69 (entget f_m))))
(command "'_.zoom" "_ce" (getvar "VIEWCTR") (strcat (itoa unit_draw) "/" (itoa fz) "XP"))
(command "_.pspace")
(if flag (command "_.mview" "_lock" "_on" f_m ""))
)
(T
(princ "\nAucunes fenêtres dans l'espace papier")
)
)
(princ)
)

 

@+

[lili2006]

Re,

 

Pour passer de cm en m : xp=0.01 ( 1cm est 100 fois plus petit qu' 1m).

 

Tu as surement raison, lesourd2,... je n'ai pas testé !

 

Super ton lisp !!!

[lesourd2]

Salut lili2006

 

Rendons à César ce qui est à César.

 

Super ton lisp !!!

.

 

Tu penses bien que ce n'est pas MON lisp!

Pardon à son auteur que je ne peux plus citer (memoire perdue quand tu nous tiens).

Mais bon, cela profite à d'autres et l'on est dans une logique d'entraide et de partage dans CADxp.

 

:) :)

 

@+

 

 

[bonuscad]

Mais bon, cela profite à d'autres

 

Tout à fait ! ;)

 

Cependant il y a un petit problème avec (getint) avec les petites échelles relevé par un utilisateur.

Tu retrouvera le même corrigé dans ce fil

[lesourd2]

Salut

 

Merci bonuscad !

 

@+

[Joffoon]

Bonjour,

 

Merci pour vos réponses qui ont étaient constructives, probleme résolu :D

 

Bonne journée à toutes et tous

[lili2006]

Bonsoir à toutes et tous,

 

Super !

 

Merci bonuscad.