cadintf.pas

FlexGraphics是一套创建矢量图形的VCL组件

unit CADIntf;

interface

uses Windows, sgConsts;

const
  CADImporter = 'CADImporter.dll';

function CADCreate(Window: HWnd; FileName: PAnsiChar): THandle; stdcall;
function CADClose(Handle: THandle): Integer; stdcall;
function CADGetSection(Handle: THandle; Index: Integer; Data: PcadData): THandle; stdcall;
function CADGetChild(Handle: THandle; Index: Integer; Data: PcadData): THandle; stdcall;
function CADGetData(Handle: THandle; Data: PcadData): Integer; stdcall;
function CADLayerCount(Handle: THandle): Integer; stdcall;
function CADLayer(Handle: THandle; Index: Integer; Data: PcadData): THandle; stdcall;
function CADLayoutCount(Handle: THandle): DWORD; stdcall;
function CADLayoutCurrent(Handle: THandle; var Index: DWORD; DoChange: BOOL): Integer; stdcall;
function CADLayoutName(Handle: THandle; Index: DWORD; Name: PAnsiChar; nSize: DWORD): Integer; stdcall;
function CADEnum(Handle: THandle; EnumAll: Integer; Proc: Pointer; var Param): Integer; stdcall;
function CADDraw(Handle: THandle; DC: HDC; const R: TRect): Integer; stdcall;
function CADUnits(Handle: THandle; var Units: Integer): Integer; stdcall;
function CADLTScale(Handle: THandle; var AScale: Double): Integer; stdcall;
function CADVisible(Handle: THandle; LayerName: PAnsiChar): Integer; stdcall;
function CADGetBox(Handle: THandle; var ALeft, ARight, ATop, ABottom: Double): Integer; stdcall;
function CADGetLastError(Buf: PAnsiChar): Integer; stdcall;
function CADProhibitCurvesAsPoly(Handle: THandle; AllArcsAsCurves: Integer): Integer; stdcall;

implementation

function CADCreate; external CADImporter name 'CADCreate';
function CADClose; external CADImporter name 'CADClose';
function CADGetSection; external CADImporter name 'CADGetSection';
function CADGetChild; external CADImporter name 'CADGetChild';
function CADGetData; external CADImporter name 'CADGetData';
function CADLayerCount; external CADImporter name 'CADLayerCount';
function CADLayer; external CADImporter name 'CADLayer';
function CADLayoutCount; external CADImporter name 'CADLayoutCount';
function CADLayoutCurrent; external CADImporter name 'CADLayoutCurrent';
function CADLayoutName; external CADImporter name 'CADLayoutName';
function CADEnum; external CADImporter name 'CADEnum';
function CADDraw; external CADImporter name 'CADDraw';
function CADUnits; external CADImporter name 'CADUnits';
function CADLTScale; external CADImporter name 'CADLTScale';
function CADVisible; external CADImporter name 'CADVisible';
function CADGetBox; external CADImporter name 'CADGetBox';
function CADGetLastError; external CADImporter name 'CADGetLastError';
function CADProhibitCurvesAsPoly; external CADImporter name 'CADProhibitCurvesAsPoly';

end.