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 471 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
Signaler
Messages postés
453
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
 10
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
Signaler
Messages postés
23
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
3 décembre 2007
Bonjour,
Avez vous eu mon message?
Bonne journée
Signaler
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
 1
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.
Signaler
Messages postés
23
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
3 décembre 2007
Bonjour,
Alors est ce que pour vous ça marche ?
merci
Signaler
Messages postés
23
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
3 décembre 2007
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.