didier

Bonjour, regarde les options de la variable DIMASSOC 0 > pas d'associativité 1 > associative mais il faut selectionner le point d'attache pour changer la valeur 2 > "super"associative, attachée à un objet graphique tout celà reste empirique, amicalement

Bonsoir Ludwig. je viens te demander des précisions, car je ne vois pas la finalité de ce code, que recherches tu en cherchant la bounding box ? surtout dans un bloc, si j'ai bien compris et enfin c'est quoi la différence entre une Droite et une Ligne dans ton vocabulaire ? amicalement

hello, bien fouillé dans les propriétes le Pako ! chapeau et merci ;)

bonjour à Toutes et à Tous Vous deviez bien vous imaginer, que sur un tel sujet, le Didier allait venir apporter son grain de sel. eh bien oui !!. Qu'il y ait encore des personnes qui travaillent à la main, c'est normal. ce n'est qu'une question de besoins, En effet, pour un archi, je conçoit aisément qu'une esquisse soit bien plus facilement réalisable à la main. En revanche l'informatique devient intéressante, lorsqu'il faut calculer sur les dessins. Pour avoir sévit dans les deux domaines, je peux dire : qu'il est Vrai que la patte du dessinateur a quasiment disparu, quoique je reconnaisse mes fichiers sur une sortie traceur, idem pour mes collègues. Mais c'est de la fierté un peu réac, à mes yeux. pour avoir fait du relevé architectural, et avoir dessiné, au tire-lignes s'il vous plaît, des dixaines de fenêtres identiques, j'ai le vertige aujourd'hu avec le copier-coller. et les hachures, vous en avez déjà fait à la main ? des hectares que je m'en tapais dans ma jeunesse. Je ne suis pas partisan du "c'était mieux avant", mon âge m'a permis d' être à la jonction de deux périodes, et j'en suis bien heureux, c'est tout. j'ai en souvenir les reflexions de ceux qui voyaient arriver l'info, c'etait la même chose que lorsque ma Grand-Mère a vu l'électricité arriver dans le village ! il faut vous dire que j'ai fait mes premières taches sur du calque dans les années 1975, on parlait même pas de " Rotring " à l'époque. l'intérêt d'un fichier informatique n'est pas le rendu, quoiqu'il est de mieux en mieux, le véritable intérêt est dans le fait de la précision "numérique", on oublie les échelles de restitution, les dimensions véritables sont dans le fichier, et non dans d'interminables calculs annexes. Comprenez bien que je n'en tire aucune gloire, mais savoir faire un boulot à la main vous aidera à apréhender la saie informatique. Que ce soit en Topographie, Architecture, grands travaux de Génie Civil ou projets routiers, pardon pour les autres, mais je parle de ce que je connaîs, l'apport de l'info est indéniable. Vouloir comparer le travail manuel et le travail informatique, revient à comparer une araire et un tracteur de quatre cent chevaux. mes amitiés aux dinosaures, moi je m'en moque, je suis un Diplodocus du Jurassique

bonjour, Private Sub CommandButton1_Click() Me.Hide pt01 = ThisDrawing.Utility.GetPoint(, "Enter a point: ") pt02 = ThisDrawing.Utility.GetPoint(pt01, "Enter a point: ") dist1 = Sqr(((pt02(0) - pt01(0)) * (pt02(0) - pt01(0))) + ((pt02(1) - pt01(1)) * (pt02(1) - pt01(1)))) TextBox1 = dist1 Me.Show End Sub comme ça, tu l'auras ta distance dans le textbox. si tu veux la formater fais ceci: TextBox1 = format(dist1,"0.000") tu auras le texte avec trois décimales seulement amicalement

Bonjour ToiBruno, Bienvenue sur cadXp, c'est ton premier message, alors on te pardonne :) :cool: car ce genre de question n'aura JAMAIS de réponse, tu t'en doutais, peut être en précisant que tu attendais aussi une réponse négative. Ton meuble est il précédemment dessiné en 3D ? si oui, ce n''est qu'une gestion des vues que tu souhaites, ça c'est jouable, en revanche si tu veux dessiner un meuble en n'en faisant qu'une vue de face, le programmeur qui va t'aider, ne s'est pas encore penché sur le souci par ailleurs, hélas pour toi, sa mère est morte ... à bientôt

coucou, c'est basé sur nos déclarations, ou tu as moyen de savoir notre environnement ? à plus ...

Bonjour à Toi, tu peux toujours lui envoyer ta Table des Couleurs avec ça, il aura la même définition que toi il l'appliquera sur son traceur et la sortie sera identique. Le répertoire dans lequel est stockée cette config est : C:\Documents and Settings\Utilisateur\Application Data\Autodesk\Autodesk Map 3D 2005\R16.1\fra\Plot Styles ne pas oublier de faire apparaitre les fichiers cachés. amicalement

coucou nous souhaitons tous que ta télévision ne soit pas touchée par le "virus". Et non la vie russe, même si les russes tiquent au rustique. à la semaine prochaine, hélas. ciao

Hello Esbe, Je n'ai pas de doute sur le fait que tu as deviné que je suis taquin ;) . donc en un mot, ton dialer maudit a t'il disparu ? Sauf si tu as disque de nain, je ne vois pourquoi Windows occupe 51 pour cent de ton dique, fais une sauvegarde du registre avant toute intervention, voire même un point de restauration, si tout fonctionne au bout d'une semaine, tu pourras les virer. si tu ne sais comment faire, reviens à la charge, amicalement

Hello Esbe, je te prie de m'excuser, mais je n'avais pas saisi l'importance du problème, si tu ne peux pas avoir les programmes de la télé, quelle déception, il faut qu'on s'y mette tous et qu'on te dépanne, ça urge. Blague à part, si SpyBot ne trouve rien, va voir sur ce Site. il te faudra du courage devant cette adversité ;) très amicalement

Bonsoir Esbe, un DLL, c'est un fichier qui contient des informations se rapportant à un programme. essaie de redémarrer en mode sans échec, fais une sauvegarde de ton registre, ensuite supprime toutes les clés faisant référence à cette DLL ça peut être long et fastidieux, sinon tu peux tester spybot qui élimine pas mal les "aware" un bon "pare feu" te protègera des ces attaques, ça vient surement de msn amicalement [Edité le 9/4/2005 par didier]

bonjour Dans la vie, il n'est rien de plus intolérable, ni en fait de moins toléré, que l'intolérance. il est hors de question d'entrer dans quelque polémique que ce soit. mais il n'empêche que lorsqu'on cherche à me faire entrer dans une case, je m'en extirpe illico, je suis un peu associal ou anar pour certains. sache que je ne souhaite la mort de personne, ni même de mes ennemis, s'il en existe, mais faire un mot, c'est toujours ça de pris. et ce n'est pas manquer de respect au symbole qu'est le pape. si on rigole de LePen, on a le droit, pourquoi ? Allez, pose moi des questions sur AutoCad, le Lisp et le VBA, tu tolèreras mes réponses ? rappel : Nous sommes les enfants d'Abraham, catho, juifs et musulmans... amicalement

eh oui, un nouveau pape est appelé à règner ou un nouveau pape est appelé araignée un nouveau pape est appelé à Reinier... repose en paix mon garçon. adieu

coucou pour information, la sortie de la fenêtre DOS se fait par la commande EXIT, ciaooooooooooooo

hello, profite z' en pour purger tes fichiers. ciao

Bonjour à Toi, c'est bien ce que tu as trouvé, mais ce qui suit est plus propre : ^C^Cstart;calc; amicalement

bonjour, une fois n'est pas coutume, je bloque grave sur une commande en Lisp, y a t'il une âme charitable qui de son clavier la réponse me trouvera ? voilà, en un mot comme en cent en un mot commençant, le problème qui m'interpelle, le pro blême qui m'inter pelle, est le suivant, hait le suivant : est il possible de programmer en français ? donc on va traduire les programmes anglais, (setq ent (entsel"\nselect a line\n")) (c'est te cul(hante selle"\nc'est l'ect une ligne"\)) ça a quand même une autre gueule non ? militons pour une pro gramme à sion française en VBA ça peut donner ça dim MaVariable as NIMPORTEQUOI dim DIM as DIMDAMDOM dim ChaîneDeCararactère as PetiteCulotte boudiou, faîtes nous part de vos idées, c'est quoi ce logiciel qui comprend même pas comme on cause tous les jours. adieu

bonjour Ludwig, tu t'obstines dans le Lisp, c'est bien. pour ne pas être gêné par les boites de dialogue, il te suffira de taper les commandes précédées du tiret et underscore. par exemple (command "_-layer" ....) amicalement

Bonsoir Patrick, je sais que je réponds en retard, mais j'ai une excuse géographique, je ne suis pas disponible en ce moment, et pour un certain temps encore ... un début de solution : (setq tempo (list 0 0)) (setq jeu nil p1 nil p2 nil cnt nil p3 nil) (setq jeu (ssget)) (command "_copy" jeu "" tempo tempo ) (setq P1 (getpoint"\nPoint de base du Déplacement\n") P2 (getpoint P1 "\nDéplacement des Objets vers ... ") ) (command "_move" jeu "" P1 P2) (command "_circle" p2 pause) (setq cercle (entlast)) (setq rayon (cdr(assoc 40 (entget (entlast))))) (setq pcercle (polar p2 100.0 rayon)) (setq p3 (polar p2 100.0 (+ rayon 1))) (setq echelle (getreal "\nFacteur de grossissement\n")) (command "_scale" jeu "" p2 echelle) ;;;(command "extrim" pcercle "" p3) ensuite je pensais lancer EXTRIM, mais ça passe pas :mad: peut être que les cadors de CadXp ont la solution pour lancer une commande des Express en Lisp ... amikalement.

coucou, le révolutionnaire qui a mal fini, il est parfaitement possible de ne créer qu'un seul fichier DCL regroupant toutes tes différentes cases de dialogue. c'est la ligne : nomdelacase : dialog { qui débute la définition de la feuille, pour ce qui est d'un bouquin, ma réponse va être floue, remonte tes manches et démonte les DCL à ta disposition, tu as tous les cas de figures (acad.dcl etc...) une dernière chose, mais importante UNE DCL NE RENVOIE QUE DES CHAINES donc penses y pour la communication avec le Lisp. amicalement

hello, je sors de l'état pathologique de sommeil profond, prolongé et de mort apparente, pour venir te dire que le 17 mars, si je ne pouvais me connecter, j'ai pensé à la saint Pas Trique, et un Jack à ta santé. ami calmant en hiberbation de CadXp.

hello et ça, c'est pas de la mégalo !!!! http://cjoint.com/?dnr3B5f56Z hihihihihi [Edité le 13/3/2005 par didier]

Bonjour, j'ai fait attention au forum, mais je propose une alternative en VBA c'est toujours bien de voir autre chose ! Sub InterObjets() Dim ObjEntite1 As AcadEntity Dim ObjEntite2 As AcadEntity Dim PtInters As Variant Dim I As Integer Dim j As Integer Dim Compteur As Integer Compteur = 1 ThisDrawing.Utility.GetEntity ObjEntite1, pt, "Choix de la première Entité ..." ThisDrawing.Utility.GetEntity ObjEntite2, pt, "Choix de la deuxième Entité ..." PtInters = ObjEntite1.IntersectWith(ObjEntite2, acExtendNone) Dim Message As String If VarType(PtInters) vbEmpty Then For I = LBound(PtInters) To UBound(PtInters) Message = "Point d'intersection Numéro : " & Compteur & " -> " & PtInters(j) & "--" & PtInters(j + 1) '& "--" & PtInters(j + 2) MsgBox Message, , "Coordonnées" Message = "" I = I + 2 j = j + 3 Compteur = Compteur + 1 Next End If End Sub amicalement

hello, je te souhaite du courage, et je te prie d'excuser mon emportement, mais le monde de l'emploi est truffé de jeunes, qui, le diplôme en poche, ont, comme première question : Combien je vais gagner ? La préférence d'un employeur ira vers celui qui demandera : Quelle est la mission du poste à pourvoir ? Je corresponds à votre demande, et je suis disponible ... Le temps fera le différence entre les employés. Aussi brutal que celà paraisse, la sélection naturelle a de beaux jours devant elle . amicalement