Economiser 62 480 frappes clavier par an ?

[kyrtzo]

Je cherche des bonnes ames pour m'aider a économiser 62 480 pitonnages de clavier par an a vos petits doigts?

(une moyenne certainement trop basse).

Ce serait une économie de 62 480 000 pitonnages par an pour mille utilisateurs ou 312 400 000 de frappes claviers pendant 5 ans.

Je vous laisse faire le calcul pour l'ensemble de la communauté Autocad..

 

Naturellement , on ne parle pas de la productivitè accrue et de nos doigts ménagés et du temps libre pour des taches plus metier.

 

Mon calcul se base sur une simplification de la saisie de droites verticales et horizontales (fonction XLINE (XL) ou DROITE).

 

======================================================================================

 

Hypotheses du calcul

 

Par jour :

Avec la version 2004 (idem 2006)

_ creation de 4 séries 6 droites verticales et 4 séries de 6 droites horizontales

(= 4 fois (27 +27) frappes de clavier soit 216 frappes)

_ création de 10 séries de 4 droites verticales et 10 séries de 4 droites horizontales

(= 10 fois (19 +19) frappes de clavier soit 380 frappes)

Avec une fonction evoluee (expliquée plus loin) :

_ creation de 4 séries 6 droites verticales et 4 séries de 6 droites horizontales

(= 4 fois (14 + 14) frappes de clavier soit 112 frappes) => economie de (216-112) soit 104 frappes economisées

_ création de 10 séries de 4 droites verticales et 10 séries de 4 droites horizontales

(= 10 fois (10 +10) frappes de clavier soit 200 frappes) => economie de (380-200) soit 180 frappes economisées

 

le total d'economie de frappes est donc de 284/jour avec 220 jour/an et pendant 5 ans : 284*220*5 = 313 000 frappes economisees par utilisateur

et donc 313 000 000 de frappes utilisees pour mille utilisateurs .

 

======================================================================================

 

Detail saisie actuelle de 4 droites verticales (placées a x=1/2/3/4):

 

XL + enter

v+,+0 + enter

1+,+0 + enter

2+,+0 + enter

3+,+0 + enter

4+,+0 + enter

enter

soit 19 frappes

 

Fonction proposée :

XLV + enter

1/2/3/4 + enter (la position du separateur '/' accelere la saisie clavier)

enter

soit 10 frappes avec une ergonomie meilleure

 

l'economie est de 9 frappes

=======================================================================================

Je propose donxc de creer 2 fonctions pour les droites horizontales et verticales :

_ XLH

_ XLV

avec une utilisation du separateur / .

 

Naturellement je ne connais rien a la programmation et je n'ai pas le temps ni les competences pour le faire.

Est-ce compliqué a faire et peut-on ensuite le diffuser ?

 

Merci a tous et bonne journée

Kyrtzo

 

 

Nota : je sors de formation et j'espere qu'il n'existe pas un moyen rapide et detourné de créer ces droites en minimisant les frappes clavier. :)

[bonuscad]

Essayes ce qui est proposé ici

 

La démarche proposée me semblerai plus simple, tu crée une XLine et tu utilise la fonction "mult_offset"

Mais peut être que je n'ai pas bien compris ton souhait, je te laisse quand même essayer...

[(gile)]

Salut,

 

Je pense que ça devrait te convenir, les seuls caractères acceptés sont : 0 1 2 3 4 5 6 7 8 9 . /

les nombrs du type : .25 sont pris en compte.

 

(defun c:xlh (/ str pos coord)
 (if
   (setq str (getstring "\nEntrez les distances de décalage: "))
    (if (vl-every '(lambda (x) (list str))
      (while (/= str "")
 (setq pos   (vl-string-position 47 str)
       coord (substr str 1 pos)
 )
 (if (= "." (substr coord 1 1))
   (setq coord (strcat "0" coord))
 )
 (if (numberp (read coord))
   (entmake (list '(0 . "XLINE")
		  '(100 . "AcDbEntity")
		  '(100 . "AcDbXline")
		  (list 10 0.0 (atof coord) 0.0)
		  '(11 1.0 0.0 0.0)
	    )
   )
 )
 (if pos
   (setq str (substr str (+ 2 pos)))
   (setq str "")
 )
      )
      (alert "Entrée non valide")
    )
 )
 (princ)
)

(defun c:xlv (/ str pos coord)
 (if
   (setq str (getstring "\nEntrez les distances de décalage: "))
    (if (vl-every '(lambda (x) (list str))
      (while (/= str "")
 (setq pos   (vl-string-position 47 str)
       coord (substr str 1 pos)
 )
 (if (= "." (substr coord 1 1))
   (setq coord (strcat "0" coord))
 )
 (if (numberp (read coord))
   (entmake (list '(0 . "XLINE")
		  '(100 . "AcDbEntity")
		  '(100 . "AcDbXline")
		  (list 10 (atof coord) 0.0 0.0)
		  '(11 0.0 1.0 0.0)
	    )
   )
 )
 (if pos
   (setq str (substr str (+ 2 pos)))
   (setq str "")
 )
      )
      (alert "Entrée non valide")
    )
 )
 (princ)
)

 

[Edité le 29/6/2007 par (gile)]

[vouty]

Moi, ca me plait ces solutions rapides avec des génies en ligne mais ....

j'en fait quoi de ces lignes de commandes ?

 

c'est de l'interpreté pas a pas lors de l'execution et je mets ca dans un repertoire specifique ou il faut que je compile qqchose ?

 

la commande je la lance comment ?

merci , merci

 

NB : je n'ai vraiment pas le temps de me mettre a regarder le lisp ces jours-ci mais un peu plus tard ... si je vois qu'on peut developper de trucs sympaths ... cela dependra de mon activité professionnelle :)

[(gile)]

Salut,

 

Le code ci-dessus est "prêt à l'emploi" de plus amples explications ici.

 

[Edité le 30/6/2007 par (gile)]

[vouty]

En cours de passage du 6eme Dan .... du sage ..... philosophe

et merci pour le topic :heartpump: