Discussion :

[vincent.delva]

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.

[Philippe Vialatte]

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 ?

[vincent.delva]

Je précise ma pensée

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").
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".
Je pense qu'il faut des références spécifiques pour Vb ??
Si quelqu'un à une idée, je suis preneur.
Merci.

[Philippe Vialatte]

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...

[vincent.delva]

Oui je l'ai télécharger, par contre c'est tout en anglais !!!
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.
Si quelqu'un à déjà utiliser le module lab et peut me dire comment l'utiliser pour sélectionner des objets sous autocad ?

[Philippe Vialatte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Autodesk.AutoCAD

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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