winfield

La commission Européenne a finalement tranché : après la monnaie unique, 1’ union Européenne va se doter d’une langue unique, à savoir … le français. • Trois langues étaient en compétition : le français (parlé dans le plus grand nombre de pays de l'Union), l'allemand (parlé par le plus grand nombre d'habitants de 1 'Union) et l'anglais (langue internationale par excellence). • L'anglais a vite été éliminé, pour deux raisons : l’ anglais aurait été le cheval de Troie économique des Etats-Unis et les Britanniques ont vu leur influence limitée au profit du couple franco-allemand à cause de leur réticence légendaire à s'impliquer dans la construction européenne. • Le choix a fait l'objet d'un compromis, les Allemands ayant obtenu que 1 'orthographe du français, particulièrement délicate à maîtriser soit réformée, dans le cadre d'un plan de cinq ans, afin d'aboutir à l’eurofrançais. 1. La première année, les sons actuellement distribués entre 's', 'z', 'c', ‘k’ et 'q' seront répartis entre 'z' et ‘k’, ze ki permettra de supprimer beaukoup de la konfuzion aktuelle. 2. La deuzième année, on remplacera le 'ph' par 'f', ze ki aura pour effet de rakourzir un mot komme 'fotograf' de kelke vingt pour zent. 3.La troizième année, des modifikazions plus draztikes seront pozzibles, notamment ne plus redoubler les lettres ki l'étaient ; touz ont auzi admis le prinzip de la zuprezion des 'e’ muets, zourz éternel de konfuzion, en efet, tou kom d'autr letr muet. 4.La katrièm ané, les gens zeront devenu rézeptifs à dé changements majeurs, tels ke remplazer 'g', zoi par 'ch', - avek le 'j' - zoi par ‘k', zelon les ka, ze ki zimplifira davantach 1 'ékritur de touz. 5.Duran la zinkièm ané, le 'b' zera remplazé par le 'p' et le 'v' zera lui auzi apandoné - au profi du ‘f ‘, efidamen - on kagnera ainzi pluzieur touch zur no klafié. Un foi ze plan de zink an achefé, 1 'ortograf zera defenu lochik, et lé chen pouron ze komprendr et komuniké. LE REF DE L'UNITE KULTUREL DE L’EUROP SERA DEFENU REALITE !

Comme les fêtes approchent, je vous donne une supere méga géante recette ;) : La dinde au whisky Pour 6 personnes • 1 dinde d’environ 5 kg • 1 bouteille de whisky • sel et poivre • 2 cs d’huile d’olive • 200 g de bardes de lard 1)Frotter énergiquement le volatile à l’huile d’olive, saler, poivrer, barder de lard et ficeler serré. Préchauffer le four pendant dix minutes (thermostat 7). Mettre ce temps à profit pour se verser un verre de whisky. Enfourner la dinde confortablement installée sur son plat decuisse à larges bords. Se verser ensuite deux verres de whisky et les boire sans hâte. Après vingt binutes, régler le thermostat à 8 pour la saisir. Se bercer trois berres de whisky. 2) Après une demi-beurre, fourrer l’ouvrir et surveiller la buisson de la pinde. Brendre une vouteille de biscuit et s’enfiler une bonne rasade derrière la bravate, non, la cravate. Après une demi-heure de blus, tituber jusqu’au bour, ouvrir la p… de borte du bour et reburner, non, revourner, non, recourner, non, enfin mettre la guinde dans l’autre sens. Se prûler les mains avec la p… de borte du bour en la refermant, b… de m… 3) Essayer de s’asseoir sur une p… de chaise et se reverdir cinq ou six whisky de verres ou le gontraire, je sais blus. Laisser buire, non, luire, non cuire, non, ah ben si, cuire la bringue bandant quatre heures. 4) Et hop, cinq berres de blus. Ça fait du bien par où qu’ça passe. 5) R’tirer le four de la dinde en se reberçant une bonne goulée de whisky. Essayer à nouveau de sortir le bour de la saloperie de pinde parce que ça a raté la bremière fois. Rabasser la dinde qui est tombée par terre. L’ettuyer avec une saleté de chiffon et la foutre sur un blat ou sur un clat ou sur une assiette. Enfin, on s’en fout… 6) Se péter la gueule à cause du gras sur le barrelage de la buisine et essayer de se relever. Décider que l’on est aussi bien par terre et binir la mouteille de riskhy. 7) Ramper jusqu’au lit, dorbir toute la nuit. 8) Le lendemain matin, manger la dinde froide avec une bonne mayonnaise et le reste de la journée, nettoyer le b… que tu as mis dans la cuisine la veille heu..........n'abuser pas trop..........(de la dinde) quand même :cool:

Bonsoir, Une personne de mon entourage souhaiterait savoir où trouver ce recueil d'inepties, aurais-tu une adresse ou un genre de boutique ? Merci

Plaisanterie à part, Aucun rapport avec les variables ou autres trucs tordus, mais parfois si on hachure ( avec par ex DOTS) on voit pas les hachures même en changeant l'échelle. Solution : vous allez dans C:\Program Files\AutoCAD 2006\Sample\Database Connectivity\CAO et vérifier que vous voyez le fichier HatchMe.DLL Si vous ne le voyez, bé y a du souci à se faire :), sinon c'est pas là quand même, d'ailleur, c'est nul part, faut juste déplacer l'origine du SCU pour le rapprocher de l'entité à hachurer. heu ... vous avez pas compris ce que je voulais dire ? :) c'est normal, vous avez compris ? C'est normal aussi ;p

:( désolé :( c'ést pas une citation extraite de l'original ... je pensais dans le sens "déformé". Enfin bon je m'arrête là avant de faire une claque, heu pardon : gaffe......... je m'emmêle les pinceaux..........vais finir par changer de marque de clop :P

Bonsoir, Tu veux mettre des claques mais en plus tu es un écorcheur de pseudo !!! :( avec tout ça, ils t'ont laissé en liberté ?:casstet: .......vais arranger ça moi, m'en vais passer un coup de fil aux hommes en blanc ;)

Bonsoir Doc, Tiré de l'aide : Sub Example_ConfigName() ' This example will add a new plot configuration to the current drawing. ' It will then list the plotter configuration file name for each Layout ' in the current drawing, change the configuration for Layout1 to "DWF Classic.pc3" ' and re-display the configuration information for the drawing. ' ' * Note: File names may differ on your system, so be prepared to change ' the configuration file name used in the example to a file that exists ' on your system. Dim Layouts As AcadLayouts, Layout As ACADLayout Dim msg As String Dim ACADPref As AcadPreferencesFiles Dim originalValue As Variant ' Get the files preferences object Set ACADPref = ThisDrawing.Application.preferences.Files ' Read and display the original value originalValue = ACADPref.PrinterConfigPath ' Get layouts collection from document object Set Layouts = ThisDrawing.Layouts ' Display current plotter configuration information GoSub DISPLAY_CONFIG ' Change plotter configuration file for "Layout1" [surligneur] Layouts("Layout1").ConfigName = "DWF Classic.pc3" [/surligneur] ' Display new plotter configuration information GoSub DISPLAY_CONFIG Exit Sub DISPLAY_CONFIG: msg = vbCrLf & vbCrLf ' Start with a space ' Format and display current directory for configuration files msg = msg & vbTab & "Directories that will be scanned for the plotter configuration files are: " _ & vbCrLf & vbTab & vbTab & originalValue & vbCrLf & vbCrLf ' Get the plotter configuration name of every layout in this drawing For Each Layout In Layouts ' Format for display msg = msg & vbTab & Layout.name & " is using configuration: " & Layout.ConfigName & vbCrLf Next ' Display paper units information MsgBox "The plotter configuration information used in the current drawing is listed below." & msg Return End Sub Bonne soirée

Bonsoir, Kouwestion d'un gars un peu long à comprendre :P : Le Top Quiz sera accessible comment ?

Bonsoir, Effectivement, pour bloquer le zoom lorqu'on passe dans une fenêtre, il faut que UCSFOLLOW soit à 0 mais UCSVP également.

Bonsoir, Bonne question et merci de l'avoir posé :cool: Là tu vas un "pont trop loin" et trop vite pour moi. Tu sais ça ne fait que 2 ou 3 mois que je me suis mis au vba, alors j'espère que tu comprends que certaines choses ("beaucoups", pour être honnête) m'échappe encore. Mais je vais regarder ça, on ne sait jamais.....

Re, La function n'est pas du tout mais pas du tout de moi, je l'ai trouvé je ne sais plus où au hasard de mes recherches sur le web. Du coup peut-être que tu peux le mettre sur AcadTuning en citant un Bel Inconnu ?! :)

Re, Je vais encore jouer le rabat-joie :casstet: (C'est juste pour ma culture personnel) Je n'ai absolument rien contre les formations, mais pour vous formateurs, ne pensez-vous pas qu'à "cause" de votre statut et bien sûr de votre métier, vous enseigniez presque que par rapport aux messages que vous voulez faire passer (un exo qui emmène à un autre exo et ainsi de suite, jusqu'à oublier peut-être certaines choses importantes) et/ou par rapport à vos goûts ? Du fait que le côté "éducatif" prime sur le côté pro ? Non ?

Bonsoir, "Quand pourrais-je éteindre mon AutoCAD ? Tu pourras l'éteindre lorsque tu auras réussi à désactiver cette chose qu'on nomme Groupe. Pour cela n'hésite pas à faire : Ctrl+Maj+A ou Ctrl+H :P ;)

Rebonsoir, C'est loin d'être le top mais bon, c'est un début ;) Et encore merci Pako, j'aurais pas pensé qu'une selection puisse s'étendre dans les 2 espaces de dessins. Public Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type '32-bit API declarations Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Declare Function SHBrowseForFolder Lib "shell32.dll" _ Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long Function GetDirectory(Optional msg) As String Dim bInfo As BROWSEINFO Dim path As String Dim r As Long, x As Long, pos As Integer Dim Dossier As String bInfo.pidlRoot = 0& If IsMissing(msg) Then bInfo.lpszTitle = "Indiquez où se trouve les images." Else bInfo.lpszTitle = msg End If bInfo.ulFlags = &H1 x = SHBrowseForFolder(bInfo) path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) GetDirectory = Left(path, pos - 1) Dossier = GetDirectory '& "\" Else End If End Function Public Sub SelectImage() 'Ne fonctionne pas si l'image est dans un bloc 'Prochaine étape, régle le prob ci-dessus Dim StrChemin As String Dim CheminRaster As String Dim Raster As AcadRasterImage Dim IntCodes(0) As Integer Dim VarValeurs(0) As Variant Dim ObjSelection As AcadSelectionSet Dim StrNomSelection As String StrNomSelection = "MaSelection" On Error Resume Next Set ObjSelection = ThisDrawing.SelectionSets.Add(StrNomSelection) If Err <> 0 Then Set ObjSelection = ThisDrawing.SelectionSets(StrNomSelection) Err.cler ObjSelection.Clear End If IntCodes(0) = 0: VarValeurs(0) = "IMAGE" ObjSelection.Select acSelectionSetAll, , , IntCodes, VarValeurs If ObjSelection Is Nothing Then MsgBox vbCr & "Aucun objet sélectionné." Exit Sub Else StrChemin = GetDirectory aTrouver = "\" For Each Raster In ObjSelection CheminRaster = "" MyPos = "" NomFichier = "" CheminRaster = StrReverse(Raster.ImageFile) MyPos = InStr(1, CheminRaster, aTrouver, 1) NomFichier = Right(Raster.ImageFile, MyPos - 1) Raster.ImageFile = StrChemin & "\" & NomFichier Next End If ObjSelection.Delete ThisDrawing.Regen True End Sub Désolé mais j'ai pas réussi à attraper le nom du fichier avec son extension, c'est pour ça que je fais un reverse :) [Edité le 6/12/2005 par winfield]

Bonsoir et merci, vais voir tout ça à tête reposé :D

Bonsoir, J'ai besoin d'accéder à des images pouvant être autant dans l'espace model que les espaces papiers (pour redéfinir les chemins). Y aurait-il une syntaxe qui réunirait : "Thisdrawing.ModelSpace" ET "Thisdrawing.PaperSpace" ? Merci d'avance

Bonsoir, Tout à fait d'ac avec toi. D'un autre côté, je ne veux pas lancer de polémique ou quoi que ce soit mais... Combien de fois ai-je vu des gens qui faisaient leur bonne action annuelle et dès le lendemain, reprennent leurs ptit train-train quotidien ? Perso, je trouve que le Téléthon, c'est comme ces fameuses journées sans voiture, sans tabac ou autre trucs bien à la mode, du moment que ça fait "bien". Bien sûr, je suis conscient qu'il faut un début à tout mais est-ce si peu important pour qu'on ne consacre qu'une seule et malheureuse petite journée par an à tous ces fléaux ?

Bonsoir, Quand je travail avec des XRef, c'est : "on ne travaille pas comme ça !!!" Quand j'insère des attributs, c'est : "on ne travaille pas comme ça !!!" ( et explose mes blocs et utilise les attributs comme des textes) :P Quand j'ai commencé à travaillé dans l'EP c'était : "on ne travaille pas comme ça !!!" Alors j'imagine même pas si je cote en EP (j'entend déjà le : "on ne ....") Pourtant, de moi même, c'est ce que je ferais, mais bon.......(soupir) DAns un village, il y avait un truc impossible à faire, et tous le monde le savait, un jour, un étranger est arrivé, il ne savait pas que c'était impossible, alors il l'a fait. (Je sais plus où j'ai entendu ça, mais ça me plait beaucoup). Bonne soirée

Bonsoir, Oui, effectivement. Mais je pensais en vba :(

Bonjour, Peut-on savoir si un bloc est issue d'une opération de mirroir ?

Adfer est apparemment orienté pour les plans de ferraillage purs. Je pensais à un logiciel qui ferait un truc du genre, on modifie le rdc, et que sur le plan du S-1, les impacts soient mis automatiquement en concordance etc. ...peut-être Robot le fait-il ? Je ne le connais que de nom.

Bonjour , Y a t il "mieux" qu'autocad comme logiciel de dessin pour un BE en BA ? Merci pour les infos

:exclam: Si tu fini bourré dors ds la toto, mais à l'arrière sinon ...........amende me semble-t-il :P

Bonjour tous, En passant, faudrait trouver un smiley qui s'arrache les cheveux :cool: Je souhaite récupérer les XY des ExtLinePoints. Pour les cotes alignées j'y suis arrivé mais pour les Rotated............galère !, ça sort des sentiers battus apparemment. Si qqn sait comment faire, je suis tout ouïe. ;) Merci d'avance

La théorie est une chose, et comme d'hab je crois que la pratique va être longue, longue mais lo... :(