Ordre d\'affichage d\'une ligne

[dr.loveless]

Bonjour,

 

Apres avoir dessiner une ligne, je souhaiterias la forcer comme étant toujours dessus, comment dois-je m'y prendre?

 

Dim A(0 To 2) As Double

Dim B(0 To 2) As Double

Dim MaLigne as acadLine

 

A(0) = 0: A(1) = 0: A(2) = 0

B(0) = 0: B(1) = 1000: B(2) = 0

 

Set MaLigne= ThisDrawing.ModelSpace..AddLine(A,B)

 

?????-> Ordre d'affichage

 

Merci

[Pako]

 

Thisdrawing.SendCommand ( .......

 

 

Command: _draworder

Select objects: 1 found (Maligne)

Select objects: (Enter)

Enter object ordering option [Above object/Under object/Front/Back] : f

Regenerating model.

 

 

A+

[dr.loveless]

Merci @+