• denis
  • Восстановленный участник
  • На форуме с 16 апреля 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: кто-то слышал про AutoCad API?

кто-то слышал про AutoCad API? как получить к ним доступ и что ещё важнее, как узнать какие вообще возможности эти функции предоставляют? Может есть их описание или что-то подобное?
спасибо

  • Павел
  • Восстановленный участник
  • На форуме с 10 июля 2002г.
  • Сообщений: 22
  • Спасибо: 0

Re: кто-то слышал про AutoCad API?

Раньше было т.н. АПИ. Использовалось в до 14-ой версии включительно, в 2000 - более не знаю, т.к. появилась серьезная альтернатива.
Привожу кусочек кода описания функций ADS.

unit Ads;
{ External function definitions accessible from applications }
interface
uses adsdef;
type
  HWND = integer;
  size_t = cardinal;
  formres=^Tformres;
  Tformres=array [0..3] of Tads_point;
  lispfun = function: integer; cdecl;
  CallbackFunc=function (const P: PChar): PResBuf; cdecl;
  transffun= function (pt: ads_point; mt: ads_matrix): integer; cdecl;
{ The following functions are only supported in Rx ADS }
procedure acrx_abort (const format: PChar{; const args: pointer}); cdecl; {varargs; }external 'acad.exe';
function  ads_getappname: PChar; cdecl; external 'acad.exe';
function  ads_update(vport: integer; p1,p2 :ads_point): integer; cdecl; external 'acad.exe';
{ The following functions are not supported in Rx ADS }
{ General abort mechanism.  Return RSABORT to Lisp. }
procedure ads_abort (const str: PChar); cdecl; external 'acad.exe';
{ ADS exit() function used for transparent exit of programs }
procedure ads_exit (status: integer); cdecl; external 'acad.exe';
{ Link back to host with request code }
function ads_link (cbc: integer): integer; cdecl; external 'acad.exe';
{ Application initialization  function }
procedure ads_init (argc: integer; argv: pointer); cdecl; external 'acad.exe';