Affichage premier plan

[eagle4]

Bonjour à tous

 

Voici en quelques mots mon problème :

je voudrai sous "VBA" placer au premier plan une ligne qui est toute ou en partie masquée par une seconde ligne. Ces 2 lignes ne sont pas dans le même calque et ne sont pas du même type de ligne. Comment puis-je faire ? Est-ce qu'un calque peut être mis en avant ?

Merci de vos réponses.

 

Guy

[Maxence DELANNOY]

Tu dois modifier l'ordre de tracé. VBA ne propose pas de méthode pour ça, donc tu dois bricoler. Tu peux par exemple lancer la commande ORDRETRACE (_DRAWORDER) via SendCommand :

 

Public Sub MoveToTop()
   Dim object As AcadObject
   Dim pt As Variant
   ThisDrawing.Utility.GetEntity object, pt, "Sélectionnez une entité:"
   ThisDrawing.SendCommand "_DRAWORDER" & vbCr _
       & "(handent """ & object.Handle & """)" & vbCr & vbCr _
       & "_F" & vbCr
End Sub

 

Cet exemple amène au premier plan l'entité object. J'utilise une petite astuce, la fonction AutoLISP handent pour passer un nom d'entité à la commande.

[eagle4]

Merci Maxence

Je teste ta solution dans la journéee.

Guy

[eagle4]

Je viens de rajouter le code et tout fonctionne parfaitement.

Encore merci et à bientôt.

Bonne journée à tous

Guy