Autocad lt et dde
Soyez le premier à donner votre avis sur cette source.
Snippet vu 27 055 fois - Téléchargée 35 fois
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
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.
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
- Autocad light
- Autocad dde - Meilleures réponses
- Autocad visual basic - Meilleures réponses
- Visual Basic / VB.NET : Excel <> autocad lt - CodeS SourceS - Guide
- Autocad lt et autocad envoie d'une commande via vb ✓ - Forum - Visual Basic 6
- Modifier les attributs de blocs autocad 2007 LT a partir d'excel ✓ - Forum - Visual Basic 6
- Autocad vba - Forum - Visual Basic
- Extraire attribut autocad vers excel - Forum - Visual Basic
Commentaires
- Messages postés
- 453
- Date d'inscription
- dimanche 20 août 2006
- Statut
- Membre
- Dernière intervention
- 11 janvier 2013
7j'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
Avez vous eu mon message?
Bonne journée
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.
Alors est ce que pour vous ça marche ?
merci
chan = DDEInitiate("AutoCAD.r16.DDE", "System")
merci
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.