nouvelle commande

[Matias]

Bonjour à tous,

 

En vb.net, comment faire pour définir une nouvelle commande.

Un peu comme en lisp (defun c:toto()).

 

Merci

 

@+

[Pako]

J'connait pas en VB.Net mais en VBA, j'utilise cette méthode :

 

J'utilise le lisp pour appeller mes commandes en VBA

comme suit :

(defun c:TOTO ()

(command "_-vbarun" "Module.Procedure"))

 

De cette façon l'utilisateur peut lancé la commande au clavier ou

via un icône (macro) comme suit :

^C^CTOTO;

 

Sans utilisé la commande _-VBARUN, je ne sais pas comment faire !

Dire que VBA ne peut pas se passer de son vieille ami le LISP ! ;)

 

 

 

[didier]

coucou

 

je fais pareil,

c'est du VBA, donc c'est incomplet par définition,

il doit y avoir une solution en VB.net, mais ici on est des petites gens ...

 

amicalement

 

[Pako]

ici on est des petites gens ...

avec de grand coeur :heartpump: !!

 

 

Tous dépendant son humeur LFA,

va pouvoir te dépanner concernant

le VB.NET.

 

LFA est le King de la .NET ! ;)

[Matias]

Merci à tous les deux,

 

mais on m'a répondu sur un autre forum.

 

Voici le code:

 

Dans l'exemple suivant ABC est ton code d'identification spécique (ex: "ASDK" pour Autodesk). Le mot EXEMPLE est a remplacer aux 2 endroits.

Imports System
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.ApplicationServices.Document

Public Class Class1

   < Autodesk.AutoCAD.Runtime.CommandMethod("ABC", "EXEMPLE", Autodesk.AutoCAD.Runtime.CommandFlags.Transparent) > _
   Public Function EXEMPLEcmd()

       Dim acadApp As Autodesk.AutoCAD.Interop.AcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
       If IsNothing(acadApp) = False Then
           CommandLinePrompts.Message("Hello Wolrd")
       End If

   End Function

End Class