Bonjour,
Je réalise actuellement un programme de calcule sous vb.net 2008 qui interagit avec autocad 2008.
Mon problème actuel et que je ne parviens pas à utiliser la fonction getentity, pour sélectionner une polyline.
Ce code fonctionne sous vba et vb6 mais je ne parvient pas à l'utiliser en vb.net.
Voici le code que j'utilise :
Private Sub Button1_Click
Dim AutoCAD As Object
Dim PolyLigne As AcadEntity
Dim Pt As AcadObject
' La ligne suivante attend une sélection de l'utilisateur
' Elle fonctionne en vba et vb6 mais pose problème en vb.net
AutoCAD.Application.ActiveDocument.Utility.GetEntity(PolyLigne, Pt, "Sélectionnez la Polyline :")
' Code VBA autocad : ThisDrawing.Utility.GetEntity PolyLigne, Pt, "Sélectionnez la Polyline :"
If PolyLigne_Type = "AcDbPolyline" Then
' J'éclate la polyline
PolyLigne.Explode()
Else
MsgBox("L'entité sélectionnée n'est pas une Polyline !")
End If
End Sub
Si quelqu'un peut m'apporter son aide, je lui serai très reconnaissant car cela fait plusieurs jours que je bloque sur ce problème.
Merci d'avance.
Vincent.
Partager