LIAISON VB6 <> AUTOCAD GRACE À ACAD.TLB OU ACAX16ENU.TLB OU ACAX17ENU.TLB

Commentaire de Sebastien12 le 19/07/2004 12:22:02

Bonjour,

Le fichier Aclt.tlb n'existe pas sous Autocad Lt 2000,2000i, 2002, 2004 et 2005.

Sébastien

Commentaire de Scalpweb le 19/07/2004 13:18:58

Une source très interessante.

Commentaire de dx le 02/08/2004 12:19:26

Bonjour

Je viens de telecharger le fichier zip, il est incomplet,   il manque entre autre  htmltotxt2.2\dlgbox.bas pour faire fonctionner ton prog..
Y a t il une difference par rapport à la methode  :

Private Function LiasonAutocad()
    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Function
        End If
    End If
    acadApp.Visible = True
      
End Function

Commentaire de mathilde1 le 18/11/2004 20:50:22

bonjour,

comment peux-t-on créer la liaison entre autocad 2004 et visual basic 6 pour que la programmation dans visual basic 6 agisse sur les dessins dans autocad 2004 ? (par exemple pour créer des dessins dans autocad 2004 à partir des formules mathématiques de visual basic 6 )

Commentaire de mathilde1 le 23/11/2004 20:54:12

id40

bonjour,
effectivement, c'est de pouvoir de visualiser sur autocad 2004 des fonctions y=f(x) programmées à partir de vb6

Commentaire de mathilde1 le 23/11/2004 21:23:28

id40

il faut arriver à créer des fonctions continues par exemple ax+b ou ax2 + bx +c programmées à partir de vb6 et visibles sur autocad 2004

le tableau de coordonnées (x,y) va créer des points, ce qui est peu intéressant

Commentaire de so1978 le 14/04/2006 03:37:15

j'esseye de cree une ligne sur vb6 pour un programme de dessin come en autocad de façon a la deplacee pendant que le programme fonctionne est ce possible ou je dois travaille avec un autre logiciel a partir de vb tels que le charger sur vb
merci

Commentaire de ibif le 17/07/2006 13:49:49

bjr je voudrais savoir comment executer plusieurs fichiers script sous autocad avec vb

Commentaire de ld40 le 06/09/2006 10:36:34

Bonjour,

je ne me suis pas mis à .net , donc je ne sais pas.

Par contre j'ai pas mal de question qui me parviennent sur Autocad  en général. J'essayerai donc dans la prochaine mise à jour de completer avec un fichier aide et une liste de lien (forums, sites etc...)
Dores et déjà si vous avez des sites à recommander, vous pouvez me les communiquer.

Commentaire de Sebastien12 le 14/12/2006 17:48:51

Bonjour,

J'ai créé un tableau qui permet de sélectionné la version d'Autocad.
La première valeur c'est la version d'Autocad que l'utilisateur possede et la deuxième c'est le paramétre envoyé en DDE.

Public VERSIONS_AUTOCAD As String(,) = {{"Autocad LT", "Autocad LT.DDE|System"}, {"Autocad 2000, 2000i, 2002", "Autocad R15.DDE|System"}, {"Autocad 2004, 2005, 2006", "Autocad R16.DDE|System"}, {"Autocad 2007, 2008 Béta", "Autocad R17.DDE|System"}}

Attention: Ceci est du VB.net

Commentaire de ld40 le 16/12/2006 11:34:00

si vous avez un module qui fonctionne avec toutes les versions autocad ça m'interesse pour l'intégrer dans ce projet.
De mon coté je me pose la question: utiliser le tableau de sebastien12 ou lire la base des registres et détecter toutes les versions installées...

Commentaire de ld40 le 21/12/2006 21:54:53

voici un bout de code à mettre dans un module pour détecter la version autocad.
(Non testé pour Autocad LT)!!!


  On Error Resume Next
  Dim acad_object As Object
  Dim s_version As String
  Dim s_nom As String
  Dim s_exe As String
  Dim s_proc As String
  Set acad_object = CreateObject("AUTOCAD.application") 'On recherche la version d'autocad installée
  s_version = acad_object.Version
  If InStr(1, s_version, ".") Then
  s_version = Left(s_version, InStr(1, s_version, ".") - 1)
  End If
  s_version = "AutoCAD.r" + s_version + ".DDE|System"
  s_nom = acad_object.FullName
  s_exe = Replace(acad_object.FullName, acad_object.Path + "\", "")
  acad_object.Quit
  Set acad_object = Nothing
  MsgBox s_exe
  MsgBox s_nom
  MsgBox s_version

Commentaire de ld40 le 22/12/2006 13:02:40

voilà la raison pour laquelle je n'ai pas directement integré ce code dans mon projet.
je n'ai pas de pb sur mon pc, mais j'attendais d'avoir le retour sur d'autres postes.
mon avis: il faudrait cerner la ligne qui n'a pas fini de s'executer avant l'erreur et glisser un doevents ou un timer.

genre...
s_exe = Replace(acad_object.FullName, acad_object.Path + "\", "")
doevents
acad_object.Quit
doevents

Commentaire de ld40 le 12/10/2007 09:01:07

bonjour rahhal_II

aurais tu un exemple avec des "entrées utilisateurs"?
j'ai développé un autre exemple pour les liaisons dde (pas encore sur vbfrance) qui permet de récupérer la liste des calques et la liste des présentations, mais si je peux encore enrichir l'exemple avant de le diffuser, ce ne sera que mieux ;-)

merci.

Commentaire de rahhal_ii le 12/10/2007 21:21:43

salut

le code est excellent,vous utiliser la commande shell pour connecter autocad,la commande est la meme pour le langage Autolisp incorporer dans autocad,cependant on peut aussi aboutir au meme resultat et meme avoir une liaison interactive qui transmet les donnees dans les deux sens ('de la boite de dialogue du programme vers Autocad est vis versa)grace a la command Createobject,y'a un code sur l'aide d'Autocad pour son utilisation.