Changement de profil utilisateur

[bonuscad]

Bonjour,

 

Quelqu'un connait-il un moyen de changer de profil utilisateur sans passer par la boite de dialogue "options" et l'onglet "profils"?

L'option /p "nom profil" dans l'icone de démarrage sur le bureau, ne m'intéresse pas, je ne veux pas quitter AutoCAD.

 

Mon but est de créer un bouton pour changer de profil.

 

J'en suis rendu à ce point, mais je n'arrive pas à trouver la suite:

 

^C^C_.+options;8;

 

Cette action m'appelle les options en allant directement sur l'onglet profils, mais pour valider le profil qui m'intéresse et le rendre courant, c'est une autre histoire! :(

 

Une autre méthode?

[rebcao]

 

utilises PROJECTNAME, puis tu entre le nom de ton profil

 

Tiens Bonuscad ! toi grand gourou de CADxp, tu ne fais pas parti de donateurs ? :exclam:

 

Christian

 

[lecrabe]

 

Bonjour EastMan

 

Magnifique, on apprend tous les jours ...

 

Je n'avais jamais utilisé cette possibilité : PROJECTNAME

 

Bye

 

[rebcao]

à ce sujet ! d'ou sort cette variable ??? :P

 

Petite astuce toute simple, lorsque vous vous trouvez dans une commande de type variable système (PROJECTNAME, ATTDIA,FILLEDIA,MIRRTEXTE, etc.) appuyer sur la touche F1 pour avoir tous les détails sur cette variable...

 

Comment trouver ces variables ? Avec le bouton aide, mais il faut parfois être très patient...

 

Un autre truc très pratique, si vous vous baladez dans la commande options (Menu Outils), il y a plein, plein... de paramètres, de cases à cocher, de liste déroulante, etc. Utiliser le petit bouton ? (point d'intérogation) à coté de la croix pour fermer... et cliquer sur la zone qui vous intéresse. Ce truc est valable dans presque toutes les cases de dialogue.

 

exemple, dans l'onglet "AFFICHAGE" à droite en bas, si je clique sur la case "Appliquer remplissage de solide" j'obtiens ...blabla, blabla... variable FILLMODE...

 

Voilà, je ne sais pas si je vous en aprend une ? mais bon ça mange pas de pain !

 

Christian

 

 

 

[rebcao]

Achtung...!!!

 

Grosse fffoliiie .. :o

 

J'ai dû abuser du vin nouveau, ou non ! ça c'était en octobre, ça doit être la bière de Noël... :P

 

J'avais un autre truc en tête c'est pas PROJECTNAME en tout cas, ça c'est pour les Xrefs. :exclam:

 

je reviens, :)

 

Christian

 

[lecrabe]

 

Bonjour

 

et moi j'ai abusé du Beaujolais 2004 (pas terrible comme d'hab) ...

 

Car bien que tu écrives PROJECTNAME

 

dans ma carapace de crabe, j'ai lu PROFILNAME

 

tellement j'étais impressionné par ta réponse !!!

 

Piteusement, Bye

 

[rebcao]

 

il existe bien dans les variables sytème un CPROFILE mais elle est en lecture seule...c'est con ça !

 

Christian

[rebcao]

Bonjour EastMan

 

Magnifique, on apprend tous les jours ...

c'est bien comme tu l'as dit, on en découvre tous les jours,mais on fait aussi des conneries tous les jours...

 

C'est aussi la preuve que l'oeil est un organe trompeur... bourré ou pas...avec ou sans Beaujolais

 

Christian

 

 

[Tramber]

Il va falloir faire une macro en VLA ?

[Patrick_35]

Salut

Dans un premier temps, il est possible de simuler les caractères dans la boite de dialogue avec :

 

(chr 008) --> fléche haut

(chr 009) --> tab

(chr 010) --> fléche bas

(chr 013) --> enter

 

sinon une solution en vlisp

(vl-load-com)
(setq a (vlax-get-acad-object))
(setq b (vla-get-preferences a))
(setq c (vla-get-profiles b))

 

Maintenant, il ne reste plus qu'à faire un vla-get-activeprofile pour connaitre son profile et un vla-put-activeprofile pour l'activer

 

@+

[Tramber]

Salut

Dans un premier temps, il est possible de simuler les caractères dans la boite de dialogue avec :

 

(chr 008) --> fléche haut

(chr 009) --> tab

(chr 010) --> fléche bas

(chr 013) --> enter

 

Super ami breton, ca pourra servir pour des macros toutes versions

[x13]

Voiçi celui que j'utilise;

 

;Tip1565a: PROFILE.LSP Switch Profiles ©1999, Amy Ang

;R2000 only

 

(defun c:profile

(/ app disp NoScreen pName pref prof dat activep n m index var)

(vl-load-com)

(setq app (vlax-get-acad-object))

(setq pref (vla-get-preferences app))

(setq prof (vla-get-profiles pref))

(setq disp (vla-get-display pref))

(setq NoScreen (vla-get-DisplayScreenMenu disp))

(setq activeP (vla-get-ActiveProfile prof))

(vla-GetAllProfileNames prof 'var)

(setq pName (vlax-safearray->list var))

(if pName

(setq pName (acad_strlsort pName))

) ;_ end of if

(setq n (length pName))

(if (> (setq m (length (member activeP pName))) 0)

(setq index (- n m))

nil

) ;_ end of if

(setq dat (load_dialog "profile.dcl"))

(if (not (new_dialog "profile" dat))

(exit)

) ;_ end of if

(if (= NoScreen :vlax-true)

(set_tile "smenu" "1")

(set_tile "smenu" "0")

) ;_ end of if

(set_tile "active" ActiveP)

(start_list "seting")

(mapcar 'add_list pName)

(end_list)

(mode_tile "seting" 2)

(set_tile "seting" (itoa index))

(action_tile "smenu" "(SMenu_on/off)")

(action_tile "seting" "(Sprofile $value)")

(action_tile "cancel" "(done_dialog)(exit)")

(start_dialog)

(unload_dialog dat)

(princ)

) ;_ end of defun

(defun SMenu_on/off ()

(if (= (get_tile "smenu") "1")

(vla-put-DisplayScreenMenu disp :vlax-true)

) ;_ end of if

(if (= (get_tile "smenu") "0")

(vla-put-DisplayScreenMenu disp :vlax-false)

) ;_ end of if

(princ)

) ;_ end of defun

(defun SProfile (val)

(set_tile "active" (nth (atoi val) pName))

(vla-put-ActiveProfile prof (nth (atoi val) pName))

(setq NoScreen (vla-get-DisplayScreenMenu disp))

(if (= NoScreen :vlax-true)

(set_tile "smenu" "1")

(set_tile "smenu" "0")

) ;_ end of if

(princ)

) ;_ end of defun

 

//Tip1565b: PROFILE.DCL Switch Profiles ©1999, Amy Ang

 

profile : dialog {

key="active";

initial_focus=cancel;

: list_box {

key = "seting";

label = "&Profils utilisateurs disponibles";

width = 40;

}

: toggle {

key = "smenu";

label = "&Menu écran";

}

cancel_button;

}

 

Pour le bouton Changeprofiles.bmp, ^C^C(if(not C:profile)(load"profile"));profile

comme le transfert est impossible donc voir Cadalyst.com, Get the code August 2002.

 

Salut,

 

 

François

 

[bonuscad]

Un grand merci à Patrick_35 et X13,

 

C'est tout à fait ce que je cherchais! :D

 

Les quelques lignes de Patrick me suffiront amplement car je ne veux pas utiliser de boite de dialogue (Mais le lisp fonctionne très bien !)

Je garde celui-ci sous le coude, et il va aussi me servir à connaître la syntaxe à utiliser pour ces fonctions (vla-.....). En effet, je n'ai trouvé aucune trace de ces fonctions dans l'aide, ni dans les documents complémentaires que j'ai pu télécharger sur le net. (Mais où allez vous chercher ces infos?)

 

Tiens Bonuscad ! toi grand gourou de CADxp, tu ne fais pas parti de donateurs ?

 

Un grand gourou ne ferait pas appel à ses disciples :exclam:

Je suis comme tout à chacun, un utilisateur qui est passionné et fait partager le peu de connaissance qu'il a.

 

Quant à la donation, ce n'est pas ce genre de réflexion qui me pousseras à la faire, mais plutôt les réponses qu'ont pu m'apporter les utilisateurs lambda.

 

D'ailleurs la réponse de Patrick_35 et x13 va me pousser dans ce sens, je vais voir si les appels de mon poste professionnel ne sont pas bloqués vers les numéros spéciaux, je serais peut être obligé de le faire depuis le poste de mon chef. (Il ne va peut être pas apprécier car une trace des appels est conservée et épluché en cas d'abus)

 

[Patrick_35]

Salut

Les infos, je les récupère via l'explorateur d'objets en vba et aussi avec des vlax-dump-object

 

Pour ce qui est de la donation, je pense que chacun est libre de faire ce qu'il veut, même si ce n'est pas excessif comme montant. Je trouve que d'indiquer les donateurs avec une étoile de shérif obligent dans une certaine mesure les participants à donner.

Participer au forum et passer un peu de temps est déjà une donation en soi. Donner de l’argent pour que le site vive est une autre démarche

(et à mon avis, vu le nombre de donateurs, si Patrick attendait les dons pour vivre, cela ferait longtemps que le site aurait fermé, mais rien n'interdit de mettre un peu de beurre dans les épinards ;))

 

@+