cotes de niveau négatives

[fanion]

Bonjours,

comment peut on faire automatiquement une cote de niveau négative(superposition) sur une élévation?

Ex: sup du RdC 0.000

niv inf fondations -0.600

J'ai mis mon origine SCU à 0.00, mais la cote inf n'a pas de signe négatif.

Merci.

[Tramber]

Si tu veux une solution non programative (remplacement de la commande originelle ou utilisation des réacteurs), je te conseille de créer un style de cotation qui comporte le signe "-" en préfixe. Voilà tout ! C'est ce que j'ai fait moi-même dans certains dessins. Je trouve aussi que c'est un problème.

[zebulon_]

Bonjour,

 

Je me suis également toujours posé la question de savoir pourquoi une COTORD était toujours positive, même quand on clique un point dans un secteur négatif.

On m'a répondu qu'une cote donnait toujours une distance et qu'une distance est, par nature, toujours positive.

 

J'ai trouvé ça plus que dommage, puisqu'une cote ordonnée est parfaite pour niveler une élévation. Je te propose donc de "bricoler" la variable DIMPOST en fonction de l'ordonnée Y d'un point saisi, comme ci-dessous.

 

 (defun c:MyOrd (/ PT Y)
 (setq PT (getpoint "\nIndiquer la position : "))
 (if PT
   (progn
     (setq Y (cadr PT))
     (cond
       ((zerop Y) (setvar "DIMPOST" "%%p<>"))
       ((< Y 0) (setvar "DIMPOST" "-<>"))
       ((> Y 0) (setvar "DIMPOST" "+<>"))
     )
     (command "_DIMORDINATE" "_non" PT "_Y")
     (while (not (zerop (getvar "cmdactive")))
       (command pause)
     )  
   )
 )
 (princ)
)

 

Bien entendu, cela devient une cote avec un préfixe invariable et si tu étires une cote négative pour la ramener dans une zone positive (ou l'inverse), le préfixe devra être modifié manuellement.

 

D'un autre côté, je n'ai pas souvent ce problème de cote ordonnée négative puisque je travaille presque toujours en NGF (le reste du temps je travaille en Normal Null pour la ville de Strasbourg qui a conservé ce système d'origine allemande) et il y a très peu de dépressions d'altitude inférieure à 0 aux endroits où j'interviens.

 

Amicalement

 

Zebulon_

 

 

[Edité le 6/2/2007 par zebulon_]

[fanion]

Merci zebulon, c'est impec.

Y a t il moyen de donner les abcisses?

[zebulon_]

Y a t il moyen de donner les abcisses?

 

(defun c:MyAbs (/ PT X)
(setq PT (getpoint "\nIndiquer la position : "))
(if PT
(progn
(setq X (car PT))
(cond
((zerop X) (setvar "DIMPOST" "%%p<>"))
((< X 0) (setvar "DIMPOST" "-<>"))
((> X 0) (setvar "DIMPOST" "+<>"))
)
(command "_DIMORDINATE" "_non" PT "_X")
(while (not (zerop (getvar "cmdactive")))
(command pause)
)
)
)
(princ)
)

 

Quelque chose comme ça ?

 

Amicalement

 

Zebulon_

 

PS : je n'ai pas testé.

[fanion]

trop fort.

merci beaucoup.

Il faut vraiment que je mette au lisp

[zebulon_]

Bienvenu au club

 

Amicalement

 

Zebulon_