Sélectionner une entité avant de lancer la commande

[Vincent P.]

Bonjour bonjour,

 

Je me remet un peut à lisper, et je me pose une question.

Jusque maintenant lorsque je prépare un programme, qui vas traiter des entités, je met

 

(defun c:BLABLA (/ Ent)

(setq Ent (car (entsel)))

)

 

En faisant ainsi, je lance BLABLA, puis je sélectionne l'entité. M'est retournée le nom de l'entité.

Si je procède a l'inverse, je commence par sélectionner une entité, puis je lance BLABLA, l'entité présélectionnée est ignorée, et on me demande "Choix de l'objet :".

 

Est'il donc possible de récupérer lors de du lancement de ma commande BLABLA de récupérer l'entité présélectionnée?

Je ne pense pas que seul le Lisp m'aideras, mais ptet du script?

 

J'espère avoir été claire.

 

Aimablement

Vincent P.

[Tramber]

(setq voir (cadr(ssgetfirst)))
(setq premiere_entite_du_lot(ssname voir 0))

[didier]

Coucou

 

Je te propose de mettre cette variable "ent" en argument

(defun c:BLABLA (/ Ent)

(setq Ent (car (entsel)))

code qui suit...

)

Va devenir

(defun c:BLABLA (Ent)

code qui suit..)

)

Et ensuite il te faudra "passer" l'argument à la fonction "blabla"

(setq Ent (car (entsel))

(blabla ent)

 

OK ?

 

Amicalement

[Tramber]

Cher Didier, je me permets de suggérer (c:blabla ent) au lieu de (blabla ent)...

[Vincent P.]

Ok, la méthode de Tramber, je l'ai comprise, et ça fait ce à quoi je pensais.

Cool et merci à toi!

 

Didier, j'ai l'impression que ta solution requière de passer par une autre commande. Ou alors je n'ai pas compris où tu voulais me mener (ce qui est fort probable)

 

Même si ce que Tramber à proposé fonctionne, je voudrais bien comprendre quand même!!

 

Merci

[DenisHen]

Salut à tous.

Cher Didier, je me permets de suggérer (c:blabla ent) au lieu de (blabla ent)...

J'aimerais savoir pourquoi. S'il te plaît...

 

Denis...

 

PS : pareillement à Vincent, je suis curieux...

[Tramber]

Bon, les gars : le "c:" permet de faire en sorte que la commande soit appelable directement en ligne de commande.

(defun c:macommande()... se lance avec macommande

alors que

(defun macommande().... se lance avec (macommande)

Pour le coup ici, je me contenterais d'un (defun blabla (arg1 arg2)...

Car les fonctions en c: ne sont pas très utiles dès lors qu'on les utilise avec des arguments puisqu'alors la seule forme possible sera (c:blabla arg1 arg2)

 

Je ne dois pas être bien clair... avec tout ce que j'ai bu ce midi :P

[DenisHen]

Je ne dois pas être bien clair... avec tout ce que j'ai bu ce midi :P

Peut-être, en tous cas, j'ai tout compris... C'est probablement que je n'étais pas avec toi ce midi justement... ;)

 

On mets c: pour des commandes "simples" (defun c:MaCommandeSimple (/) qui donnera MaCommandeSimple directement depuis AutoCAD et sans pour des commandes avec argument, (defun MaCommandeAvecArgument (Arg1 Arg2 / )...) puisqu'elle sera sous format (MaCommandeAvecArgument Arg1 Arg2) directement en ligne de commande dans AutoCAD...

 

J'ai bon ?

 

Denis...

[didier]

Coucou

 

Effectivement je parlais de sous-fonction mais avec le "blabla" je me suis emmêlé les touches

En général (moi je ne suis que soldat de deuxième classe) :

Il est courant de faire des

 

(defun SousCommande1 (argument) ...)

(defun SousCommande2 (argument) ...)

 

Et à la fin on définit la fonction principale qui appelle les sous-fonctions

 

(defun c:NomDeCommande()

(SousCommande1 arg)

(SousCommande2 arg)

);fin de defun NomDeCommande

 

NomDeCommande étant ce qui sera tapé en ligne de commande dans l'interface graphique...

 

Amicalement

[Tramber]

Voilà aussi un très bon résumé.