winfield

Vi, effectivement c'est un rideau de fumée. "fumée" goudronneuse et bueuse (n'oublions pas le café). Ca aurait pû être une photo quelconque et un nom quelconque du genre Charles-Edouard Du Ruisseau du Bois d'A Côté.

Salut , je me mêle de ce qui me regarde pas mais : Si c'est voulu (et je pense que c'est le cas), je trouve ça.....terrible :D

Allez, j'ose ou j'ose pas ? Nan ! C'est les fêtes, faut se calmer. ;) L'avantage d'être derrière un dinosaurus, c'est d'être caché :D Joyeuses fêtes à tous et à toutes....

Ramassé je ne sais plus quel site : Ces functions permettent de transformer un nombre (écrit en chiffre) en lettres Function NumText(Nombre As Currency, Optional Unité As String, _ Optional SousUnité As String, Optional no_chiffres As Integer, _ Optional Separateur As String) As String Dim PartieEntière As Currency, PartieDécimal As Currency Dim TxtEntier As String, TxtDécimal As String PartieEntière = Int(Nombre) TxtEntier = NumTextEntier(PartieEntière) If no_chiffres > 0 Then PartieDécimal = (Nombre - PartieEntière) * 10 ^ no_chiffres TxtDécimal = Format(PartieDécimal, String(no_chiffres, "0")) End If NumText = TxtEntier & Unité & Separateur & TxtDécimal & " " & SousUnité End Function Function NumTextEntier(ByVal Entier As Currency) As String Dim no_Classe As Integer, Classe As Integer If Entier = 0 Then NumTextEntier = "Zéro " Else While Entier > 0 Classe = Entier - Int(Entier / 1000) * 1000 NumTextEntier = TxtClasse(Classe, no_Classe) & NumTextEntier no_Classe = no_Classe + 1 Entier = Int(Entier / 1000) Wend End If End Function Function TxtClasse(Classe As Integer, no_Classe As Integer) As String Dim Centaine As Integer, Dizaine As Integer, Unité As Integer, Unités2Chiffres As Integer Dim TxtCentaines As String, TxtDizaines As String, TxtUnités As String Dim TClasses As Variant, Tdizaines As Variant, TUnités As Variant TClasses = Array("", "mille", "million", "milliard", "billion") Tdizaines = Array("", "", "vingt", "trente", "quarante", "cinquante", "soixante", "soixante", "quatre-vingt", "quatre-vingt") TUnités = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", _ "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf") If Classe = 0 Then Exit Function ' Pas de un pour mille If Classe = 1 And no_Classe = 1 Then TxtClasse = "mille " Exit Function End If Centaine = Classe \ 100 Unités2Chiffres = Classe Mod 100 Dizaine = Unités2Chiffres \ 10 Unité = Unités2Chiffres Mod 10 ' Les centaines ----- If Centaine = 1 Then TxtCentaines = "cent " ElseIf Centaine > 1 Then TxtCentaines = TUnités(Centaine) & " cent" & IIf(Unités2Chiffres > 0, " ", "s ") End If ' Les dizaines ------ TxtDizaines = Tdizaines(Dizaine) If Unité = 1 And Dizaine > 1 And Dizaine < 8 Then TxtDizaines = TxtDizaines & "-et" End If If Dizaine = 1 Or Dizaine = 7 Or Dizaine = 9 Then Unité = Unité + 10: Dizaine = 0 End If TxtDizaines = TxtDizaines & IIf(Unités2Chiffres = 80, "s", "") If Unités2Chiffres > 19 And Unité > 0 Then TxtDizaines = TxtDizaines & "-" ElseIf Dizaine > 0 Then TxtDizaines = TxtDizaines & " " End If ' Les unités -------- Espace si unité > 0 TxtUnités = TUnités(Unité) & IIf(Unité > 0, " ", "") ' La classe --------- un s sauf pour mille TxtClasse = TClasses(no_Classe) & IIf(no_Classe > 1 And Classe > 1, "s", "") & IIf(no_Classe > 0, " ", "") ' Résultat ---------- TxtClasse = TxtCentaines & TxtDizaines & TxtUnités & TxtClasse End Function

Idem, sauf que j'ai fais l'essaie sous Debian et avec IceWeaSel. Connexion légèrement plus rapide, mais on sent que ça rame ...

Rebonsoir Sous 2004, un attribut rendu non visible apparaissait dans le panneaux des propriétés et dans l'éditeur d'attributs me semble-t-il. Sous 2008, ça n'apparait plus. Bug ou évolution ?

Bonsoir La vitesse de CadXP est-elle soumise à la température ? A moins que ça ne soit mon Renard qui est des soucis ?

Bonsoir à tous, Avec les évènements, comment savoir si la modification a été faite via la palette des propriétés ?

Salut, ça marche pas tout à fait comme ça. Quand tu passes à la Form2, la selection créée avec la Form1 existe bien, mais il faut signaler à celle dernière que tu veux pointer sur la même selection. 'Form1 : création de la selection avec tous ce qui va avec 'Form2: Set ObjSelection = ThisDrawing.SelectionSets(NomDeLaSelection) Ne pas confondre : Set ObjSelection = ThisDrawing.SelectionSets(NomDeLaSelection) avec Set ObjSelection = ThisDrawing.SelectionSets. [surligneur]Add [/surligneur](NomDeLaSelection) En espérant t'avoir aidé

Qui a dit ça ? Je ne peux qu"applaudir ça décoiffe ! Mais je préfère resté avec mes défauts. Etre parfait ? Je m'ennuyerais trop. Sans rancune Messieurs les capés

Avoir une ligne directrice, je le conçoit et le respecte, mais comme tu le dis : Alors arrêtons de jouer les saints ! Que le site refuse d'aider le piratage, que dire de plus que c'est normal et tout à son honneur. Les gens qui débarquent ici ou ailleur en clamant haut et fort qu'ils cherche tel ou tel crack etc... franchement je pense qu'ils devraient être un peu plus fin. Quand à ceux qui s'indignent de voir des gens utiliser des logiciels piratés, ils débarquent d'où ? Je connais des personnes qui n'ont jamais utilisé un logiciel piraté, mais bon, ici je ne pense pas que ça soit le cas...mais bon tout le monde est innocent jusqu'à preuve du contraire.

Et moi, je suis toujours ébloui par les gens irréprochables. C'est vrai, ces gens-là devraient avoir une médaille car : Même bébé, ils buvaient le biberon sans rechigner et mettaient déjà la main devant la bouche pour faire le rot ils mangeaient leur soupe quand môman disait que ça faisait grandir. Ne se sont jamais gratté le nez Se lavaient bien les mains après avoir été au cabinet (ou après autre chose oups, on s'égare !). N'ont jamais zieuté une fille/un garçon N'ont jamais menti à môman, ni à pôpa (hé ho, t'as maté ses paluches ?!!) Les années ont passé... Maintenant, ils travaillent, certains sont mariés, ont des enfants etc... et je peux vous assurer que ces gens-là, et bien, ils n'ont jamais regardé la voisine/le voisin car ce sont des choses qui ne se font pas (je me demande comment on fait pour avoir une compagne/compagnon sans reluquer ? Ha oui, il y a Internet). Assez déconné, c'est à vomir de se la jouer Ste Nitouche à 2 Octets

Je veux pas faire le malin, mais ton fichier de bloc a 4 blocs dont 3 sont identiques à part le nom. Si ce sont des résidus de test, ça amène des résidus dans les autres fichiers. Bloc1 est dans un fichier, tu insères le fichier en tant que bloc, forcément t'auras des blocs imbriqués, tu pensais avoir quoi ? Un nouveau pc dernier cri ? ou alors je n'ai rien compris :P

En vba, faut mettre ça dans un module ThisDrawing : 'le principe ne gère pas les fichiers dxf Private Sub AcadDocument_Activate() NomFichier = UCase(ThisDrawing.Name) NomFichier = Split(NomFichier, ".DWG") ThisDrawing.SetVariable "MODEMACRO", NomFichier(0) End Sub Bonne continuation

Oups désolé, ça m'apprendra à ne pas tout lire

ça fait pas gagner grand chose mais bon. For.............. For i = 1 To 7 Step 2 carte(fois).SetBulge i, Tan(22.5 * 3.14159 / 180) Next Next Bonne continuation

Le but n'est pas purement et simplement d'intenter AutoCAD, mais bien de remplacer le vba (pour AutoCAD) par du vb.net pour AutoCAD. Si c'est juste pour créer un exécutable, le vb tout court sait le faire aussi bien que le vb.net. Mon souci 1er étant plus envers le futur des dll. Car si la technologie DotNet sert d'une certaine manière à supprimer les dll, je ne vois pas le but du vb.net en créant des dll ! Le C à lui seul, est bien plus puissant que le vb, quand aux autres variantes du C,, ça joue pas dans la même cour. Le hic, c'est que pour des autodidactes, c'est bien plus dur (mais pas impossible) et le code est plus long. Se taper quelques lignes de code pour fait un trait et se taper un roman pour la même chose, je choisis la 1ère solution (on est feignant ou on ne l'est pas). Quand aux arx, je me demande si on peut les charger avec une LT ? Qqn pourrait le signaler svp ? Bonne soirée

Bonsoir, A la base, avec la technologie ".Net", il semblerait qu'on ait voulu abandonner le principe des dll (lu sur je ne sais plus quel site) Alors, pourquoi le vb.net pour AutoCAD produit-il (rien que ?) des fichiers dll ? De plus demandant au minimum Acad2007 me semble-t-il. Le vb.net semble moins performant que le vc.net. Mais est-ce vraiment le cas pour AutoCAD ? Je sais, je déboule comme un éléphant dans un magasin de porcelaine, mais bon le vb.net est tellement changeant par rapport au vb que je me pose la question suivante : "quitte à apprendre un nouveau langage, ne devrait-on pas étudier celui qui est le plus performant ?"

Salut s'cusez moi, mais je ne vois pas le rêve. C'est vrai que 100 cm c'est 100 fois plus que 1 m. ;)

Bonsoir, [surligneur] pour automatiser un peu plus l'incrémentation, tu trouveras ci-dessous un lisp qui incrémente de +1 par rapport à la valeur maxi trouvé dans les blocs déjà présent dans ton plan. [/surligneur] SF1xxx c'est comme les Pxxx ou les xxx tout court ou autre chxxx, Lxx etc... Tout dépend de la méthode de travaille des BE. Ce que je veux dire c'est qu'un projet peut être découpé en zone genre plan de fondation zone 1, plan de fondation zone 2...Zone 1 = n° de 100 à 199 et zone 2 n°200 à 299 etc...Et je ne parles pas du reste des hics du repérage. Mais bon...

Salut, je ne sais pas comment ça se passe avec ton modèle (désolé, j'ai la flegme de charger). Je faisais ça avec un bloc et il ne restait plus qu'à paramétrer les flèches dans les Styles de cotations. Nos méthodes sont peut-être similaire voir identique, mais donner un truc tout "cuit" peut paraitre bien sur le moment, mais à long terme ...c'est mieux avec la notice. ;)

ok d'ac ...........mais ça disait koi ? ;) (Faudrait un smaï-laid qui éclate de rire)

Salut ^C^CVBAINSTR;P_Nomenclature; Bonne journée

Je suis vraiment désolé, mais sur mon poste, ta poly est une poly normale. D'après les messages à l'ouverture, ces poly ont été créé par Autodesck Civil 3D.

Là, Je ne sais pas si c'est possible ou pas. mail moi un fichier avec une de ces poly, je jeterai un coup d'oeil