coordonnées vertex polyligne

[geodiag]

Bonjour,

 

Je cherche la commande qui permette de renvoyer à des variables les 3 coordonnées (x,y,z) de chacun des vertex d'une polyligne

 

Je vous remercie,

 

xavier

[didier]

bonjour

ce n'est pas une " VARIABLE "

 

attention au vocabulaire

 

je me gratte la tête et le disque dur

pour te répondre rapidement.

 

amicalement

[didier]

hello

ben voilà un début de réponse

c'est un copier-coller, je te laisse le choix des déclarations

on peut améliorer, à toi de jouer :

 

For Each Elem In ObjSset

Genre = Elem.ObjectName

If Genre = "AcDb3dPolyline" Then

Ct = 0

CalqueEntite = Elem.Layer

TableauXYZ = Elem.Coordinates

For Each Coordinates In TableauXYZ

Ct = Ct + 1

Next

For n = 0 To (Ct - 1) Step 3

tempox = TableauXYZ(n)

tempoy = TableauXYZ(n + 1)

tempoz = TableauXYZ(n + 2)

 

Next n

End If

If Genre = "AcDbPolyline" Then

Ct = 0

CalqueEntite = Elem.Layer

TableauXYZ = Elem.Coordinates

For Each Coordinates In TableauXYZ

Ct = Ct + 1

Next

For n = 0 To (Ct - 1) Step 2

tempo(0) = TableauXYZ(n)

tempo(1) = TableauXYZ(n + 1)

Next n

End If

Next

 

amicalement

[geodiag]

Sorry pour l'abus de language et un immense merci pour ta réponse, je vais cogiter ça mais en tout ca...

 

 

C'est bo

 

xavier