Propriété d\'UN objet selectionné...

[Bred]

Salut,

 

Je cherche en VB à sélectionner UN objet (quelqu'il soit) et à en récupérer son calque ...

(je sais le faire en lisp, mais en VB je suis au stade du "crétacé" .... :P )

 

en recherchant j'ai trouvé :

http:// http://www.cadxp.com/sujetXForum-4941.htm

et

http:// http://www.cadxp.com/sujetXForum-4798.htm

 

... mais je suis completement incapable de l'exploiter .... :P

 

merci d'avance.

[didier]

Bonsoir mon Cher Banquier,

 

voici ce que je te propose :

Sub GetEntite()
   Dim Titre As String
   Dim Message As String
   Dim Resultat As String
   Dim objEntite As AcadEntity
   Dim varPoint As Variant
   Dim CalqueEntite As String
   
   On Error Resume Next
   
   With ThisDrawing.Utility
       .GetEntity objEntite, varPoint, vbCr & "Sélection d'un objet: "
       If objEntite Is Nothing Then
           .Prompt vbCrLf & "Aucun objet sélectionné."
           Exit Sub
       End If
   'change l'objet en rouge
   objEntite.color = acRed
   objEntite.Update
   CalqueEntite = objEntite.Layer
       
   
   Titre = "Bred Test"
   Message = "Vous avez sélectionné une Entité du Calque : " & CalqueEntite
   Resultat = MsgBox(Message, 0, Titre)
  
   End With
End Sub 

 

j'en profite pour passer l'entité en rouge

pour te montrer la marche à suivre

pour changer une propriété d'un objet.

 

en souhaitant ne pas être hors sujet.

 

amicalement

[Bred]

merci... beaucoup !!!

 

après un premier test ça a l'air d'être ça...

 

-------------------------------------------------------------------

 

pour le banquier.... c'est un hazard de "concaténation" d'initiale.... je ne pourrait malheuresement pas t'avoir un taux de crédit préférentiel pour service rendu .....