spline

[nazemrap]

Bonsoir.

 

Comment ouvrir une spline depuis vba ?

Merci .

nazemrap

 

[didier]

coucou

 

ouvrir ??????????

[nazemrap]

coucou aussi

 

La spline a été fermée avec l'option clore.

J'ai besoin depuis vba de récupérer 2 sommets (départ et fin) en "ouvrant" la spline.

 

Je ne sais pas si je suis plus explicite ?

 

[didier]

hello,

 

ben voilà, j'ai compris

 

pour l'instant je n'ai pas d'idée

n'ayant jamais travaillé avec des splines.

je te tiens au courant de mes recherches...

 

amicalement

 

[didier]

Bonsoir,

 

pas beaucoup de temps aujourd'hui,

mais en fin de journée un quart d'heure de VBA, et tout va mieux...

ce petit prog est perfectible, mais c'est un début de travail

 

voilà le principe

choix d'une spline,

je fais un tableau de tous ses sommets

si elle est close,

je chope le premier et l'avant dernier

je dessine une ligne entre ces deux points.

 

à toi d'améliorer le tout,

la balle est dans ton camp

 

 

Sub testspline()

Dim splineObj As AcadEntity

Dim TabPoints As Variant

Dim NombreSommet As Integer

Dim pt(0 To 2) As Double

Dim pt2(0 To 2) As Double

 

ThisDrawing.Utility.GetEntity splineObj, PtSel, "Sélection de la polyligne ..."

TabPoints = splineObj.fitPoints

For I = 0 To UBound(TabPoints) Step 3

pt(0) = TabPoints(I)

pt(1) = TabPoints(I + 1)

pt(2) = TabPoints(I + 2)

Next

NombreSommet = UBound(TabPoints)

If splineObj.Closed = True Then

pt(0) = TabPoints(0)

pt(1) = TabPoints(1)

pt(2) = TabPoints(2)

pt2(0) = TabPoints(NombreSommet - 5)

pt2(1) = TabPoints(NombreSommet - 4)

pt2(2) = TabPoints(NombreSommet - 3)

Set lineObj = ThisDrawing.ModelSpace.AddLine(pt, pt2)

End If

End Sub

 

amicalement

 

 

[Edité le 10/10/2005 par didier]

[nazemrap]

Bonsoir.

 

Merci Didier.

Super !

Quelle élégance !

Je m' 'y colle derechef. Je ne sais pas si cela me permettra d'aboutir, mais le potentiel est là.

Je te tiendrai au courant .

 

nazemrap.