Importazione in Delphi dei com server Autocad TLB

Nel caso a qualcuno venga voglia di creare un programma in delphi che usi o interagisca con Autocad, consiglio di importazione della libreria principale di Autocad.

La procedura è semplice:

  1. Con Delphi andate nel menù "Component" e scegliete l'opzione "Import component".
  2. Scegliere "Import Type Library" e proseguire la procedura con "Next".
  3. Selezionare il file di libreria per Autocad ("acax18ita.tlb" per Autocad 2010) e proseguire con l'importazione, se non lo trovate nella lista potete aggiungerlo manualmente cliccando su"Add" e selezionando il file "acax18ita.tlb" nella directory "C:\Programmi\File comuni\Autodesk Shared". Se avete una versione in inglese oppure una versione più recente di Autocad allora scegliete il file relativo.
  4. Scegliete di generare il component wrappers e proseguite con la creazione della Unit.


Una volta ottenuto il file "Autocad_TLB.pas" potrete avviare Autocad dalla vostra applicazione e fargli fare quello che volete.

Per usarlo potete semplicemente creare la coClasse:

var
  Autocad:IAcadApplication;
procedure Connect;
begin    
  Autocad:=CoAcadApplication.Create;    
  Autocad.Visible:=true;
end;

oppure volendo prima controllare se è già attiva una istanza dell'applicazione autocad potremo usare il seguente esempio di codice:

var
   Autocad:IAcadApplication;
procedure Connect;
  var
    ActiveAutocad:IUnknown;
 begin
   GetActiveObject(CLASS_AcadApplication,nil,ActiveAutocad);
   if ActiveAutocad<>nil then
      Autocad:=ActiveAutocad as IAcadApplication
   else
      Autocad:=CoAcadApplication.Create;
   Autocad.Visible:=true;
end;
Compago
Chiudi