Coordonnées X,Y

[Atef]

Salut tous le monde,

Je voudrais bien insérer un texte encadré avec une ligne de repére où est indiqué les coordonnées X=??,???

Y=??,???

d'un point que je selectionne (le repére est sur ce point) , (voir un lisp et un bloc ,ou une commande ou qqc d'autre )

 

merci d'avance

[je56]

cherche sur le net une routine qui s'appelle rptxy.lsp

 

Elle devrait faire ton bonheur

 

Eric

[didier]

coucou

 

un bloc avec des champs fera l'affaire

 

en plus ce sera dynamique, si tu bouges le point

les valeurs bougent

 

tu connais les champs ?

 

amicalement

[Atef]

X=

Y=

 

encadrer et séparer par une ligne , avec l'indication par ligne de repére sur le point,

et si c possible est ce que ce bloc peut être insérer à gauche ou à droite du point et en haut ou en bas du point selon le cas pour qu'il ne soit pas confondu avec le dessin.

 

et merci

 

[(gile)]

Salut,

 

Je pense comme Didier qu'un bloc avec des attributs /champs est le plus rationnel, si tu veux des positions différentes, tu peux utiliser les états de visibilité.

 

Sinon, un petit LISP avec des lignes de repère.

(defun c:coord-Leader (/ p0 pt lst)
 (if (and
(setq p0 (getpoint "\nPremier point de la ligne de repère: "))
(setq lst (cons p0 lst))
(setq pt (getpoint p0 "\nPoint suivant: "))
(setq lst (cons pt lst))
     )
   (progn
     (grvecs (cons 255 lst))
     (while (setq pt (getpoint pt "\nPoint suivant: "))
(setq lst (cons pt lst))
(redraw)
(grvecs
  (cons 255 (apply 'append (mapcar 'list lst (cdr lst))))
)
     )
     (redraw)
     (command "_.leader")
     (foreach p (reverse lst) (command "_non" p))
     (command ""
       (strcat "X = "
	       (rtos (car p0))
	       "\nY = "
	       (rtos (cadr p0))
       )
       ""
     )
   )
 )
 (princ)
)

[Atef]

Merci ça marche trés bien

Mais conçernant la méthode du bloc avec des attributs /champs pouvez vous m'envoyer un courriel avec ce bloc e tles attribut puisque je je sais pas manipuler ce genre de manip.

[FIFI19]

La routine fonctionne avec "OSMODE O".

Cela signifie qu'a chaque ID que tu veux, tu dois faire ton acochage d'objet a chaque sélection.

A+.

 

 

;Impression d'une identification ID sur le plan XY.

; ==========================================================================

 

(defun c:IDXY (/ pt_acro sblip scmde sosmd sdasz)

(menucmd "S=osnapb")

 

(setq sblip (getvar "BLIPMODE")

scmde (getvar "CMDECHO")

sosmd (getvar "OSMODE")

sdasz (getvar "DIMASZ")

)

(setvar "BLIPMODE" 0)

(setvar "CMDECHO" 0)

(setvar "OSMODE" 0)

(setvar "DIMASZ" (/ sdasz 3))

 

(command "_OSNAP" "_non")

(setq pt_acro (getpoint

(strcat "\nPoint de d�part de la ligne de rappel : ")

) )

(prompt "\nAu point:")

 

 

;== V�rifie si le texte a �t� d�fini en hauteur dans "STYLE".

(if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0.0)

(setq haut (* (getvar "DIMSCALE") (getvar "DIMTXT")))

(setq haut (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))))

)

 

(command "_DIM1" "_LEADER" pt_acro pause ""

(strcat

"X="

(rtos (car pt_acro) 2 3)

", Y="

(rtos (cadr pt_acro) 2 3)

)

)

 

(setvar "BLIPMODE" sblip)

(setvar "CMDECHO" scmde)

(setvar "OSMODE" sosmd)

(setvar "DIMASZ" sdasz)

(menucmd "S=s")

(princ)

)

 

[(gile)]

Mais conçernant la méthode du bloc avec des attributs /champs pouvez vous m'envoyer un courriel avec ce bloc e tles attribut puisque je je sais pas manipuler ce genre de manip

 

La facture aussi, je l'envoie par courriel ? :cool:

 

Plus sérieusement, je ne pense pas que je te ferais ce bloc ce serait te rendre un bien piètre service.

Si tu ne sais pas faire un bloc avec attributs, il faut absolument que tu apprennes, ça fait parti des bases du dessin sur AutoCAD.

Regarde l'aide pour les commandes ATTDEF, CHAMP, BLOC et/ou WBLOC.

 

Si tu as du mal à y arriver, demande qu'on t'aide, mais pas qu'on fasse ton boulot à ta place...

[didier]

coucou

 

mille bravos pour toi, (gile)

pas pour la routine, quoique tu excelles,

parce que tu as raison de ne pas TOUT donner

bien d'accord, ce n'est pas rendre service,

si on portait les bébés dans les bras tout le temps

comment apprendaient ils à marcher ?

 

 

Atef : encore une fois, ce n'est pas t'aider que de te filer les blocs,

si tu ne t'en sors pas avec l'aide Autocad,

on sera là pour t'aider

 

rappel :

dessiner la partie graphique

puis définir les attributs avec ATTDEF

 

petite combine :

les sélectionner dans l'ordre souhaité d'apparition au moment de créer le bloc

pas de capture

 

amicalement

 

[Atef]

d'accord merci encore je vais essayer , mais ça arrive à tout le monde de rendre service à qqun c gentille comme geste.