Récupérer des info d\'un objets.

[dr.loveless]

Bonjour,

 

Je ne sais plus du tout comment faire pour récupérer les coordonnées de départ et de fin d'une ligne, ainsi ,que son calque et son numéro d'entité unique autocad.

 

Un petit coup de pouce svp ?

 

Merci d'avance

[winfield]

Bonjour,

 

 ..........
PtDep = ThisDrawing.Utility.GetPoint(, "Point dep")
PtFin = ThisDrawing.Utility.GetPoint(PtDep, "Point fin")
Set ObjLigne = ThisDrawing.ModelSpace.AddLine(PtDep, PtFin)
PtDep = ObjLigne.StartPoint
PtFin = ObjLigne.EndPoint
StrCalque = ObjLigne.Layer
Hand = ObjLigne.Handle
MsgBox "Point dep " & "X=" & PtDep(0) & "," & "Y=" & PtDep(1) & Chr(13) _
& "Point fin  " & "X=" & PtFin(0) & "," & "Y=" & PtFin(1) & Chr(13) _
& "Calque =" & StrCalque & Chr(13) _
& "Hand=" & Hand
.....................