Aurélien62

Bonjour, oui j'avais également vu cet exemple et je m'en étais servi Le problème, c'est que le nombre de points définissant ma polyligne n'est pas fixe et j'arrive pas a faire intervenir une variable la dedans.

J'essaye cette méthode ci mais il me met une erreur d'incompatibilité de type à points4(i)=x jcomprends pas trop le pourquoi du comment Dim plineObj4 As AcadLWPolyline Dim points4 As Variant Dim i As Integer i = 0 For x = 0 To d31 Step 0.1 M = q31 * x * x / 2 - Y1 * x points4(i) = x: points4(i + 1) = M i = i + 2 Next x Set plineObj4 = ThisDrawing.ModelSpace.AddLightWeightPolyline(points4) [Edité le 9/1/2007 par Aurélien62]

Bonjour, je souhaite tracer une polyligne j'ai essayé avec la méthode du add_spline en définissant des fitpoints et les points de tangente, mais jme suis heurté à plusieurs problèmes vu que le nombre de points de ma courbe variait Je teste donc la méthode du sendkeys, mais j'ai un problème de syntaxe je lui dis de dessiner les points de coordonnées x,M mais les chiffres x et M sont décimaux, et le séparateur décimal des nombres décimaux est la virgule, AutoCAD interprète donc ca comme un changement de coordonnées et ca bug. Il n'y aurait pas un quelconque moyen de contourner ca? ou la possibilité de mettre le . et non la , en séparateur décimal? Dim M As Double Dim x As Double Dim touches1 As String Dim touches As String Dim objacad As Object Set objacad = GetObject(, "Autocad.Application") objacad.Visible = True touches1 = "po{ENTER}" SendKeys touches1, True For x = 0 To d31 Step 1 M = q31 * x * x / 2 - Y1 * x touches = x & "," & M & "{ENTER}" SendKeys touches, True Next x