L\'interface IPrimitiveCommandEvents

[TiTi_94]

Bonjour tout le monde,

 

J'aimerais avoir des renseignements sur l'interface IPrimitiveCommandEvents car dans l'aide VBA de MicroStation elle est expliqué en anglais et je ne comprend pas tout... :casstet:

 

Si quelqu'un pouvait m'aider a en savoir plus cela me serai trés utile :)

 

De plus dans les exemples présentés pour cette commande on retrouve souvent l'objet Commandstate... a quoi sert-il ? et comment l'utilise t-on ?

 

 

Merci d'avance...

 

 

TiTi

[Nationale_7]

Bonjour,

L'interface IprimitiveCommandEvents permet en sorte de créer une nouvelle commande dans MicroStation. ceci se fait donc en deux temps. Tout d'abord on implémente une nouvelle classe de type IprimitiveCommandEvents du genre:

 

 Option Explicit

Implements IPrimitiveCommandEvents

Private Sub IPrimitiveCommandEvents_Cleanup()

End Sub

Private Sub IPrimitiveCommandEvents_DataPoint(point As Point3d, ByVal view As view)
Dim oLine As LineElement, error As Boolean

 [i] Ecrire là ce que l'on fait quand l'utilisateur fait un Datapoint (bouton gauche), éventuellement rajouter un index pour savoir si c'est la 1ère ou 2ième fois [/i]  
End Sub

Private Sub IPrimitiveCommandEvents_Dynamics(point As Point3d, ByVal view As view, ByVal DrawMode As MsdDrawingMode)

[i] Simule le mode Dynamique, cette partie se réexécute dès que l'on bouge le curseur[/i]
End Sub

Private Sub IPrimitiveCommandEvents_Keyin(ByVal Keyin As String)
[i]Entrée de données au clavier [/i]
End Sub

Private Sub IPrimitiveCommandEvents_Reset()
[i]Partie éxécutée lors de la pression du bouton Reset , bouton droit [/i]
CommandState.StopDynamics
End Sub

Private Sub IPrimitiveCommandEvents_Start()
'method called at the start of the command
End Sub

L'Objet CommandState indique l'état de commande de MicroStation et permet donc de lancer les commandes :

 

ainsi si la commande précédante était écrite dans la classe Toto, cette commande se lancerait par l'ordre :

 

 CommandState.StartPrimitive New Toto

cette commande permet de changer d'état aussi par exemple :

 

 CommandState.SetDefaultCursor

qui définit le type de curseur employé

 CommandState.StartDynamics 

qui démarre le mode Dynamique ou enfin

 CommandState.StartDefaultCommand 

qui remet MicroStation à l'état Zéro, commande par défaut définie par l'utilisateur, en général outil de sélection

 

Voilà un bref aperçu de cette objet qui permet réelement de faire un programme totalement intégré à MicroStation

 

Salutations

 

N7