Cotation type plan topo

[sv_zx9r]

Bonjour tous le monde

 

Je doit coter un plan masse avec différents ouvrage, batiments etc.. dessus.

Je voudrais, à partir d'une borne, fixé un repère avec une valeur X et Y. Les valeurs de cette origine me sont fixé d'avance ainsi que leur axes.

 

Dans un 1er temps, je cale mon SCU sur le repère fixé. Je décale ensuite l'origine de la valeur des X et Y imposé (en négatif bien sur).

Quand je tape la commande ID, j'obtiens les coordonées des points que je clic dans ce nouveau repère. Pas de problème.

 

Voici ma question:

exist'il un système de cotation pour écrire directement les valeurs X et Y des points cliquer au droit de ces points.

En bref comment coter des angles de mes batiments etc... en idiquand juste les valeurs X et Y de ce repère.

 

J'espère que c'est a peu prés clair car j'ai du mal à trouver les bons termes.

[Tramber]

COTORD ?

 

enfin, coter des "angles" avec "X et Y", c'est balaise.

[sv_zx9r]

C'est ça que je cherchais.

 

Pour les angles. Je parlais d'angle de batiments, je voulais dire le coin d'un mur etc...

 

Petit plus:

Peux on demandé les coordonnées en X et en Y en un seul clic ???

Faut'il faire un peu de programmation ???

[Tramber]

Un petit script à glisser dans un bouton.

 

^C^CCOTORD;\@0,1;COTORD;@0,-1 @1,0 

 

Merci qui ?

[bonuscad]

Salut

 

Va voir le sujet suivant:

http://www.cadxp.com/sujetXForum-2792.htm

 

ATTENTION: la routine BORNE fera la cotation XY obligatoirement dans le SCG

 

[sv_zx9r]

Merci à vous, c'est exactement ce que je cherché.

 

J'ai juste modifier un peux par rapport au positionnement des cote.

 

^C^CCOTORD;\@0,10;COTORD;@0,0 @10,0

 

Juste un détails Tramber: pourquoi avoir mis la valeur @0,-1

 

Merci encore

[Tramber]

Y a des erreurs, le tout, c'est d'être inspiré.

 

Ca peut être bien de séparer les origines de cotations,.... :cool:

[lecrabe]

 

Bonsoir

 

Vous trouverez ci-joint un petit programme AutoLisp

qui vous offre 2 commandes: XY & XYZ

 

Je l'ai récupéré depuis très longtemps et j'ai du y faire qq micro-modifs ...

Il est opérationnel sur AutoCAD R14 jusqu'à la 2004,

je ne l'ai pas encore testé sur la 2005 ...

 

Je pense qu'il peut être amélioré et de plus, il peut coter les 3 valeurs X & Y & Z.

 

RAPPEL: Je ne suis pas du tout AutoLispien !!!

 

; --------------------------------------------------------------------------

 

(defun c:xy()

 

(setq npt1 (getpoint "Point de COTE : "))

(setq npt2 (getpoint npt1 "Point Final : "))

(setq

totox (car npt1)

totoy (cadr npt1)

totoz (caddr npt1) )

 

; Variante avec 3 decimales

; (setq pt1x (strcat "X: " (rtos totox 2 3)))

; (setq pt1y (strcat "Y: " (rtos totoy 2 3)))

 

; Variante avec 2 decimales

(setq pt1x (strcat "X: " (rtos totox 2 2)))

(setq pt1y (strcat "Y: " (rtos totoy 2 2)))

 

(command "_.leader" npt1 npt2 "" pt1x pt1y "")

)

 

 

(defun c:xyz()

 

(setq npt1 (getpoint "Point de COTE : "))

(setq npt2 (getpoint npt1 "Point Final : "))

(setq

totox (car npt1)

totoy (cadr npt1)

totoz (caddr npt1) )

 

; Variante avec 3 decimales

; (setq pt1x (strcat "X: " (rtos totox 2 3)))

; (setq pt1y (strcat "Y: " (rtos totoy 2 3)))

; (setq pt1z (strcat "Z: " (rtos totoz 2 3)))

 

; Variante avec 2 decimales

(setq pt1x (strcat "X: " (rtos totox 2 2)))

(setq pt1y (strcat "Y: " (rtos totoy 2 2)))

(setq pt1z (strcat "Z: " (rtos totoz 2 2)))

 

(command "_.leader" npt1 npt2 "" pt1x pt1y pt1z "")

)

 

(princ "\n==> Fonctions dispos: XY & XYZ ")

(princ)

 

; -------------------------------------------------------------------------------------

 

Crabuleusement

 

[didier]

bonjour

Salut à Toi, Ô Crabe !

je n'ai pas testé ton lisp,

du fait que j'ai écris une routine qui fait ça depuis longtemps,

en revanche un truc pour ceux qui varient les décimales,

créer une variable qui mémorise l'état du dessin,

du genre : (setq deci(getvar "LUPREC"))

de façon à faire appel à RTOS plus tard ainsi :

(setq XTexte (rtos X 2 deci)).

de cette façon, c'est le réglage du fichier qui est passé aux

coordonnées, et tu n'as pas à choisr d'autres options.

amicalement