Dessiner une polyligne

Publié par Saltz le sam, 10/09/2011 - 20:18
Bonjour de grosse difficultés pour poster sur votre forum ....Il semble qu'il y ait une limite , je ne parviens pas à poster tout mon message Même avec les balises de code .En bref ma polyligne ne se dessine pas pourtant mon code ne plante pas non plus 
 Public Sub Testalakazam()
 
Call chercfich
 
End Sub
 
Sub dessineuneligne(tableauindicedate, tableau, compteur, tableautotal)
 
    Dim plineObj As AcadPolyline
    Dim points() As Double 'creer un tableau de points vide
    ReDim points(compteur) 'dimensionne le tableau pour qu'il contienne tous les points
 
    Dim i As Integer
    For i = 1 To compteur
    points(i) = tableauindicedate(i): points(i) = CDbl(tableautotal(i)(4)): points(i) = 0 
 
    Next
 
     Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
 
    ZoomAll
 
End Sub
 
 
 

Ajouter un commentaire