Récup. de point APRES commande

[Bred]

Bonjour à tous

Est-il possible en lisp de récupérer les coordonées des points après avoir lancer la commande...

Plus clair : en lisp je lance la commande copier que je gère en macro du genre :

(defun c:cop ()

(command "_copy" pause "" pause))

je copie donc un ou plusieur objet et je click sur le point de base (A) et le point d'arrivé (B)...

Je voudrais à la suite de cette commande avoir dans 2 variable les coordonées de (A) et de (B)...

 

... merci

[Tramber]

(setq sel(ssget))

(command "_copy" sel ""(setq pA(getpoint))(setq pB(getpoint)))

 

C'est mieux de faire la selection avant

 

[Bred]

PARFAITEMENT FABULEUX !!!!

 

Remerciement

[Bred]

... PREsque....!!!

 

Juste une petite remarque : commant ce fait-il que l'objet ne se trouve pas au bout du curseur pendant le "mouvement" vers le point B ??? comme une copy normal...

[bonuscad]

... PREsque....!!!

 

(setq sel (ssget))

(command "_copy" sel "" (setq pA (getpoint)) pause)

(setq pB (getvar "lastpoint"))

 

C'était pas loin ! ;)

[Bred]

O.K. !!! Super.

Merci à vous deux.

 

Juste comme ça : je comprend les commandes de bonuscad, mais question logique, la proposition de Tramber me semble plus.... "logique".... non ?

 

En tous cas, merci encore...

 

[Tramber]

Oui, mais apparemment, seul "pause" permet de redonner la main à l'affichage graphique en temps réel.

 

Au passage, il est de règle de ne pas abuser des fonctions lisp dans un "command". Mais GETPOINT passe très bien. De même que SETQ bien sur.