Question : Comment est-ce que je manipule des événements d'AutoCAD par un programme de Delphes ?

Je deveoped une bibliothèque de fonction de Delphes au-dessus de l'AutoCAD.Application et j'ajouterais à cette bibliothèque un appui total à l'utilisation Delphes 7 de document et d'entités events.
I et AutoCAD 2010. Comment est-ce que je peux employer le BeginSave, l'EndSave, etc… les événements appelés par la documentation d'AutoCAD VBA ?
class= de

Réponse : Comment est-ce que je manipule des événements d'AutoCAD par un programme de Delphes ?

>> la sorcière est la manière d'arrêter des événements mis le feu par AutoCAD ?

Elle dépend de la façon dont modèle d'événement d'AutoCAD. Je t'ai demandé d'attacher le dossier d'AutoCAD_TLB pour observer comment exactement ACAD définit ses événements.

Par exemple si votre AutoCAD_TLB ressemble à ceci :

TAcadDocumentBeginSave = procédé (ASender : TObject ; nom de fichier de const : WideString) d'objet ;
…
TAcadDocument = classe (TOleServer)
   ….
    propriété OnBeginSave : TAcadDocumentBeginSave a lu FOnBeginSave écrivent FOnBeginSave ;
    propriété OnEndSave : TAcadDocumentEndSave a lu FOnEndSave écrivent FOnEndSave ;
    propriété OnBeginCommand : TAcadDocumentBeginCommand a lu FOnBeginCommand écrivent FOnBeginCommand ;
    propriété OnEndCommand : TAcadDocumentEndCommand a lu FOnEndCommand écrivent FOnEndCommand ;
   …

Quand vous pouvez faire n'importe quoi de pareil :

type
  TForm1 = classe (TForm)
  …
  privé
     procédé HandlerForAcadDocBeginSave (ASender : TObject ; nom de fichier de const : WideString) ;
  …

procédé TForm1.Button1Click (ASender : TObject) ;
variété
  Acad : IAcadApplication ;
  AcadDocument : TAcadDocument ;
commencer
  Acad : = CreateOleObject (« AutoCAD.Application ») comme IAcadApplication ;
  Acad.Visible : = rectifier ;
  AcadDocument : =TAcadDocument.Create (application) ;
  AcadDocument.OnBeginSave : = HandlerForAcadDocBeginSave ;
  AcadDocument.ConnectTo (Acad.ActiveDocument) ;  
 …