Some of the DCAL routines have been incorrectly mentioned in UInterfaces.pas and can cause Internal Diagnostics error on its use. The correct function calls for these are as follow:
NOTES:
doPolyline tells to generate a polyline entity Vs arc/circle entity defined with closed (doclosedvar) and cover (docovervar) flag.
We are thankful to Pietro Moras for bringing these to our attention and I apologize for the errors.
Code: Select all
PROCEDURE menuArcCentChrd (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar, doclosedvar : pboolean);stdcall; external AppName;
PROCEDURE menuArc2pt (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar, doclosedvar : pboolean);stdcall; external AppName;
PROCEDURE menuArc3pt (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar, doclosedvar : pboolean);stdcall; external AppName;
PROCEDURE menuArcCentAng (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar, doclosedvar : pboolean);stdcall; external AppName;
PROCEDURE menuArcCentArc (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar, doclosedvar : pboolean);stdcall; external AppName;
PROCEDURE menuCrcRad (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar : pboolean);stdcall; external AppName;
PROCEDURE menuCrcDia (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar : pboolean);stdcall; external AppName;
PROCEDURE menuCrc3pt (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar : pboolean);stdcall; external AppName;
PROCEDURE menuArcTan (VAR iwant : wantType; VAR arg : CircMenuArg; doPolyline : boolean;
docovervar, doclosedvar : pboolean);stdcall; external AppName;
NOTES:
doPolyline tells to generate a polyline entity Vs arc/circle entity defined with closed (doclosedvar) and cover (docovervar) flag.
We are thankful to Pietro Moras for bringing these to our attention and I apologize for the errors.
Devinder S Verman
DATACAD LLC
DATACAD LLC