didier

hello, c'est beaucoup de paroles tout ça, il n'est pas vraiment nécessaire de savoir où est l'interlocuteur, je me suis renseigné tout seul via message privé, des personnes qui me correspondent au mieux. et j'ai toujours eu une réponse. je préfèrerai que les membres qui ne viennent qu'une fois et qui ne reviennent jamais, soient virés du décompte de membres. Je ne pense pas que celà plaira à Patrick, mais ce serait plus "honnête". amicalement

hello, les grands esprits se rencontrent ;) :cool: j'ai fait comme ce que dit pako conseillé par Serge, mais là où les limites du sublime sont repousées, c'est que je lance mon .bat, une fois par semaine par tâche planifiée. et mon disque est propre en permanence. voilà une idée à suivre. quel mégalo ce didier !!!! amicalement

hello ben alors c'est de moi qu'on cause :( si je n'ai pas renseigné ces champs, c'est que j'habite dans une caravane, et mes occupations principales sont de m'en occuper. blague à part, j'ai même mis mon mail, rien n'est secret chez moi, amicalement

hello Maximilien, la vraie question ce serait plutôt : quelle est l'utilité de créer des fichiers LOG ? mon avis est : aucune utilité ciao

coucou, une purge à faire de temps en temps, les fichiers sont petits, en fait ce sont des raccourcis, mais suiivant la taille des clusters, ils prennent beaucoup plus de place qu'il n'y paraît. il s'agit des raccourcis qui sont dans : Documents and settings\NomUtilisateur\Application Data\AutoDesk Map 2004\R16\Fra\Recent et là vous aves plein de répertoires qui contiennent des kiloTonnes de raccourcis que vous pouvez supprimer sans risques. il n'est pas rare de voir un fichier de 100 Octets prendre 4096 Octets sur le disque (cluster) amicalement

hello, ben la vérité vient de l'Est, ;) didier, d'origine bretonne mais en région parisienne, géomètre, soignez vos Messages c'est un signe de Respect envers celui qui va prendre de son temps pour essayer de VOUS aider amicalement

bonsoir, ben ça fait plaisir de ne pas être seul dans l'embarras ;) vivement que Maximilien nous explicite, car je ne vois pas l'utilité de Traduire les Options. le but du Lisp étant justement d'Automatiser toutes ces saisies... attendons les explications Maximiliennes. ciao

hello, réponse sur 2004 complète aussi, une fois que le bouton est parti, la modification va s'enregistrer dans le fichier mns, du menu auquel était attaché ce bouton. amicalement

hello, je te prie de m'excuser, mais je ne connaîs toujours pas le but à atteindre. pourquoi veux tu changer quelque chose à la langue ? c'est pour que la ligne de commande soit française partout ? Je réponds toujours en anglais dans mes lisp, c'est vrai que la traduction des options est empirique, mais c'est toujours la même chose. à plus

hello, j'ai pas bien compris ton souci, est ce que tu veux que la Ligne de Commande soit dans la langue choisie ? ou est ce autre chose ? sinon il te sera possible d'utiliser GETCNAME qui te renseignera sur le nom de la commande. il est Grandement conseillé d'utiliser l'anglais dans les Lisp. amicalement [Edité le 2/11/2004 par didier]

hello, c'est bizarre de parler de Bug de Couleurs car en changeant de couleur, ça persiste, en changeant de type de hachures, idem. Et en plus c'est un fichier fait en Version 2000. j'ai pas trouvé, désolé RebCao. ciao

hello, ben, j'ai pas d'explications ! j'ai tenté de le sauvegarder en DXF 12, mais ça fait dix minutes qu'il est bloqué sur le Saveas ... donc je coupe. mais au fait comment dénombre tu les objets dont tu parles ? à suivre

Bonsoir, Tu ne vas pas l'insérer décomposé, mais le décomposer à postériori comme ceci Dim Resultat As Variant Resultat = ObjetBlocRef.Explode Bon Week End à Toi, et tous les membres de CadXp amicalement

coucou, ben c'est ce que disais, le SendCommand ne fait pas très "propre". il est avantageusement remplacé dans ce cas. ça fait plaisir d'échanger. ciao

hello, la réponse de Patrick_35 est très bonne, mais pour une efficacité maximale, je pense qu'il faudrait en profiter pour, créer un bloc avec trois attributs, un : l'altitude NGF du Fil d'Eau, deux : L'altitude NGF du point de référence local trois : la différence entre ces deux points. Ainsi traité, le fichier deviendra "intelligent", car si on change le point de référence pour une raison ou une autre, il n'y a plus qu'à faire un petit lisp qui va re-coter Tous les Fil d'Eau. étonnant non ? et tonnant non ?

hello on remarque dans le message initial de l'ami LeCrabe, un Lapsus, il doit être très orienté côté commercial ;) en effet il parle de Prospective où il eût fallu lire Perspective amusant non ? ;) ame usant

hello, je pense que Patrick a pris cet exemple pour nous prouver que le logiciel interprète la Ponctuation, et quand tu veux écrire Virgule en toutes lettres, y a t il un code ? du genre : le pêcheur s'appele Yeumai, prénom Guy, son ami c'est Virgule qui vient le déranger pendant sa partie de pêche pour lui exposer une théorie, ça donne : Guy Yeumai, un poing à la ligne et c'est Virgule qui l'apostrophe et qui part en thèse dis ça devant ton micro, et tiens nous au courant. un . à la -------- et c'est , qui l' et qui ( Blague à part, je pense que c'est un logiciel très utile ami qu' allemand

hello l'AigleQuatre mais de rien, ça existait sur mon disque, j'ai fait çà, justement pour voir comment éviter le SendCommand qui, franchement, me déplaît en VBA. @micalement

Hello CDL, pas mal ton idée, mais quand tu vas renverser ta tasse de café, et que tu penses MER.., je pense que ton fichier sera pourri !!!! :mad:

Salut à Toi, ô EagleFour il y a quelques temps j'ai fait ça pour déplacer et appliquer une rotation rotation à un jeu de sélection, à toi de l'arranger pour coller à ton problème : Sub DeplacerEntites() 'Déplacement d'une sélection d'entités Autocad Dim ObjAcad As AcadApplication Dim P1(0 To 2) As Double Dim P2(0 To 2) As Double Dim AngRotGr As Variant Dim AngRotRa As Variant Dim JeuSel As AcadSelectionSet Dim N As Integer Set ObjAcad = GetObject(, "Autocad.Application") ObjAcad.Visible = True 'Coordonnées du premier point P1(0) = 0 'x P1(1) = 0 'y P1(2) = 0 'z 'Coordonnées du deuxième point P2(0) = 10 'x P2(1) = 10 'y P2(2) = 0 'z 'angle de rotation en grades AngRotGr = 100 'on passe en radians 'on ajoute pi pour sens horaire (empirique !) AngRotRa = AngRotGr / 200 * 3.14159 + 3.14159 'Création d'un jeu de sélection Set JeuSel = ObjAcad.ActiveDocument.SelectionSets.Add("TEST") 'Sélection d'entités à l'écran Call JeuSel.SelectOnScreen 'Déplacement des entités sélectionnées For N = 1 To JeuSel.Count Call JeuSel.Item(N - 1).Move(P1, P2) Next N 'Rotation des entités sélectionnées de angrot depuis P1 For N = 1 To JeuSel.Count Call JeuSel.Item(N - 1).Rotate(P1, AngRotRa) Next N 'suppression du jeu de selection ' il est important de le supprimer 'sinon ça plante à la prochaine utilisation JeuSel.Delete 'Mise à jour des entités ObjAcad.Update End Sub @micalement

Salut Nobless, Je ne retire rien du message que j'ai posté le 27/10/04 à 17h38, En effet tu as totale liberté pour créer des nouveaux raccourcis, mais, je ne vois pas la diffculté de taper CtrlC pour copier au lieu CtrlQ. La position des touches sur le clavier me paraît un argument bien faible, tu ne tapes jamais CtrlP. pour imprimer ? c'est un peu comme la définition du vocabulaire, il nous faut un minimum de language commun pour communiquer. @micalement.

bonjour l'Ami Pako je pense que cet exemple de code correspond à ce que tu veux faire, revois le mode de sélection, j'ai fait ça vite fait avant de me coucher, eh oui, c'est la nuit chez nous, Sub RecherchePako() On Error Resume Next Dim objEntite As AcadEntity Dim PointSel As Variant Dim TableauXY As Variant Dim I As Integer With ThisDrawing.Utility .GetEntity objEntite, PointSel, vbCr & "Sélection d'une Fenêtre: " End With TableauXY = objEntite.Coordinates For I = LBound(TableauXY) To UBound(TableauXY) x = TableauXY(I) y = TableauXY(I + 1) MsgBox "X = " & x & ", Y = " & y I = I + 1 Next End Sub je dois me coucher tôt, car demain à quatre heure du matin j'espère voir l'éclipse de lune. je vous le conseille bouh!!!! j'ai rien vu, levé trop tard, car collé sur l'oreiller, demain j'achète des draps en TEFAL, ciao :mad: [Edité le 28/10/2004 par didier]

hello tu peux me joindre à cette adresse : didier.aveline2@wanadoo.fr cette adresse n'est pas secrète, mais vu que c'est une pépinière à pourriels il est possible que votre message passe inaperçu. mettez bien un sujet ... @micalement

bonsoir, en réponse à CDL : Menu OUTILS puis OPTIONS Onglet PREFERENCES UTILISATEUR Cocher la case (en haut à gauche) Touches Raccourcis Windows Standard je pense que c'était ta question, note que je te parle de la 2004 mais je crois me souvenir que c'était déjà ainsi en 2000 @micalement

hello Merci à Toi de nous faire connaître cette réponse. tu prouves qu'on peut échanger des informations. c'est le but d'un tel site, et il remplit en grande partie son rôle. encore merci à Toi. très amicalement