FUN: 1er Avril (Qq variables)

[lecrabe]

 

Bonsoir

 

En préparation pour le 1er Avril (ou lorsque le gars est parti à la machine à café):

 

Christian va nous améliorer ça ... :)

 

FILLMODE = 0

TEXTFILL = 0

QTEXTMODE = 1

MAXSORT = 1

CMDDIA = 0

FILEDIA = 0

ATTREQ = 0

RESVUE Entree Non Entree 1 Entree

VUEDYN Entree Entree Basculer 90 Entree Entree

Faire des limites microscopiques et ACtiver les Limites

HIGHLIGHT 0

ANNULER CONTROLE AUCUN

Mettre les Unites avec ZERO Décimales et les Angles en Radiants

LTSCALE = 0.0001 ou 10000

 

etc

 

Le Decapode "Vachard"

 

 

 

[rebcao]

Tu crois que je suis un petit vilain canard qui aime embêter ses petits camarades ? Eh ben VUI VUI

 

PICKBOX = 0

REGENMODE = 0

CURSORSIZE = 1

NOMUTT = 1

RESOL ACTIF et = 10E99 j ' l ' aime bien celui-là ! NOMUTT aussi

_CleanScreenON

 

On va encore en trouver d'autres...

 

Le tout lancé par un VIRUS SCRIPT ! ça c'est pour Tramber

 

Franchement c'est pas bien LeCrabe ! mais puis je t'appeler Pat ?

 

;) Christian

 

[Edité le 25/2/2006 par rebcao]

[Tramber]

Trés bon les gars. Trop fort le NOMUTT

 

Pour les attrib, je verrai plutot ATTECRAN à 0 !

ISOLINES à 0 aussi mais vous êtes + fort que moi.

[lecrabe]

 

Bonjour

 

A propos, peut on programmer tout ça dans un programme VBA livré avec un DWG

et qui s'execute AUTOMATIQUEMENT au chargement du DWG ???

 

On pourrait l'appeler " Le DWG de la mort"

comme "The blue screen of death" pour Windows

lorsqu'il se plante gravement !

Magnifique Ecran bleu avec les registres en pagaille, l'Héxadécimal puis

qq écrans très inquiétants avec des messages d'erreur non moins affolants ;) ;)

 

D'ailleurs j'ai utilisé dans le passé un superbe économiseur d'écran

qui simulait "The blue screen of death"

sauf que je l'avais mis sur mon PC Perso et que un jour je l'ai "complètement" oublié

DONC en revenant de déjeuner: Horreur j'ai cru que mon PC était gravement planté !!!

 

En fait il suffisait de toucher à la souris pour le "réveiller" ...

J'ai fait un Reset EDF et je n'ai pas été déçu du résultat :o :(

 

C'est l'histoire de l'arroseur arrosé !!! :casstet:

 

Le Decapode "déconneur"

 

[rebcao]

Oui !

 

Il me semble que Didier avait fait un truc de ce genre sur un objet inneffaçable !!! Mais ça ne fonctionnait pas avec les versions LT !

 

Je me souviens même que dans le sujet Didier avait un peu pris la mouche !!!

 

C'est pourquoi je rappelle de temps en temps ITALIQUE = HUMOUR !!! ;)

 

Christian

 

[Edité le 26/2/2006 par rebcao]

[rebcao]

J'ai retrouvé le sujet et plus précisément "la réponse à la mouche piquée"

 

et voici le déclencheur on remarquera les italiques ! et la conclusion ! Ben tiens il a jamais répondu le Didi !

 

;) je ne me souvenais plus de ce sujet, mais je le trouve marrant et chaud !

 

[Edité le 26/2/2006 par rebcao]

[rebcao]

et encore un petit PICKFIRST à 0

 

et uniquement pour la version 2006 OSNAPOVERRIDE à 1 celui là il est vraiment vache !!!!! :mad:

 

encore, encore... ;)

 

 

 

[CDL]

Ma recette :

Si il y a un beau dessin sur l’écran :

Je fait un impr écran

Je lance PAINT et je fait un coller

J’active la gomme (en grand)

Je désactive la palette et la barre d’outil

 

Ca fonctionne aussi avec WORD, pour les secrétaires.

:cool:

[CDL]

Plus sur AutoCAD :

 

Je tape POINT avec des coordonnées en XY loin, loin, trés loin.

 

Et j'attend ...

 

:)

[Dominique]

Bonjour à tous,

 

A propos, peut on programmer tout ça dans un programme VBA livré avec un DWG

et qui s'execute AUTOMATIQUEMENT au chargement du DWG ???

 

Pourquoi essayer de faire quelque chose qu'autocad fait déjà bien tout seul. ;) ;)

[franck89]

Ma recette :

Si il y a un beau dessin sur l’écran :

Je fait un impr écran

Je lance PAINT et je fait un coller

J’active la gomme (en grand)

Je désactive la palette et la barre d’outil

 

Sous XP on désactive les icones de bureau, on masque automatiquement la barre des tâches, et en fond d'écran on met l'imprime écran collé et sauvegardé sur paint. Résultat garantie, surtout si sur l'imprime écran la barre des tâches apparait.

[Eric]

Sous XP on désactive les icones de bureau, on masque automatiquement la barre des tâches, et en fond d'écran on met l'imprime écran collé et sauvegardé sur paint. Résultat garantie, surtout si sur l'imprime écran la barre des tâches apparait

 

 

Alors ça c'est vache :D

[franck89]

C'est moins vache que de modifier toutes les variables systèmes. Quoi qu'on puisse cumuler les deux, mais là il faudra que le collègue ait deux fois plus d'humour ???...

[Patrick_35]

Ou le plus amusant est dans le panneau de config de la souris, d'inverser le sens des clics ainsi que la vitesse ;)

 

@+

[Laurent_CAMPEDEL]

Plus subtil que LTSCALE, mettre CELTSCALE à 10000...

 

Et aussi, rendre inactif le calque courant. C'est d'un énervant de voir disparaitre les entités que l'on dessine...

 

[Edité le 27/2/2006 par Laurent_CAMPEDEL]

[rebcao]

Vous êtes quand même une belle bande de C...... tous comme vous êtes ! moi aussi ! ;) Mais on sait que tout est bon dans le C.......

 

zavé pas honte ??? :mad:

 

NON ! NON ! mais mon dieu que c'est bon ! un peu d' humour que diable !!! :D

 

ça me rappelle une anecdote...

 

on avait un DIGIT BENSON 6101 (A0) avec une souris 16 boutons...

les touches étaient identifiées par des chiffres et des lettres...

en ce temps là on utilisait une commande FIN pour quitter le dessin et enregistrer..

On a donc dit au collègue ( le chieur de service ) regardes c'est génial quand tu as fini tu appuyes sur la touche F et ça fait FIN ! :D

On lui fait la démonstration ! Génial ! :D Mais après ce qu'on ne lui a pas dit c'est qu'à la place la macro est devenue QUITTER OUI (sans sauvegarde bien sûr)

 

Mais il le méritait celui-là ! c'en était un vrai ! ;)

 

Christian

 

 

 

[Edité le 27/2/2006 par rebcao]

[BIM G CO]

Effectivement Christian et je te remercie de la petite farce que tu m'as fait subir à l'époque!

 

Je me vengerais .... :P

 

pour le fun encore un (en VBA) pour mettre le jeu SOLITAIRE en éditeur de texte multiligne!

Merci Christian

 

 ' Set MTEXTED à une valeur TRES TRES pourrissante
Dim strData As String
sysVarName = "MTEXTED"
strData = "SOL"
sysVarData = strData ' String data
ThisDrawing.SetVariable sysVarName, sysVarData

 

[Edité le 25/5/2007 par Maximilien]

[rebcao]

Mais j'te l'dis DES GRANDS MALADES :P :casstet: :exclam: :o :cool: :mad:

[djn06]

:cool: y'a le scotch sous la souris qu'est pas mal aussi

[rebcao]

je l ' disais des TRES GRANDS MALADES !!!!! :(

 

elle est bonne aussi.... :D

 

Plus Dégueux ! coller la boule avec de la Super Glue ! :mad:

 

Christian ;)

 

[Edité le 26/5/2007 par rebcao]

[scorpinou]

J'avoue être un amateur face à votre génie et votre sagacité. Je m'incline humblement de vos grands esprits. Et je vous propose une idée pour perdre encore un peu plus la victime.

 

RESOL ACTIF 0.00000001

RESOL R 0,0 82

 

Il est possible de changer les valeurs (surtout si on change les unités en gradiants)

[LUCCIBEL]

Le Premier Avril 2011

(= 2455652 (fix (getvar "DATE")))

utilisation du convertisseur.

 

Une fonction lancée dans le AutoCAD.lsp de chaque machine.

 

(DEFUN premier_avril ()
 (IF (= 2455652 (FIX (GETVAR "date")))
   (PROGN (SETQ var_unites 39.36996
        unites        "in"
        prive_nom  "Joyeux Premier Avril"
      )
      (SETVAR "FILLMODE" 0)
      (SETVAR "TEXTEFILL" 0)
      (SETVAR "QTEXTMODE" 1)
      (SETVAR "MAXSORT" 1)
      (SETVAR "CMDDIA" 0)
      (SETVAR "FILEDIA" 0)
      (SETVAR "ATTREQ" 0)
      (SETVAR "LTSCALE" 0.0000001)
      (SETVAR "INSUNITS" 1)
      (SETVAR "FULLPLOTPATH" 0)
      (SETVAR "INSUNITSDEFSOURCE" 10)
      (SETVAR "INSUNITSDEFTARGET" 20)
      (SETVAR "HIGHLIGHT" 0)
      (SETVAR "PICKBOX" 0)
      (SETVAR "REGENMODE" 0)
      (SETVAR "CURSORSIZE" 1)
      (SETVAR "NOMUTT" 1)
      (SETVAR "ATTECRAN" 0)
      (SETVAR "ISOLINES" 0)
      (SETVAR "PICKFIRST" 0)
      (SETVAR "OSNAPOVERRIDE" 1)
      (SETVAR "CELTSCALE" 1e10)
      (EXIT)
   )
   (PRINC)
 )
)

 

[Edité le 4/10/2010 par LUCCIBEL]

[BIM G CO]

Donc je créé une "post"-fonction

(defun premier_avril () (princ))

pour éviter les emmerdes le premier avril prochain.

Parce que je paris que tu l'as mis dans un .FAS .... comme d'hab!

[Patrick_35]

Bonjour

 

Mettez les hauts parleurs à fond :D

 

Pour la voix en français

(defun autocad_qui_parle (texte / sapi)
 (setq sapi (vlax-create-object "Sapi.SpVoice"))
 (vlax-invoke sapi "Speak" texte 0)
 (vlax-release-object sapi)
)

(defun autocad_qui_parle_debut (rea cde)
 (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " commence"))
)

(defun autocad_qui_parle_inconnu (rea cde)
 (autocad_qui_parle (strcat "Commande inconnu ," (car cde)))
)

(defun autocad_qui_parle_cancel (rea cde)
 (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " est abandonnée"))
)

(defun autocad_qui_parle_failed (rea cde)
 (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " est interrompue"))
)

(defun autocad_qui_parle_fin (rea cde)
 (autocad_qui_parle (strcat "La commande ," (getcname (strcat "_" (car cde))) " est terminée"))
)

(if (not pourrir_la_vie)
 (setq pourrir_la_vie (vlr-command-reactor nil (list	(cons :vlr-commandWillStart (function autocad_qui_parle_debut))
					       	(cons :vlr-unknownCommand   (function autocad_qui_parle_inconnu))
					       	(cons :vlr-commandCancelled (function autocad_qui_parle_cancel))
					       	(cons :vlr-commandFailed    (function autocad_qui_parle_failed))
					       	(cons :vlr-commandEnded     (function autocad_qui_parle_fin))
					 )
 		       )
 )
)
(princ)

 

Ou en anglais (pour ceux qui n'ont pas installé la voix française)

(defun autocad_qui_parle (texte / sapi)
 (setq sapi (vlax-create-object "Sapi.SpVoice"))
 (vlax-invoke sapi "Speak" texte 0)
 (vlax-release-object sapi)
)

(defun autocad_qui_parle_debut (rea cde)
 (autocad_qui_parle (strcat "Command ," (car cde) " will start"))
)

(defun autocad_qui_parle_inconnu (rea cde)
 (autocad_qui_parle (strcat (car cde) ", unknow command"))
)

(defun autocad_qui_parle_cancel (rea cde)
 (autocad_qui_parle (strcat "Command ," (car cde) " cancelled"))
)

(defun autocad_qui_parle_failed (rea cde)
 (autocad_qui_parle (strcat "Command ," (car cde) " failed"))
)

(defun autocad_qui_parle_fin (rea cde)
 (autocad_qui_parle (strcat "Command ," (car cde) " ended"))
)

(if (not pourrir_la_vie)
 (setq pourrir_la_vie (vlr-command-reactor nil (list	(cons :vlr-commandWillStart (function autocad_qui_parle_debut))
					       	(cons :vlr-unknownCommand   (function autocad_qui_parle_inconnu))
					       	(cons :vlr-commandCancelled (function autocad_qui_parle_cancel))
					       	(cons :vlr-commandFailed    (function autocad_qui_parle_failed))
					       	(cons :vlr-commandEnded     (function autocad_qui_parle_fin))
					 )
 		       )
 )
)
(princ)

 

Et pour faire taire Autocad

(vlr-remove pourrir_la_vie)

 

@+

[LUCCIBEL]

Zut zut et zut

que cela soit en anglais ou en français j'ai toujours

; erreur: Une exception s'est produite

à la place des paroles!

 

Y-a-t-il un logiciel qui est désactivé par défaut et qu'il faille réactiver?

 

[edit] [/edit]

 

En effet c'est le "Microsoft Sam" qu'il faut remettre pour l'anglais.

Les voix françaises ont été désactivées (LH Pierre et LH Véronique) de mon poste.

 

exécuter

%Systemroot%/system32/narrator.exe

est valable aussi sous Windows.

 

Pour obtenir les voix françaises : zebulon.fr pour télécharger Microsoft reader français et TTS.

 

 

[Edité le 5/10/2010 par LUCCIBEL]