Coordonnées du curseur

[sechanbask]

Bonsoir, j'aimerais savoir comment on peut récupérer les coordonnées du curseur sans demander à l'utilisateur de saisir un point. En gros, je voudrais savoir comment autocad fait pour afficher les coordonnées du curseur en bas à gauche de l'écran, mais non pas si bas, juste au dessus de la ligne de commande..)

 

Ça serait pour récupérer des points afin de tracer des segments de droite sur des points pris tous les millième de seconde par exemple pendant 3 secondes pour faire une espèce de courbe à main levée...

 

 

[lovecraft]

Bonjour,

il me semble que t'as la commande MAINLEV pour effectuer cette tâche à moins que je n'ai pas compris le sujet.

@plus

[Bred]

Salut,

en lisp :

(setq pos_curseur (cadr (grread T)))

[sechanbask]

Merci pour la fonction MAINLEV, je ne la connaissais pas, je dirais même plus, personne au bureau ne la connaissait...

 

Je pense que ça va me faire gagner du temps merci...

[rebcao]

sauf pour les LTsiens !!! pas de MAINLEV !!!

 

Christian

[sechanbask]

c'est pas pratique pour moi car il ne me fait pas polyligne alors je dois sélectionner les lignes puis les éditer... par terrible, alors je fait toujours de polyligne avec arc et direction puis ligne... une vie de misère... mdr...

[dnalor]

Simple question !

 

Pourrait-on voir le genre de dessin que tu souhaite créer ?

 

 

Suggestion avec _spline en cliquant « à la volée ».

 

J’ai réalisé le dessin suivant avec des arc en tapant arc ->par 3p \\\ puis ;\ ;\ ;\etc….

 

bien entendu sous LT! et ça n'a pas été très fastidieux

 

 

[Edité le 29/9/2007 par dnalor]

[sechanbask]

On ne peut pas mettre d'épaisseur sur une spline sauf avec un code, mais ça plante parfois alors c'est pas pratique

[(gile)]

Salut,

 

Un petit LISP qui fonctionne comme "mainlev" et joint automatiquement les lignes en une polyligne.

 

(defun c:mainlev-pl (/ pt ss ent)
 (entmake '((0 . "POINT") (10 0. 0. 0.)))
 (setq pt (entlast))
 (entdel pt)
 (command "_sketch")
 (while (/= 0 (getvar "CMDACTIVE"))
   (command pause)
 )
 (if (not (equal (entlast) pt))
   (progn
     (setq ss	(ssadd)
    ent	(entnext pt)
     )
     (while ent
(ssadd ent ss)
(setq ent (entnext ent))
     )
     (if (= 1 (getvar "PEDITACCEPT"))
(command "_.pedit" "_m" ss "" "_j" 0. "")
(command "_.pedit" "_m" ss "" "_y" "_j" 0. "")
     )
   )
 )
 (princ)
) 

 

[Edité le 30/9/2007 par (gile)]

[sechanbask]

je testerais ça au boulot... merci