Vb.net vers Acad

[lispo]

Bonjour,

je suis un apprentie avec le vb.net j'essaye de communiquer avec autocad mai n' y arrive pas

ex:

j'ai ajouter la refence " autoCad 2006 type Library"

Dim ObjAcad As AcadApplication

Dim DblPt1(0 To 2) As Double

Dim DblRayon As Double

Dim ObjAcadCircle As AcadCircle

Dim ObjEspace As AcadModelSpace

 

Set ObjAcad = GetObject(, "Autocad.Application")

ObjAcad.Visible = True

DblPt1(0) = 1 'x

DblPt1(1) = 1 'y

DblPt1(2) = 0 'z

DblRayon = 1

ObjAcad.ActiveDocument.ActiveSpace = acModelSpace

Set ObjAcadCircle = ObjAcad.ActiveDocument.ModelSpace.AddCircle(DblPt1, DblRayon)

ObjAcad.Update

mais toujour rien !!! si quelqu'un pouvais m'aider

merci d'avance

[Matias]

Bonsoir,

 

Quel est le problème?? :casstet:

 

Chez moi ton code fonctionne!!

 

J'ai juste du modifier cette ligne

 

ObjAcad.ActiveDocument.ActiveSpace = acModelSpace

 

en ObjAcad.ActiveDocument.ActiveSpace = AcActiveSpace.acModelSpace

[DenisHen]

Salut,

Ma réponse est : Idem

Je ne vois rien dans ce code qui défaille...

 

Dans VB, Menu : Outils\Références.... Quel AutoCAD de coché ?

 

Et lequel a été installé en premier, VB ou AutoCAD ?

 

Denis...

[DenisHen]

Désolé, j'ai oublié de demander : Rien, c'est RIEN ? Ni VB ni AutoCAD ne réponds un truc ? ?

 

Tu lance et ...... Rien.... Comme-ci tout c'était bien passé ? Aucun message ? ? Ni augmentation du Processeur ?