jdsv

Bonjour punky0147 Ca y es, cela fonctionne, mea culpa c'etait de ma faute, a force de modifier re-modifier et de re-re-modifier, les déclarations de variables ne suivent pas. j'ai donc adapté ton ptogramme à mes besoins (cela fonctionnent, mais il faut 20 min pour générer l'abaque) donc grace à tes commentaires je vais comprendre et tenter d'optimiser le code. (pas tout de suite, car c'est la rentrée). merci beaucoup de ton aide dés que j'aurais optimisé (si je le peut) je te ferais parvenir le code merci encore et a+ jdsv

bonjour punky0147 j'ai lancé le programme dans un autre fichier et cela ne plante pas. je pense que je ne suis plus trés loin de la solution car les lignes sont bien testées, mais elle ne sont pas tracées. Peut tu commenter le listing que tu m'as envoyé SVP Merci

bonjour, merci punky0147, j'ai testé ton programme, mais celui-ci plante à la ligne Set point1 = ThisDrawing.ModelSpace.AddPoint(P1) erreur de compilation : impossible d'affecter à un tableau pour sechanbask Voici mon problème, je génère des lignes à l’aide du programme dont le tracer de lignes se fait par le listing présenter avant. Je voudrais que les segments tracer soit à l’intérieur d’une zone délimité par les bornes X_min, Y_mini, X_maxi et Y_maxi. Donc 3 cas se présentent : - le segment est à l’extérieur de la zone, on ne fait rien (on passe, au segment suivant) - le segment est dans la zone, on trace la totalité du segment - le segment est à cheval sur la limite de la zone, on ajuste le segment jusqu'à la limite de la zone. J’espère avoir été plus clair merci de votre aide

bonsoir, voici mon problème Je tracer des lignes grâce au code suivant : Sub ligne(x1, y1, X2, y2) Dim P1(0 To 2) As Double Dim P2(0 To 2) As Double P1(0) = Log10(x1) * Correction_axe_x P1(1) = Log10(y1) P1(2) = 0 P2(0) = Log10(X2) * Correction_axe_x P2(1) = Log10(y2) P2(2) = 0 Set lineObj = ThisDrawing.ModelSpace.AddLine(P1, P2) End Sub Et je voudrais que les ségments tracer soit : - si il sont dans les limites tracer - si ils sont a cheval sur les limites ajuster - si sont hors des limites ne pas les tracer les limites sont définies par X_maxi, Y_maxi, X_min, Y_maxi qui sonts des variable pubic j''ai commencé à tavailler sur le code mais je m'égard dans les tests qui s'imbrique merci de votre aide [Edité le 17/8/2007 par jdsv]

merci, :) mais une erreur d'execution '438' apparait (propriété ou méthode non gérer par l'objet je poursuit mes recherche et m'oriente vers texMtobj mais il n'a pas d"argument de pour la rotation si tu as des idées ?? merci

Bonjour, pour créer des abaques j'utilise pour afficher du texte cette macro, est je souhaite qu'il n'y pas d'arriere plan. ________________________________________________________ Sub texte(x1, dx1, y1, dy1, texte, alignement, rotation) Dim textObj As AcadText Dim P_ins(0 To 2) As Double ' Define the text object P_ins(0) = (x1 * Correction_x) + dx1 P_ins(1) = y1 + dy1 P_ins(2) = 0 ' Create the text object in model space Set textObj = ThisDrawing.ModelSpace.AddText(texte, P_ins, Hauteur_texte) textObj.Alignment = alignement textObj.TextAlignmentPoint = P_ins textObj.rotation = rotation textObj.Update End Sub ____________________________________________________________ merci de votre aide