CADxp: Répondre à une commande AutoCAD en arriere plan via VBA - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

Répondre à une commande AutoCAD en arriere plan via VBA

#1 Guest_CityHunter87_*

  • Groupe : Invités

Posté 19 février 2011 - 14:49

Bien le bonjour,

J'ai un problème particulier dont je n'arrive pas a me dépêtrer.

Pour faire court, j'utilise Autocad MAP et du code VBA.

Lorsque je clique sur un bouton, je supprime tous les éléments d'un calque qui font référence par ailleurs a des enregistrements de ma base de donnée.

Le problème c'est que lorsque je fais cette suppression, une case de dialogue apparaît me demandant si je veux oui ou non supprimer les enregistrements de la base de donnée, ce qui est normal.

Mais moi j'aimerais que l'utilisateur n'est pas à faire cette manipulation.

J'ai donc dans mon code mis la variable "CMDDIA" à 0, je n'ai plus la case de dialogue, chouette !

Et j'aimerais maintenant via un SendCommand par exemple, faire cette manipulation moi même.

Dans la barre de commandes d'autoCAD apparait ceci :

Voulez-vous ajouter des objets au groupe d'enregistrement ? [Oui/Non] :

Ma question est donc la suivante : comment répondre non à cette commande dont je ne trouve pas le nom?

Y a t'il une autre commande VBA que "SendCommand" ??


Voici un extrait du code :
Private Sub CommandButton13_Click()

Dim objSurCalque As AcadEntity
Dim objSelectionCalque As AcadSelectionSet
Dim intCodes(0) As Integer
Dim varCodeValues(0) As Variant
Dim calque As AcadLayer

On Error Resume Next

Set objSelectionCalque = ThisDrawing.SelectionSets.Add("SelectionCalque")

...

ThisDrawing.SetVariable "CMDDIA", 0
objSelectionCalque.Delete
ThisDrawing.Regen (True)

'ThisDrawing.SendCommand ("Voulez-vous ajouter des objets au groupe d'enregistrement ? [Oui/Non] :" & vbCr & "N" & vbCr)

End Sub
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)