winfield

Bonjour, Je vais peut-être dire une bêtise mais tu déclares "dim appWD as Word.application " Sur Word ça roule, enfin je suppose. Mais pour Excel faut peut-être mettre "...XLS.application" ou un truc comme ça, non ?

:o Bé y a du boulot ............... Bonjour et merci Didier. Je vais essayé d'analyser tout ça, mais ma première question est : Pourquoi les "END IF" ne sont pas au même nombre que les "IF" ? ???? J'avais cru comprendre qu'il fallait que ça le soit :casstet: Oups ! ;) [Edité le 21/8/2005 par winfield]

Hé flûte !!!! Si je suis dans un scu, ça prend quand même par rapport au scg :mad: Y a--t-il un équivalent à GetAngle mais qui prend par rapport au scu ?

Bonjour, Je m'essaye au vba mais, j'aurai besoin d'une bonne âme charitable qui me dise si j'écrit pas trop de bêtise. :( Voilà mon 1er TP : Sub Pente() 'Samedi 20/08/2005 Dim retAngle As Double Dim objTexte As AcadText Dim PtTxt As Variant Dim strTexte As String Dim PtInsertTxt(0 To 2) As Double 'Dim dimObj As AcadDimAligned On Error Resume Next With ThisDrawing.Utility retAngle = ThisDrawing.Utility.GetAngle(, "Sélectionné le premier point: ") repAngle = Format(Tan(retAngle) * 100, "0.00") If repAngle < 0 Then repAngle = repAngle * -1 End If MsgBox repAngle PtTxt = .GetPoint(, "indiqué le point d'insertion du texte") PtX = PtTxt(0): PtY = PtTxt(1) 'MsgBox PtX & "," & PtY PtInsertTxt(0) = PtX: PtInsertTxt(1) = PtY strTexte = "Pente " & repAngle & " %" Set objTexteobject = ThisDrawing.ModelSpace.AddText(strTexte, PtInsertTxt, 5) objTexteobject.Rotation = retAngle End With End Sub ....soyez pas trop dur hein ?!! :P

La cigogne est en route :P

Salut Didier, TU ES RECALE !!! (Je plaisante ;) ) En fait dans l'inputbox je tape par ex 1 pour avoir le rouge etc, enfin... je pensais faire comme pour les calques ou les entitées ......c'est peut-être bien moi qui suis hors-jeu (carton jaune ? :( )

heuuuu .....Merci d'avoir posée la question :o Je dirais qu'elle est ....numérique ?

Salut, l'Inputbox n'attend pas de string, si on en met ça génère une erreur .....pour l'instant :P Mais le problème vient je crois du fait que je passe par QBColor. Faudrait que j'arrive à passer par RVBvalue ou un truc comme ça, mais j'ai pas encore compris la syntaxe.

Dire qu'il n'a pas de limite, ça je ne sais pas vraiment ...dans le concret. Mais l'enregistrement du journal se fait à chaque enregistrement du dessin, et comme je pense que tu sauvegardes ton dessin régulièrement, on peut dire qu'il n'y a pas de limite :)

Police Myriad mais......laquelle ? J'en ai 22 (voilà les flics) sortes :P

Salut, Et en tenant un fichier journal ?

Salut, Un collègue m'avait fait un truc du genre en vba, la liste des calques étant dans un classeur excel. Si ça te dit, je peux te l'envoyer.

Bonsoir, Tu les importes de qu'elle manière ?

Re-bonjour Je vais faire allusion à ce sujet : http://www.cadxp.com/sujetXForum-6627.htm Je tente de trouver une solution en vba (pour le fun) . Le départ n'a pas été très difficile, vu que ce n'est qu'une suite de bouts de codes que j'ai pompé dans l'aide de vba et que j'ai rassemblé en un seul. Ma 1ère solution à été de coller dans un bouton comme ceci : [surligneur] vbastmt;ThisDrawing.Application.preferences.DISPLAY.GraphicsWinModelBackgrndColor = vbWhite; [/surligneur] La seconde, plus compliqué, donc forcément je bloque :( , cad. laisser le choix à l'utilisateur : [surligneur]Sub test() Question = InputBox("Quelle couleur ?") ThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor = QBColor(Question) End Sub [/surligneur] Malheureusement les n° de couleurs ne sont pas.....normales. :(

Bonjour, Je voudrais savoir si les personnes programmant en vba sont aussi peu nombreuses qu'on peut le croire en voyant le forum vb-vba.

J'ai dû faire une gaffe ;)

Allo Houston ? Je crois qu'il y a un problème... Effectivement, sans être inscrit, j'ai réussi à me connecter avec mon pseudo CadXP, MAIS il ne faut pas que sa session soit ouverte sur CADXP :casstet: ...à moins que d'avoir fait ENCORE une gaffe :mad:

Hello, J'ai vu et surtout j'ai eu la chance de pouvoir discuter sur ce chat. Je ne connais pas l'ancien systeme, mais là !!!! J'ai trouvé que c'était génial :o ....ceci dit, parait que tout dépend de nous :P (gloups)

C'est bon Patrick, tu peux être rassuré, tu es bien un homme (un vrai un dur un tatoué...) La preuve effectuée par la recherche ! :cool: http://www.generation-nt.com/actualites/8561/Le-sexe-des-pages-Web

ha bein alors hein ! :exclam: Je sors mon jocker :D ....mouais mais bon....de toute façons maintenant c'est l'Union Européene :cool:

A mon avis c''est un poulet cocardier donc, il a filé chez Quick :P Je dis ça mais je ne suis pas sûr que Quick soit français...

En me connectant je suis tombé sur ça : Du coup je n'ai pas pus résister à ceci : ;) La scene:* un poulet au bord d'une route. Il la traverse. La question: * Pourquoi le poulet a-t-il traverse la route ? :casstet: RENE DESCARTES : Pour aller de l'autre cote. PLATON : Pour son bien. De l'autre cote est le Vrai. ARISTOTE : C'est la nature du poulet de traverser les routes. KARL MARX : C'etait historiquement inevitable. CAPITAINE JAMES T. KIRK : Pour aller la ou aucun autre poulet n'etait alle auparavant. HIPPOCRATE : En raison d'un exces de secretion de son pancreas. MARTIN LUTHER KING JR. : J'ai la vision d'un monde ou tous les poulets seraient libres de traverser la route sans avoir a justifier leur acte. MOISE : Et Dieu descendit du paradis et Il dit au poulet : " Tu dois traverser La route " . Et le poulet traversa la route et Dieu vit que cela etait bon. RICHARD M. NIXON : Le poulet n'a pas traverse la route, je repete, le poulet n'a JAMAIS traverse la route. NICOLAS MACHIAVEL : L'evenement important c'est que le poulet ait traverse la route. Qui se fiche de savoir pourquoi? La fin en soi de traverser la route justifie tout motif quel qu'il soit. SIGMUND FREUD : Le fait que vous vous preoccupiez du fait que le poulet ait traverse la route revele votre fort sentiment d'insecurite sexuelle latente. BILL GATES : Nous venons justement de mettre au point le nouveau Poulet Office 2003 ", qui ne se contentera pas seulement de traverser les routes, mais couvera aussi des oeufs, classera vos dossiers importants, etc... BOUDDHA : Poser cette question renie votre propre nature de poulet. GALILEE : Et pourtant, il traverse. CANTONA : Le poulet, il est libre le poulet. Les routes, quand il veut, il les traverse. CHARLES DE GAULLE : Le poulet a peut-etre traverse la route, mais il n'a pas encore traverse l'autoroute ! JACQUES CHIRAC : Parce que je n'ai pas encore dissous la route. L'EGLISE DE SCIENTOLOGIE : La raison est en vous, mais vous ne le savez pas encore. Moyennant la modique somme de 10 000F par seance, plus la location d'un detecteur de mensonges, une analyse psychologique nous permettra de la decouvrir. BILL CLINTON : Je jure sur la constitution qu'il ne s'est rien passe entre ce poulet et moi. EINSTEIN : Le fait que ce soit le poulet qui traverse la route ou que ce soit la route qui se meuve sous le> poulet depend uniquement de votre referentiel. ANDERSEN CONSULTING : La deregulation du cote de la route ou se trouvait le poulet menacait sa position dominante sur le marche. Le poulet etait donc confronte au challenge significatif de creer et developper les competences requises pour ce nouveau marche competitif. Andersen Consulting, en partenariat avec le client, a aide le poulet a repenser sa strategie de distribution physique et ses processus d'implantation. En utilisant le nouveau Poultry Integration Model (PIM), Andersen a aide le poulet a mettre a profit ses talents, methodologies, connaissances, fonds et experiences de maniere a aligner le personnel, les processus et la technologie du poulet avec sa strategie globale au sein d'un Program Management Framework. Andersen Consulting a reuni pendant un tour de conference de deux jours un large panel constitue d'analyse des routes et des meilleurs poulets avec des consultants Andersen possedant de grandes connaissances dans l'industrie du transport afin de profiter au maximum de leur capital de connaissances personnelles, implicitement et explicitement, et de leur permettre d'entrer en synergie les uns avec les autres de maniere a parvenir au but implicite de sortir, d'architecturer et d'implanter avec succes un framework d'entreprise au travers du continuum des processus de trans-mediane de la gent gallinace. La reunion a eu lieu dans un endroit ressemblant a un parc, ce qui a permis de creer un environnement plein de sens, en ce qu'il vehiculait un message strategique pour l'industrie, construit sur une vision coherente et claire du marche, et qu'il etait en adequation avec les valeurs fondamentales, la mission et la vision du poulet. Cela nous a guide tout au long de la solution d'integration de l'entreprise. Andersen Consulting a participe a la reussite de la migration du poulet. Merci pour votre attention. ZEN : Le poulet peut vainement traverser la route, seul le Maitre connait le bruit de son ombre derriere le mur. PREMIER MINISTRE : Le poulet n'a pas encore traverse la route, mais le gouvernement y travaille. JEAN ALESI : Je ne comprends pas, theoriquement, le poulet il avait le temps de passer. NELSON MONTFORT : J'ai a cote de moi l'extraordinaire poulet qui a reussi le formidable exploit de traverser cette superbe route : " Why did you cross the road?"; " Cot cot ! "; " Eh bien il dit qu'il est extremement fier d'avoir reussi ce challenge, ce defi, cet exploit. C'etait une traversee tres dure, mais il s'est accroche, et... " RICHARD VIRENQUE : C'etait pas un lapin ? ORANGINA ROUGE : PASKEEEEEEUUUUUHHHH JEAN-CLAUDE VAN DAM : Le poulet la road il la traverse parce qu'il sait qu'il la traverse, tu vois la route c'est sa vie et sa mort, la route c'est Dieu c'est tout le potentiel de sa vie, et moi Jean Claude Super Star quand je me couche dans Timecop quand le truck arrive je pense a la poule et a Dieu et je fusionne avec tout le potentiel de la life de la road ! Et ca c'est beau !

Bonjour, J'ai le même "bug" que vous. J'ai même pus tester sous map, mais V.2004, ce dernier ayant le problème aussi. Après test : Si on ne spécifie que le X, le facteur d'échelle est en XY Si on spécifie qu'en Y, le facteur d'échelle est nul :casstet:

Le macro fonctionne qu'à moitié :( Je plaisante, si ça marche nickel, mais pas comme je pensais. L'erreur est de ma faute, je me suis trompé dans la macro de départ et peut-être aussi dans mes explications. Mais grâce à kitkat j'ai réussi ce que je voulais faire, et ça donne ceci : scu;ob;\_plan;;scu;;;_v Là c'était juste pour m'échauffer :cool: , demain c'est toute la base de registre que je vais réécrire :o (c'est beau les rêves) Merci encore

Wowowowouuuu !! Pas si vite SVP !! Mon cerveau n'a pas le temps d'enregistrer et de comprendre tous ces gros mots d'un coup :P ...pour le moment , je vais juste faire un copier coller de ces lignes et je tenterai de décrypter tout ça un peu plus tard.