Utiliser Vb.net avec autocad

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 :evilred:
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. :king:

Merci d'avance.

Vincent.

Citation:

---

Envoyé par vincent.delva

Ce code fonctionne sous vba et vb6 mais je ne parvient pas à l'utiliser en vb.net.

---

Bonjour,

qu'est-ce que tu entends pas "ne parviens pas a l'utiliser"?

Exception ?

Erreur de compilation ?

Je précise ma pensée :oops:

Voici la ligne qui me pose problème :
AutoCAD.Application.ActiveDocument.Utility.GetEntity(PolyLigne, Pt, "Sélectionnez la Polyline :")

En effet, sous VBA, VB6, ce bout de code me propose de sélectionner une entité sous autocad. Je récupère l'objet (ici PolyLigne) et le point de sélection (ici Pt).
Le problème étant que sur VB.Net je n'est pas d'erreur mais des avertissements (risque d'exception nulle pour ces deux variables), et lorsque je débogue cette ligne elle ne me retourne rien (variables à "Nothing"). 8O
Selon moi, en net, la fonction ne gère pas les variables de sorties dans la fonction ??

J'ai trouvé ce code fournit par Autocad, il semble permettre de réaliser la fonction de sélection d'objet sur autocad en vb.net:
Dim prEnt As PromptEntityOptions = New PromptEntityOptions("Select an Employee")
Dim prEntRes As PromptEntityResult = ed.GetEntity(prEnt)

Lien: http://usa.autodesk.com/adsk/servlet/index?siteID=123112&id=1911627

Il utilise les objets ARX mais je ne parvient pas à déclarer "PromptEntityOptions".:roll:
Je pense qu'il faut des références spécifiques pour Vb ??
Si quelqu'un à une idée, je suis preneur.
Merci.

euh...

tu as téléchargé le lab founri par autocad sur la page en question ?

Parce que de ce que jén ai vu, ca m'a l'air super clair, et bien explique pas par pas...

Oui je l'ai télécharger, par contre c'est tout en anglais !!! :cry:
Faut comprendre. De plus j'essaye d'adapter leurs exemples mais c'est pas gagné. l'ajout des dll autocad génère des erreurs dans mon code vb.net qui fonctionné jusqu'à maintenant.
exemple: lorsque j'ajoute :
Imports Autodesk.AutoCAD.ApplicationServices
nécessaire à la déclaration de mes variables, tel que :
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

le code suivant ne fonctionne plus :
'Quitter l'application VB
Application.Exit()

Ce qui risque de me poser certains problèmes. :aie:
Si quelqu'un à déjà utiliser le module lab et peut me dire comment l'utiliser pour sélectionner des objets sous autocad ?

Citation:

---

exemple: lorsque j'ajoute :
Imports Autodesk.AutoCAD.ApplicationServices
nécessaire à la déclaration de mes variables, tel que :
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

le code suivant ne fonctionne plus :
'Quitter l'application VB
Application.Exit()

---

Normal, tu n'as pas moyen de savoir a quel objet Application fait reference.

un conseil, par experience, quand tu as a manipuler des objets en passant par une API a part, essaye de bien separer les differentes parties de ton appli.

Par exemple, ton pb vient du fait que la meme classe a la responsabilite de manipuler a la fois Autocad et de gerer ton application vb...

dasn ton cas, une solution rapide serait:

Code:

---

Imports Autodesk.AutoCAD

---

et

Code:

---

Dim ed As Editor = ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor

---

Comme ca, tu n'as plus de pb avec Application.Exit...

A la limite, le mieux, c'est de passer un ou deux jours a ecrire un petit wrapper, avec genre :

Code:

---

1 2 3 4 5 6 7 8 9

Imports Autodesk.AutoCAD.ApplicationServices   Public Class AutoCadWrapper   Public Function GetEditor () As Editor Return ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor End Function   End Class

---

Et apres, tu peux appeler ce wrapper au lieu des classes Autocad.
Ca peut avoir l'air inutile comme ca, mais le gain de temps final n'est pas negligeable ;)

Désolé de passer pour quelqu'un d'inculte mais je ne comprend pas ce que tu entend par

Citation:

---

ecrire un petit wrapper

---

. :oops:
Je ne sais pas vraiment à quoi sert cela.
De plus il semble que le lab fourni par autocad utilise ce principe. 8O
Peux tu me donner des infos ou des exemples ?

Merci.

Bonjour,

J'ai essayer récemment d'utiliser le code :

Citation:

---

Imports Autodesk.AutoCAD.ApplicationServices

Public Class AutoCadWrapper

Public Function GetEditor () As Editor
Return ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
End Function

End Class

---

Je l'ai ajouté à un module, le seul problème et que je ne comprend pas comment l'utiliser par la suite dans mon formulaire: :?

Citation:

---

Dim prEntRes As PromptEntityResult = ed.GetEntity(prEnt)

---

Si quelqu'un a une idée. :cry:

Citation:

---

Envoyé par vincent.delva

Bonjour,

J'ai essayer récemment d'utiliser le code :


Je l'ai ajouté à un module, le seul problème et que je ne comprend pas comment l'utiliser par la suite dans mon formulaire: :?


Si quelqu'un a une idée. :cry:

---

voici la réponse mais en c# , mais il n'y a pas une grande différence entre le vb.net et le c#:

AcadDocument doc = app.ActiveDocument;

Object basepnt, epPOLY;
AcadEntity ent;
Point3d point = new Point3d();
doc.Utility.GetEntity(out epPOLY, out basepnt, "Select your polyline :");
ent = (AcadEntity)epPOLY;
point = (Point3d)basepnt;

Merci de ta réponse.

Peut tu m'expliquer en quoi consiste un wrapper ? :cry:
Je ne comprend pas l'utilité de ce code:

La fonction permet de faire appel à une API différentes.
Cela peux permettre de travailler avec l'application studio (VB dans mon cas)
et une autre (Autocad) en évitant les conflits ??? 8O

Si quelqu'un connaît peux m'aider ou me donner des sites qui peuvent le faire, je lui serai vraiment reconnaissant !

Merci.