raccourci clavier scu orthogonaux

[FRAXA]

Bonjour!

 

Pourriez-vous m'indiquer comment créer des raccourcis clavier pour basculer le scu selon les scu orthogonaux.

ex: AV pour le scu orthogonal Avant

 

Merci

 

[(gile)]

Salut,

 

Tout d'abord, quelques petites précisions sémantiques pour être sûr de parler de la même chose.

 

AutoCAD permet la création d'alias de commande (ex: L pour la commande Ligne). On crée ces alias en les ajoutant au fichier AutoCAD.pgp (menu Outils > Personnaliser > Paramètres de programme). Les alias ne fonctionne qu'avec les commandes (natives ou définies par programmation LISP ou autre) sans pouvoir spécifier d'options de commande. Cette solution n'est donc pas possible pour ce que tu veux faire.

 

On peut aussi créer des raccourcis clavier (touches Fn ou combinaisons de touches avec les touches Ctrl ou Alt). Ces raccourcis sont créés depuis la boite de dialogue CUI (noeud Raccourcis clavier). On attribue au raccourci une macro de commande pouvant contenir des options. Pour ce que tu veux faire, les macros sont déjà contenues dans les commandes du CUI (Avant, Arrière, Gauche, Droit, Haut, Bas), il suffit donc de glisser/déposer de chaque commande dans le noeud "Touches de raccourci" du CUI et de lui affecter une combinaison de touches (beaucoup sont déjà utilisées...).

 

Une dernière solution est de définir des commandes par programmation (en LISP, c'est le plus simple) aux quelles on peut donner le nom que l'on veut.

 

Un exemple avec les touches du pavé numérique préfixée parce chez moi les touches seules sont déjà affectées aux vues prédéfinies (Vues_pavé.lsp sur cette page):

s5 = Haut

s0 = Bas

s2 = Avant

s8 = Arrière

s4 = Gauche

s6 = Droite

Tu peux les remplacer les noms de commandes par d'autres dans la liste en conservant bien l'ordre (dans le code, le nom de commande a toujours le préfixe c:).

 

;; SCU orthogonaux (gile)
s0 = Bas
s2 = Avant
s4 = Gauche
s5 = Haut
s6 = Droite
s8 = Arrière

(mapcar
 '(lambda (f v)
    (eval (list 'defun
	 f
	 nil
	 (list 'command "_.ucs" "_orthog" v)
	 '(princ)
   )
    )
  )
 '(c:s0 c:s2 c:s4 c:s5 c:s6 c:s8)
 '("_bottom" "_front" "_left" "_top" "_right" "_back")
)

 

 

[FRAXA]

Merci pour les précisions et pour le lips.

 

Bon weekend

[lili2006]

Bonjour à toutes et tous,

 

Salut Gilles,

 

J'ai voulu essayer "Vues_pavé.lsp".

 

J'ai donc copié l'expression lisp directement dans mon "acad.lsp" et en rebootant AutoCAD, celui-ci reste "coincé" avant de me lancer la BD m'indiquant que le lisp "acad.lsp" est bien chargé !

 

J'ai donc retiré l'expression et AutoCAD redémarre normalement.

 

Qu'ais-je raté ?

 

Merci d'avance,

[(gile)]

Salut Lilian,

 

Je ne saurais dire...

C'est quoi cette BD qui te dis que AutoCAD.lsp est bien chargé ?

Par ailleurs, par defaut (ACADLSPASDOC à 0) le fichier AutoCAD.lsp n'est chargé qu'à chaque nouvelle session d'AutoCAD. Les LISP devant être chargé dans chaque nouveau document ouvert devraient être dans acaddoc.lsp ou un fichier MNL de même nom que le fichier CUI qui les utilise.

[lili2006]

Re,

 

C'est quoi cette BD qui te dis que AutoCAD.lsp est bien chargé ?

 

Non, je me suis trompé, celui-ci est sur acaddo.lsp de cette forme :

 

(defun-q S::STARTUP

 ()

 
 (alert "Perso LILIAN ok !")

 (princ)

) 

 

 

Par ailleurs, par defaut (ACADLSPASDOC à 0) le fichier AutoCAD.lsp n'est chargé qu'à chaque nouvelle session d'AutoCAD

 

Pour ça que j'ai redémarré,...

 

 

Les LISP devant être chargé dans chaque nouveau document ouvert devraient être dans acaddoc.lsp

 

Ça, c'est ok suite à un long post ou tu m'as bien guidé, et je t'en remercie encore car cette gestion est tout simplement géniale et "facile".

 

Je ne saurais dire...

 

Après plantage, voici la forme du fichier.

 

quand je retire "VUES SUR PAVE NUMÉRIQUE", plus de pb,...

 

Merci encore,

[(gile)]

Je ne vois toujours pas...

 

Testes-tu sur 2011 ?

Si c'est la cas peut être la 'vieille' fonction defun-q est-elle mal supportée ?

 

Essaye avec celle-ci (le defun-q n'est pas nécessaire)

 

(mapcar
 '(lambda (f v)
    (eval (list 'defun
	 f
	 nil
	 (list 'command "_.view" v)
	 '(princ)
   )
    )
  )
 '(c:0 c:1 c:2 c:3 c:4 c:5 c:6 c:7 c:8 c:9)
 '("_bottom"	"_swiso"    "_front"	"_seiso"    "_left"
   "_top"	"_right"    "_nwiso"	"_back"	    "_neiso"
  )
)

 

Mais colle là dans acaddoc.lsp, c'est du LISP qui doit être chargé dans chaque document.

[lili2006]

Re,

 

Testes-tu sur 2011 ?

 

Non, sur ma 2008 !

 

J'ai bien chargé ton dernier code sur acaddoc.lsp

 

En fait ça marche, mais j'ai également des commandes sur 1,2,3,... sur mon AutoCAD.pgp,...

 

Peux-ton affecter les flèches de déplacement sur les différentes vues à la place =>

 

Flèche haute => Haut,

Flèche basse => Bas,

Flèche droite=> Droite,

Flèche gauche=> gauche,

 

Et pour Arrière et Avant :

 

Av & Ar

 

Est-ce facilement réalisable ?

 

Merci d'avance,

[(gile)]

Non, on ne peut utiliser que des caractères imprimables (et encore pas tous) pour les symboles LISP.

 

Cette expression n'est qu'une manière de ne pas avoir écrire :

(defun c:0 () (command "_.view" "_bottom") (princ))
(defun c:1 () (command "_.view" "_swiso") (princ))
etc...

Mais tu peux très bien remplacer les chiffres par ce que tu veux dans la liste :

'(c:0 c:1 c:2 c:3 c:4 c:5 c:6 c:7 c:8 c:9)

Il faut juste respecter l'ordre par rapport à l'autre liste.

[lili2006]

Re,

 

Ok!

 

Mais comment je fais pour affecter une touche de type flèche ?

 

Pour une lettre, j'ai compris,...

 

Merci encore,

 

PS: Je ne vois pas bien à quoi sert la vue arrière ?

[(gile)]

Mais comment je fais pour affecter une touche de type flèche ?

Ça n'est pas possible.

Le LISP définit des noms de commandes, ces noms sont des symboles AutoLISP et ne peuvent doivent être des suites de caractères imprimables (exceptés parenthèses, guillemets, apostrophes, points et points virgules) non exclusivement constituées de chiffres (la commande peut ne contenir que des chiffres puisque le symbole contient aussi c:)

 

Je ne vois pas bien à quoi sert la vue arrière ?

En dessin 3d toutes les vues peuvent avoir une utilité (les vues prédéfinies ne sont en général pas suffisantes)

[lili2006]

Re,

 

Ok Gilles,

 

Merci encore,

 

C'est tout bon !

 

Bon WE,

[philsogood]

hello

merci encore gile pour ce lisp (tu a révolutionné AutoCAD FR à toi tout seul!!)

serait-il possible que les vues soient calées sur le SCU plutot que systématiquement sur le SCG?

(ce qui en plus envoie ballader le SCU que l'on avait créé)

Phil

[(gile)]

Salut,

 

Si je comprends bien ce que tu demandes, ça n'est pas possible avec ce type de LISP qui utilise les options de la (vieille) commande -VUE (_-VIEW).

 

Par contre, depuis la version 2010, le VIEWCUBE (facilement paramétrable) permet ce que tu veux.

[philsogood]

merci gile

trop l'habitude des raccourcis clavier de ton lisp

vais me pencher la dessus

bon week end

Phil