Bouton WIPEOUT

[La Lozère]

Bonjour,

Quelqu'un saurait me dire quelle syntaxe qu'il faudrait que je mette à UN bouton pour qu'il me fasse ACTIF/INACTIF sur les cadres des wipeout?

Si je n'ai pas été clair, n'hésitez pas à me reprendre.

 

Merci et bonne journée à tous.

[lili2006]

Bonjour àtoutes et tous,

 

Je ne vais pas directement répondre à ta demande mais il est possible de le faire depuis la commande de base =>

 

Commande: _wipeout Spécifiez le premier point ou [Cadres/Polyligne]

: C

Entrez le mode [Actif/Inactif] : I

Régénération de la présentation.

 

N'est-ce pas suffisant ??

[La Lozère]

En fait, je voudrait créer un bouton qui permet en cliquant dessus, de passer de 'inactif" à "actif" ou/et inversement suivant la situation/état en cours. Bref un simple clic pour faire le basculement et non pas une succession de frappe clavier.

Merci.

[lili2006]

Re,

 

Une macro alors ?

christian, si tu nous lis,....

 

Désolé, je ne suis pas une "super star" dans ce domaine,... ;)

[(gile)]

Salut,

 

Tu peux voir ce sujet.

 

Sinon, en LISP on peut faire une commande bascule Actif/Inactif et l'appeler depuis un bouton (si aime avoir des boutons) avec la macro suivante :

 

^C^Cwf

 

(defun c:wf (/ dict)
 (and
   (setq dict (dictsearch (namedobjdict) "ACAD_WIPEOUT_VARS"))
   (entmod
     (subst
(cons 70 (boole 6 (cdr (assoc 70 dict)) 1))
(assoc 70 dict)
dict
     )
   )
   (vl-cmdf "_.regen")
 )
 (princ)
) 

[(gile)]

Une macro alors ?

christian, si tu nous lis,....

 

Je crains que dans ce cas là, même Christian aurait du mal à faire une macro bascule (mais je peux me tromper).

 

Les bascules en Diesel sont assez faciles à faire quand il s'agit de valeurs de variables système à inverser entre 1 à 0, mais là il s'agit d'un code DXF dans un dictionnaire, et je ne crois pas que ce soit accessible en Diesel.

 

Si on ne veut pas de LISP, il faudra deux macros (2 boutons...) :

 

Activer

^C^C_wipeout;_frame;_on

 

Désactiver

^C^C_wipeout;_frame;_off

[rebcao]

Bonsoir,

 

Je crains que dans ce cas là, même Christian aurait du mal à faire une macro bascule ( mais je peux me tromper).

 

FUI ! peut-être...

 

Merci de me soliciter ainsi. Et merci de m'attendre...

 

Voila, voila... une petite MACRO à BOUTON UNIQUE !

 

[surligneur] ^C^C$m=$(if,$(=,$(getvar,useri5),0),_wipeout;C;IN;useri5;1;,_wipeout;C;AC;useri5;0;);[/surligneur]

 

Attention au retour à la ligne lors du COPIER-COLLER de cette MACRO. cliquer pour ouvrir le fichier TEXTE de la MACRO... Il y a d'ailleurs une bizarrerie d'affichage à la fin un espace s'affiche dans USERI5 !!!

 

DIZI si ça marche !

 

Christian

 

 

[Edité le 10/12/2008 par rebcao]

[lili2006]

Re,

 

Christian, y'à un drôle de machin qui s'est "collé" au bout de ton code,.... ;)

 

On le remplace par quoi exactement ,

 

Merci d'avance,

[(gile)]

Bravo Christian :D

 

Ne pratiquant que très très occasionnellement les macros, je n'avais pas pensé à stoker une valeur dans USERI*

[rebcao]

C'est bientôt Noël ! c'est pour ça... ;)

 

En fait, comme dans mes formations je suis confronté à 70% de versions LT, j'ai pas le choix !!! MACRO + DIESEL = que du bonheur...

 

Christian

 

 

 

[Edité le 10/12/2008 par rebcao]

[La Lozère]

Merci REB,

C'est exactement ce que je cherchais

J'ai rajouter \\ à la fin du code pour que cela marche mieux (le retour à la ligne), car cela ne terminé pas la commande.

A plus.

[Desspro]

Bonjour à tous,

 

J'ai ouvert ce post vraiment par hasard, et voila une macro très intéressante, j'en avait marre de passer par plusieurs commande pour activer ou désactiver cette fonction.

MAIS ne connaissant rien mais vraiment rien à la programmation, pouvez vous m'expliquer la démarche avec faire pour que je puisse utiliser cette géniale commande

(j'utilise AutoCad MAP 3D 2010)

Merci...

[rebcao]

Bonjour,

 

Tu peux charger ce fichier ZIP contenant une palette d'outils avec quelques MACROS concernant la commande NETTOYER (=WIPEOUT)

 

1. Décompresser le ZIP

 

2. Ouvrir la PALETTE d'OUTILS

 

3. Bouton droite sur la palette PERSONNALISER PALETTE...

 

4. Zone de gauche Bouton DROIT de la souris IMPORTER...y a plus qu'à ...

 

Tu y trouveras les MACROS suivantes :

 

[surligneur]1. NETTOYER POLYLIGNE avec EFFACEMENT POLYLIGNE

2. NETTOYER POLYLIGNE SANS EFFACER POLYLIGNE

3. NETTOYER cadre libre

4. Cadre NETTOYER ACTIF INACTIF[/surligneur]

 

Christian

 

 

[Edité le 22/8/2009 par rebcao]

[Desspro]

Re, Bonjour, rebcao

 

Merci, ça fonctionne nickel. Enfin des manips en moins :D

Heureusement que des forums comme ça existe...bravo...continuer... :thumbup:

[zourite9141]

bonjour à tous,

 

Merci beaucoup REBCAO.

Moi qui m'embétait avec la commande au clavier, etc...

 

Bon surf à tous.

[rebcao]

 

AH de rien... Mais il est où MON CHEQUE ??? :(

 

Christian ;)