rendre la main pour une commande

[harksin]

Bonjour,

Je sollicite votre aide pour une petite question surement banale...

 

 

Pouvez vous m'indiquez comment laisser l'utilisateur renseigné une commande autocad interne a un lisp.

 

Sans pour autant créer d'artefact comme la récupération préalable des informations puis leur réinjection dans la commande.

 

En gros je veux rendre la main à l'utilisateur momentanément.

 

Merci d'avance pour vos réponses

 

HK

[VDH-Bruno]

Bonjour,

 

Avec l’instruction pause ou les fonctions getxxx dans un appel à la fonction command

Un exemple d’utilisation de pause pour une ligne définie par 2 points

 

(command "_line" pause pause "" )

ou

(command "_line" (getpoint) (getpoint (getvar 'lastpoint)) "")

 

 

Autre exemple un classique pour un nombre de saisie utilisateur indéterminé

((lambda () (command "_line") (while (< 0 (getvar 'cmdactive)) (command pause))))

ou

((lambda ()
  (command "_line" (getpoint))
  (while (< 0 (getvar 'cmdactive)) (initget "Clore _Clore") (command (getpoint (getvar 'lastpoint))))
)
)

 

A+

[philsogood]

hello Bruno,

à quoi correspond (getvar 'cmdactive) ?

à quoi sert (commande pause)

si je ne m'abuse (getpoint (getvar 'lastpoint)) va renvoyer les coordonnées dui premier point (et le ligne sera semblable à un point) je suis dans le vrai?

Merci pour tes lumières

Phil

[(gile)]

hello Bruno,

à quoi correspond (getvar 'cmdactive) ?

à quoi sert (commande pause)

si je ne m'abuse (getpoint (getvar 'lastpoint)) va renvoyer les coordonnées dui premier point (et le ligne sera semblable à un point) je suis dans le vrai?

Merci pour tes lumières

Phil

 

Réponse "pédagogique".

 

Dans l'aide, cherche CMDACTIVE

 

Ouvre l'éditeur Visual LISP (commande VLIDE)

Dans la fenêtre "Console Visual LISP" entre (getvar 'cmdactive) et fait Enter

Puis entre (getpoint (getvar 'lastpoint)) et fait Enter

 

Regarde l'aide pour la fonction LISP getpoint...