1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Autocad lt et dde

Autocad lt et dde

5/5 (20 avis)

Snippet vu 27 726 fois - Téléchargée 37 fois

Commenter

Contenu du snippet

Pour ceux qui peuvent être intéressés, le code suivant permet d'envoyer à partir de VB des commandes (autocad) via une liason DDE à Autocad LT.

Créer un Form avec contôle acceptant DDE
(textBox par exemple, Text1 dans le code qui suit)

La variable cmd (string) contient la commande Autocad comme saisie dans la ligne de commande d'Autocad LT

Source / Exemple : 


Set obj = Text1
    AppActivate "AUTOCAD LT", True 
    obj.LinkMode = 0
    obj.LinkTopic = "AutoCAD LT.DDE|System"
    obj.LinkMode = 2
    obj.LinkTimeout = 500
    obj.LinkExecute cmd

Conclusion :


J'ai trouvé le "Topic" dans la base registre...

Je n'ai trouvé que cette solution pour piloter Autocad LT. j'ai rien trouvé dans la doc Autocad LT sur le DDE.

Merci de me faire part de vos commentaires et astuces.

A voir également

Ajouter un commentaire Commentaires
scromania Messages postés 453 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 9
1 oct. 2009 à 10:31
bonjour ,
j'aimerais savoir si quelqu'un pourrais m'expliquer car

je parviens à ouvrir autocad 2008.
je souhaite soit faire un coller de tout le texte directement dans autocad


ex:
point 378558.968,179006.34
point 378188.651,179309.202
point 378174.173,179327.315
point 366429.476,176386.49
point 366418.707,176390.232
point 350390.902,184772.049
point 350348.219,184820.23
point 350161.756,185483.88
point 378558.968,179006.34
point 377790.191,179407.567
point 376992.888,178768.69
point 375989.401,178733.442
point 375049.05,178507.076

J'arrrive juste a ouvrir l'api autocad .

Private Sub Bouton1_Click()

Dim MyAppID
MyAppID = Shell("C:\Program Files\AutoCAD 2008\acad.exe", 1)
application.Doevents()

End Sub


Pouvez vous m'aiguillet
merci
allopeck Messages postés 23 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 3 décembre 2007
6 déc. 2007 à 10:32
Bonjour,
Avez vous eu mon message?
Bonne journée
ld40 Messages postés 336 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 22 février 2019 1
4 déc. 2007 à 17:47
je vous ai oublié pardon. Ce que vous indiquez semble correct.
contactez moi directement par message privé en cliquant mon profil, je vous ferez parvenir le fichier access, et s'il fonctionne chez vous, je le publierai sur vbfrance.
allopeck Messages postés 23 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 3 décembre 2007
4 déc. 2007 à 16:06
Bonjour,
Alors est ce que pour vous ça marche ?
merci
allopeck Messages postés 23 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 3 décembre 2007
25 nov. 2007 à 07:08
Au fait c bien ça pour le 2006 ?
chan = DDEInitiate("AutoCAD.r16.DDE", "System")
merci
Afficher les 20 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.