POLYLINE EN VBA

[formula1]

Bonjours à tous le monde.

Voilà, je cherche à tracer une polyline en VBA

Comment dois-je faire?

 

Ensuite, j'aimerai lui faire un offset d'une valeur que l'utilisateur choisira.

 

Pourriez-vous m'aider SVP?

[Chrisfs]

Salut,

 

ci joint un exemple de code que j'utilise de temps en temps :

 

Sub DessinEEPTronc()

Dim Cota As Double
Dim Cotb As Double
Dim Cotc As Double
Dim Cotd As Double

Dim Alpa(0 To 7) As Double
Dim Mirr1(0 To 2) As Double
Dim Mirr2(0 To 2) As Double
Dim Lin1(0 To 3) As Double
Dim Lin2(0 To 3) As Double
Dim Lin3(0 To 3) As Double

Dim Polyline01 As AcadLWPolyline
Dim Polyline02 As AcadLWPolyline
Dim Polyline03 As AcadLWPolyline
Dim Polyline04 As AcadLWPolyline
Dim Polyline05 As Variant

Cota = CDbl(InputBox("Diamêtre 'd' de l'EEP tronconique"))
Cotb = 1.5 * Cota
Cotc = 2 * Cota
Cotd = 0.5 * Cota

Alpa1 = ThisDrawing.Utility.GetPoint

Alpa(0) = Alpa1(0) - 120
Alpa(1) = Alpa1(1)
Alpa(2) = Alpa1(0)
Alpa(3) = Alpa1(1)
Alpa(4) = Alpa1(0) + Cotd
Alpa(5) = Alpa1(1) - Cotb
Alpa(6) = Alpa1(0) + Cotd
Alpa(7) = Alpa1(1) - Cotb - 300

Mirr1(0) = Alpa1(0) + Cota
Mirr1(1) = Alpa1(1)
Mirr1(2) = 0
Mirr2(0) = Alpa1(0) + Cota
Mirr2(1) = Alpa1(1) - Cotb
Mirr2(2) = 0

Lin1(0) = Alpa1(0)
Lin1(1) = Alpa1(1)
Lin1(2) = Alpa1(0) + Cotc
Lin1(3) = Alpa1(1)

Lin2(0) = Alpa1(0) + Cotd
Lin2(1) = Alpa1(1) - Cotb
Lin2(2) = Alpa1(0) + Cotd + Cota
Lin2(3) = Alpa1(1) - Cotb

Set Polyline01 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Alpa)
Polyline01.ConstantWidth = 3
Set Polyline02 = Polyline01.Mirror(Mirr1, Mirr2)
Set Polyline03 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Lin1)
Set Polyline04 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Lin2)
Polyline05 = Polyline04.Offset(300)
End Sub

 

tu verra, dans le code, il y a la creation d'une polyligne, de son mirroir et il y a une fonction offset à la fin.

[formula1]

merci CHRISFS, je vais regarder cela à mon aise affin de mieux la digérée.