Cotation d\'altitudes...

[j_delanoe]

Bonjour, Je suis à la recherche d'une solution qui me permettrait de coter un point en Z via une commande de cotation Autocad. Cette commande existe pour les coordonnées X Y mais pas pour le Z. En faisant une rotation du SCU je parviens à obtenir la cote Z, mais évidemment le texte est illisible lorsque je suis en vue de dessus...

Y'aurait il un moyen de coter une altitude sur un plan autocad (et qui soit visible en vue de dessus)?

Merci de votre aide!

[lecrabe]

 

Hello

 

Tu essayes cette vieille routine Lisp

Les Commandes au clavier sont : XY ou XYZ

 

Tu regles un peu AVANT ton style de cotation et ca devrait aller ...

 

Le Decapode

 

 

(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)

 

 

[rebcao]

Bonjour,

 

Et voilà au cas où ! Une petite MACRO pour les LTsiens.

 

[surligneur] *^C^Cid;\_dimordinate;@;O;texteval;1;cot1;txtnouv;-->Z=$m=$(index,2,$(getvar,lastpoint));D;;[/surligneur]

 

Christian

[j_delanoe]

Ok, Merci pour le coup de main!