DelphiARX 2000i DArxApi库

				
						
								unit
								 DArxApi
								;


								// ******************************************************
//         DelphiARX2000i Global Functions Library
//
//     Copyright(C)2001  HIRATE Technical Corporation.
//     2001.04.19        System Development Project.
// ******************************************************


								interface

uses

								  Windows
								,
								 SysUtils
								,
								 DArxH
								,

								  AcRxCLib
								,
								 AcApCLib
								,
								 AcDxCLib
								,
								 AcDbCLib
								,
								 AcGiCLib
								,
								 AcTrCLib
								,
								 AsiCLib
								;


								// ***************************************** ACUTMEM.H *****


								function
								 acutNewBuffer
								(
								var
								 pOutput
								:
								 PChar
								;
								 size
								:
								 Tsize_t
								):
								 TAcad_ErrorStatus
								;

								function
								 acutNewString
								(
								const
								 pInput
								:
								 PChar
								;
								
								
								var
								 pOutput
								:
								 PChar
								):
								 TAcad_ErrorStatus
								;

								function
								 acutUpdString
								(
								const
								 pInput
								:
								 PChar
								;
								
								
								var
								 pOutput
								:
								 PChar
								):
								 TAcad_ErrorStatus
								;

								procedure
								 acutDelString
								(
								var
								 pString
								:
								 PChar
								);

								procedure
								 acutDelBuffer
								(
								var
								 pString
								:
								 PChar
								);


								// ***************************************** ADSTEXT.H *****

								function
								 acadErrorStatusText
								(
								errno
								:
								 TAcad_ErrorStatus
								):
								 AnsiString
								;

								function
								 acdbServices
								:
								 Pointer
								;


								// ***************************************** ACED.H *****

								function
								 acedCmdLookup
								(
								const
								 cmdStr
								:
								 AnsiString
								;
								 globalLookup
								:
								 Integer
								;
								 retStruc
								:
								 Pointer
								;
								 skipUndef
								:
								 LongBool 
								=
								 False
								):
								 Integer
								;

								function
								 acedCmdLookup2
								(
								const
								 cmdStr
								:
								 AnsiString
								;
								 globalLookup
								:
								 Integer
								;
								 recStruc
								:
								 Pointer
								;
								 sf
								:
								 Integer 
								=
								 ACRX_CMD_DEFUN
								):
								 Integer
								;

								function
								 acedCmdUndefine
								(
								const
								 cmdStr
								:
								 AnsiString
								;
								 undefIt
								:
								 Integer
								):
								 Integer
								;

								function
								 acedPopCommandDirectory
								(
								const
								 cmdDirName
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetCommandForDocument
								(
								pDoc
								:
								 TAcApDocument
								;
								
								
								var
								 pGlobalCmdName
								:
								 AnsiString
								):
								 TAcad_ErrorStatus
								;

								function
								 acedSetOLELock
								(
								handle
								,
								 flags
								:
								 Integer
								):
								 TAdesk_Boolean
								;

								function
								 acedClearOLELock
								(
								handle
								:
								 Integer
								):
								 TAdesk_Boolean
								;

								function
								 acedPostCommand
								(
								const
								 pCmd
								:
								 AnsiString
								):
								 TAdesk_Boolean
								;

								procedure
								 acedPostCommandPrompt
								;

								procedure
								 acedUpdateDisplay
								;


								// ***************************************** ADS.H *****

								procedure
								 acrx_abort
								(
								const
								 format
								:
								
								
								array
								
								
								of
								 AnsiString
								);


								function
								 acedGetAppName
								:
								 AnsiString
								;

								function
								 acedUpdate
								(
								vport
								:
								 Integer
								;
								 p1
								,
								 p2
								:
								 Tads_point
								):
								 Integer
								;

								function
								 acedSetFunHelp
								(
								const
								 pszFunctionName
								,
								 pszHelpfile
								,
								 pszTopic
								:
								 AnsiString
								;
								 iCmd
								:
								 Integer
								):
								 Integer
								;

								function
								 acedGetFullInput
								(
								var
								 pStr
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetFullKword
								(
								const
								 pString
								:
								 AnsiString
								;
								
								
								var
								 pStr
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetFullString
								(
								cronly
								:
								 Integer
								;
								
								
								const
								 pString
								:
								 AnsiString
								;
								
								
								var
								 pResult
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acad_malloc
								(
								const
								 sz
								:
								 Cardinal
								):
								 Pointer
								;

								procedure
								 acad_free
								(
								var
								 p
								:
								 Pointer
								);

								function
								 acad_msize
								(
								const
								 p
								:
								 Pointer
								):
								 Cardinal
								;

								function
								 acad_realloc
								(
								const
								 p
								:
								 Pointer
								;
								
								
								const
								 ns
								:
								 Cardinal
								):
								 Pointer
								;

								function
								 acad_calloc
								(
								sz1
								,
								 sz2
								:
								 Cardinal
								):
								 Pointer
								;

								function
								 acad_strdup
								(
								const
								 p
								:
								 PChar
								):
								 PChar
								;


								function
								 acutNewRb
								(
								const
								 v
								:
								 Integer
								):
								 PResbuf
								;
								
								
								overload
								;

								// The specifying use of the acutNewRb function.
// acutNewRbŠÖ”‚Ì“Á’èŽg—p

								function
								 acutNewRb
								(
								const
								 IntType
								:
								 Integer
								;
								
								
								const
								 Value
								:
								 Longint
								):
								 PResbuf
								;
								
								
								overload
								;

								function
								 acutNewRb
								(
								const
								 RealType
								:
								 Integer
								;
								
								
								const
								 Value
								:
								 Tads_real
								):
								 PResbuf
								;
								
								
								overload
								;

								function
								 acutNewRb
								(
								const
								 StrType
								:
								 Integer
								;
								
								
								const
								 Value
								:
								 PChar
								):
								 PResbuf
								;
								
								
								overload
								;

								function
								 acutNewRb
								(
								const
								 PosType
								:
								 Integer
								;
								
								
								const
								 Value
								:
								 Tads_point
								):
								 PResbuf
								;
								
								
								overload
								;

								function
								 acutNewRb
								(
								const
								 NameType
								:
								 Integer
								;
								
								
								const
								 Value
								:
								 Tads_name
								):
								 PResbuf
								;
								
								
								overload
								;

								function
								 acutNewRb
								(
								const
								 BinType
								:
								 Integer
								;
								
								
								const
								 Value
								:
								 Tads_binary
								):
								 PResbuf
								;
								
								
								overload
								;

								// The specifying use of the acutNewRb function : Makes the RESULT BUFFER which contains specification Result Type data.
// acutNewRbŠÖ”‚Ì“Á’èŽg—p: Žw’胊ƒUƒ‹ƒgEƒ^ƒCƒv‚̃f[ƒ^‚ðŠÜ‚ÞƒŠƒUƒ‹ƒgƒoƒbƒtƒ@‚ðì¬‚µ‚Ü‚·

								function
								 acutNewrbVal
								(
								const
								 ResType
								:
								 Smallint
								;
								
								
								const
								 ResVal
								:
								 Variant
								):
								 PResbuf
								;


								function
								 acutRelRb
								(
								var
								 rb
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acutBuildList
								(
								const
								 rType
								:
								
								
								array
								
								
								of
								 Variant
								):
								 PResbuf
								;

								function
								 acedUsrBrk
								:
								 Integer
								;

								function
								 acedCmd
								(
								const
								 rbp
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedCommand
								(
								rtype
								:
								
								
								array
								
								
								of
								 Variant
								):
								 Integer
								;

								procedure
								 acdbFail
								(
								const
								 str
								:
								 AnsiString
								);


								function
								 adsw_acadMainWnd
								:
								 HWND
								;

								function
								 adsw_acadDocWnd
								:
								 HWND
								;


								function
								 acedDefun
								(
								const
								 sname
								:
								 AnsiString
								;
								
								
								const
								 funcno
								:
								 Smallint
								):
								 Integer
								;

								function
								 acedUndef
								(
								const
								 sname
								:
								 AnsiString
								;
								
								
								const
								 funcno
								:
								 Smallint
								):
								 Integer
								;

								function
								 acedGetFunCode
								:
								 Integer
								;

								function
								 acedGetArgs
								:
								 PResbuf
								;

								function
								 acedRegFunc
								(
								const
								 fhdl
								:
								 PfuncPointer
								;
								
								
								const
								 fcode
								:
								 Integer
								):
								 Integer
								;

								function
								 acedInvoke
								(
								const
								 args
								:
								 PResbuf
								;
								
								
								var
								 retbuf
								:
								 PResbuf
								):
								 Integer
								;


								function
								 acedArxLoaded
								:
								 PResbuf
								;

								function
								 acedArxLoad
								(
								const
								 app
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedArxUnload
								(
								const
								 app
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acedRetList
								(
								const
								 rbuf
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedRetVal
								(
								const
								 rbuf
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedRetPoint
								(
								const
								 pt
								:
								 Tads_Point
								):
								 Integer
								;

								function
								 acedRetStr
								(
								const
								 s
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedRetName
								(
								const
								 aname
								:
								 Tads_Name
								;
								
								
								const
								 ntype
								:
								 Integer
								):
								 Integer
								;

								function
								 acedRetInt
								(
								const
								 ival
								:
								 Integer
								):
								 Integer
								;

								// LongŒ^‚̃f[ƒ^‚ð‹­§“I‚É•Ô‚·

								function
								 acedRetLong
								(
								const
								 lval
								:
								 Longint
								):
								 Integer
								;

								function
								 acedRetReal
								(
								const
								 rval
								:
								 Tads_Real
								):
								 Integer
								;

								function
								 acedRetT
								:
								 Integer
								;

								function
								 acedRetNil
								:
								 Integer
								;

								function
								 acedRetVoid
								:
								 Integer
								;


								function
								 acdbEntDel
								(
								const
								 ent
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acdbEntGetX
								(
								const
								 ent
								:
								 Tads_Name
								;
								
								
								const
								 args
								:
								 PResbuf
								):
								 PResbuf
								;

								function
								 acdbEntGet
								(
								const
								 ent
								:
								 Tads_Name
								):
								 PResbuf
								;

								function
								 acdbEntLast
								(
								var
								 ent
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acdbEntFirst
								(
								var
								 entres
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acdbEntNext
								(
								const
								 ent
								:
								 Tads_Name
								;
								
								
								var
								 entres
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acdbEntUpd
								(
								const
								 ent
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acdbEntMod
								(
								const
								 ent
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acdbEntMake
								(
								const
								 ent
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acdbEntMakeX
								(
								const
								 entm
								:
								 PResbuf
								;
								
								
								var
								 entres
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedEntSel
								(
								const
								 str
								:
								 AnsiString
								;
								
								
								var
								 entres
								:
								 Tads_Name
								;
								
								
								var
								 ptres
								:
								 Tads_Point
								):
								 Integer
								;

								function
								 acedNEntSel
								(
								const
								 str
								:
								 AnsiString
								;
								
								
								var
								 entres
								:
								 Tads_name
								;
								
								
								var
								 ptres
								:
								 Tads_point
								;
								
								
								var
								 xformres4
								:
								 Tads_point4
								;
								
								
								var
								 refstkres
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedNEntSelP
								(
								const
								 str
								:
								 AnsiString
								;
								
								
								var
								 entres
								:
								 Tads_Name
								;
								
								
								var
								 ptres
								:
								 Tads_Point
								;
								
								
								const
								 pickflag
								:
								 Boolean
								;
								
								
								var
								 xformres
								:
								 Tads_Matrix
								;
								
								
								var
								 refstkres
								:
								 PResbuf
								):
								 Integer
								;


								function
								 acedSSGet
								(
								const
								 str
								:
								 AnsiString
								;
								
								
								const
								 pt1
								,
								 pt2
								:
								 Pointer
								;
								
								
								const
								 filter
								:
								 PResbuf
								;
								
								
								var
								 ss
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedSSGetFirst
								(
								var
								 grip_set
								,
								 pickfirst_set
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedSSSetFirst
								(
								const
								 grip_set
								,
								 pickfirst_set
								:
								 Tads_name
								):
								 Integer
								;

								function
								 acedSSFree
								(
								var
								 sname
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedSSLength
								(
								const
								 sname
								:
								 Tads_Name
								;
								
								
								var
								 len
								:
								 Longint
								):
								 Integer
								;

								function
								 acedSSAdd
								(
								const
								 ename
								,
								 sname
								:
								 Pads_Name
								;
								
								
								var
								 entres
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedSSDel
								(
								const
								 ename
								,
								 ss
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedSSMemb
								(
								const
								 ename
								,
								 ss
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedSSName
								(
								const
								 ss
								:
								 Tads_Name
								;
								
								
								const
								 i
								:
								 Longint
								;
								
								
								var
								 entres
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedSSNameX
								(
								var
								 rbpp
								:
								 PResbuf
								;
								
								
								const
								 ss
								:
								 Tads_Name
								;
								
								
								const
								 i
								:
								 Longint
								):
								 Integer
								;


								function
								 acedSSGetKwordCallbackPtr
								(
								var
								 pFunc
								:
								 PKwordCallbackPtr
								):
								 Integer
								;

								function
								 acedSSSetKwordCallbackPtr
								(
								const
								 pFunc
								:
								 PKwordCallbackPtr
								):
								 Integer
								;

								function
								 acedSSGetOtherCallbackPtr
								(
								var
								 pFunc
								:
								 PKwordCallbackPtr
								):
								 Integer
								;

								function
								 acedSSSetOtherCallbackPtr
								(
								const
								 pFunc
								:
								 PKwordCallbackPtr
								):
								 Integer
								;


								function
								 acdbXdRoom
								(
								const
								 ent
								:
								 Tads_name
								;
								
								
								var
								 longres
								:
								 Longint
								):
								 Integer
								;

								function
								 acdbXdSize
								(
								const
								 rb
								:
								 PResbuf
								;
								
								
								var
								 longres
								:
								 Longint
								):
								 Integer
								;

								function
								 acdbTblNext
								(
								const
								 tblname
								:
								 AnsiString
								;
								 rewind
								:
								 Integer
								):
								 PResbuf
								;

								function
								 acdbTblSearch
								(
								const
								 tblname
								,
								 sym
								:
								 AnsiString
								;
								 setnext
								:
								 Integer
								):
								 PResbuf
								;

								function
								 acdbNamedObjDict
								(
								var
								 nameres
								:
								 Tads_name
								):
								 Integer
								;

								function
								 acdbDictSearch
								(
								const
								 dict
								:
								 Tads_name
								;
								
								
								const
								 sym
								:
								 AnsiString
								;
								 setnext
								:
								 Integer
								):
								 PResbuf
								;

								function
								 acdbDictNext
								(
								const
								 dict
								:
								 Tads_name
								;
								 rewind
								:
								 Integer
								):
								 PResbuf
								;

								function
								 acdbDictRename
								(
								const
								 dictname
								:
								 Tads_name
								;
								
								
								const
								 oldsym
								,
								 newsym
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acdbDictRemove
								(
								const
								 dictname
								:
								 Tads_name
								;
								
								
								const
								 symname
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acdbDictAdd
								(
								const
								 dictname
								:
								 Tads_name
								;
								
								
								const
								 symname
								:
								 AnsiString
								;
								
								
								const
								 newobj
								:
								 Tads_name
								):
								 Integer
								;

								function
								 acdbTblObjName
								(
								const
								 tblname
								,
								 sym
								:
								 AnsiString
								;
								
								
								var
								 nameres
								:
								 Tads_name
								):
								 Integer
								;

								function
								 acdbHandEnt
								(
								const
								 handle
								:
								 AnsiString
								;
								
								
								var
								 entres
								:
								 Tads_Name
								):
								 Integer
								;

								function
								 acedTrans
								(
								const
								 pt
								:
								 Tads_Point
								;
								
								
								const
								 rfrom
								,
								 rto
								:
								 PResbuf
								;
								
								
								const
								 disp
								:
								 Boolean
								;
								
								
								var
								 posres
								:
								 Tads_Point
								):
								 Integer
								;

								function
								 acdbAngToS
								(
								v
								:
								 Tads_real
								;
								 iunit
								,
								 prec
								:
								 Integer
								;
								
								
								var
								 str
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acutCvUnit
								(
								value
								:
								 Tads_real
								;
								
								
								const
								 oldunit
								,
								 newunit
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_real
								):
								 Integer
								;

								function
								 acutWcMatch
								(
								const
								 str
								,
								 pattern
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acdbRToS
								(
								val
								:
								 Tads_real
								;
								 iunit
								,
								 prec
								:
								 Integer
								;
								
								
								var
								 str
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acdbAngToF
								(
								const
								 str
								:
								 AnsiString
								;
								 iunit
								:
								 Integer
								;
								
								
								var
								 v
								:
								 Tads_real
								):
								 Integer
								;

								function
								 acdbDisToF
								(
								const
								 str
								:
								 AnsiString
								;
								 iunit
								:
								 Integer
								;
								
								
								var
								 v
								:
								 Tads_real
								):
								 Integer
								;


								function
								 acedSetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								const
								 resbuf
								:
								 PResbuf
								):
								 Integer
								;
								
								
								overload
								;

								// The specifying use of the acedSetVar function : Sets character string data to the system variable.
// acedSetVarŠÖ”‚Ì“Á’èŽg—p: •¶Žš—ñƒf[ƒ^‚ðƒVƒXƒeƒ€•Ï”‚֐ݒ肵‚Ü‚·B

								function
								 acedSetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								const
								 StrRes
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								// The specifying use of the acedSetVar function : Sets real value data to the system variable.
// acedSetVarŠÖ”‚Ì“Á’èŽg—p: ŽÀ”’lƒf[ƒ^‚ðƒVƒXƒeƒ€•Ï”‚֐ݒ肵‚Ü‚·B

								function
								 acedSetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								const
								 RealRes
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedSetVarReal
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								const
								 RealRes
								:
								 Tads_Real
								):
								 Integer
								;

								// The specifying use of the acedSetVar function : Sets integer value data to the system variable.
// acedSetVarŠÖ”‚Ì“Á’èŽg—p: ®”’lƒf[ƒ^‚ðƒVƒXƒeƒ€•Ï”‚֐ݒ肵‚Ü‚·B

								function
								 acedSetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								const
								 LongRes
								:
								 Longint
								):
								 Integer
								;
								
								
								overload
								;


								function
								 acedInitGet
								(
								val
								:
								 Integer
								;
								
								
								const
								 kwl
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetSym
								(
								const
								 sname
								:
								 AnsiString
								;
								
								
								var
								 value
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedPutSym
								(
								const
								 sname
								:
								 AnsiString
								;
								
								
								const
								 value
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedHelp
								(
								szFilename
								,
								 szTopic
								:
								 AnsiString
								;
								 iCmd
								:
								 Integer
								):
								 Integer
								;

								function
								 acutPrintf
								(
								const
								 strformat
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acutPrintf
								(
								const
								 strformat
								:
								 AnsiString
								;
								
								
								const
								 args
								:
								
								
								array
								
								
								of
								
								
								const
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acdbInters
								(
								const
								 from1
								,
								 to1
								,
								 from2
								,
								 to2
								:
								 Tads_point
								;
								 teston
								:
								 Integer
								;
								
								
								var
								 posres
								:
								 Tads_point
								):
								 Integer
								;


								function
								 acedGetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 retbuf
								:
								 PResbuf
								):
								 Integer
								;
								
								
								overload
								;

								// The specifying use of the acedGetVar function : Acquires character string data from the system variable.
// acedGetVarŠÖ”‚Ì“Á’èŽg—p: ƒVƒXƒeƒ€•Ï”‚©‚當Žš—ñƒf[ƒ^‚ðŽæ“¾‚µ‚Ü‚·B

								function
								 acedGetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 StrRes
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								// The specifying use of the acedGetVar function : Acquires real value data from the system variable.
// acedGetVarŠÖ”‚Ì“Á’èŽg—p: ƒVƒXƒeƒ€•Ï”‚©‚çŽÀ”’lƒf[ƒ^‚ðŽæ“¾‚µ‚Ü‚·B

								function
								 acedGetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 RealRes
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								// The specifying use of the acedGetVar function : Acquires integer value data from the system variable.
// acedGetVarŠÖ”‚Ì“Á’èŽg—p: ƒVƒXƒeƒ€•Ï”‚©‚琮”’lƒf[ƒ^‚ðŽæ“¾‚µ‚Ü‚·B

								function
								 acedGetVar
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 LongRes
								:
								 Longint
								):
								 Integer
								;
								
								
								overload
								;


								function
								 acedFindFile
								(
								const
								 fname
								:
								 AnsiString
								;
								
								
								var
								 fileres
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetEnv
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 val
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedSetEnv
								(
								const
								 sym
								,
								 val
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acedGetCfg
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 val
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetCfg
								(
								const
								 sym
								:
								 AnsiString
								;
								
								
								var
								 val
								:
								 AnsiString
								;
								 len
								:
								 Integer
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedSetCfg
								(
								const
								 sym
								,
								 val
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acdbSNValid
								(
								const
								 tbstr
								:
								 AnsiString
								;
								 pipetest
								:
								 Integer
								):
								 Integer
								;

								function
								 acdbXStrSave
								(
								const
								 pSource
								:
								 AnsiString
								;
								
								
								var
								 pDest
								:
								 AnsiString
								):
								 AnsiString
								;

								function
								 acdbXStrCase
								(
								str
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acedGetString
								(
								cronly
								:
								 Boolean
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 strres
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetStringB
								(
								cronly
								:
								 Boolean
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 strres
								:
								 AnsiString
								;
								 bufsize
								:
								 Integer
								):
								 Integer
								;

								function
								 acedMenuCmd
								(
								const
								 str
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedPrompt
								(
								const
								 str
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedAlert
								(
								const
								 str
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acdbRegApp
								(
								const
								 appname
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acedGetAngle
								(
								const
								 pt
								:
								 Pads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetAngle
								(
								const
								 pt
								:
								 Tads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetCorner
								(
								const
								 pt
								:
								 Pads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 posres
								:
								 Tads_Point
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetCorner
								(
								const
								 pt
								:
								 Tads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 posres
								:
								 Tads_Point
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetDist
								(
								const
								 pt
								:
								 Pads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetDist
								(
								const
								 pt
								:
								 Tads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetOrient
								(
								const
								 pt
								:
								 Pads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetOrient
								(
								const
								 pt
								:
								 Tads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetPoint
								(
								const
								 pt
								:
								 Pads_Point
								;
								
								
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 posres
								:
								 Tads_Point
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGetPoint
								(
								const
								 Pt
								:
								 Tads_Point
								;
								
								
								const
								 Prompt
								:
								 AnsiString
								;
								
								
								var
								 posres
								:
								 Tads_Point
								):
								 Integer
								;
								
								
								overload
								;


								function
								 acedGetInt
								(
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 intres
								:
								 Integer
								):
								 Integer
								;

								function
								 acedGetKword
								(
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 kwordres
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedGetReal
								(
								const
								 prompt
								:
								 AnsiString
								;
								
								
								var
								 realres
								:
								 Tads_Real
								):
								 Integer
								;

								function
								 acedGetInput
								(
								var
								 str
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acedVports
								(
								var
								 vlist
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedTextScr
								:
								 Integer
								;

								function
								 acedGraphScr
								:
								 Integer
								;

								function
								 acedTextPage
								:
								 Integer
								;

								function
								 acedRedraw
								(
								const
								 ent
								:
								 Tads_name
								;
								 mode
								:
								 Integer
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedRedraw
								(
								const
								 ent
								:
								 Pads_name
								;
								 mode
								:
								 Integer
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedOsnap
								(
								const
								 pt
								:
								 Tads_point
								;
								
								
								const
								 mode
								:
								 AnsiString
								;
								
								
								var
								 posres
								:
								 Tads_point
								):
								 Integer
								;

								function
								 acedGrRead
								(
								track
								:
								 Integer
								;
								
								
								var
								 itype
								:
								 Integer
								;
								
								
								var
								 retbuf
								:
								 PResbuf
								):
								 Integer
								;


								function
								 acedGrText
								(
								box
								:
								 Integer
								;
								
								
								const
								 text
								:
								 AnsiString
								;
								 hl
								:
								 Integer
								):
								 Integer
								;

								function
								 acedGrDraw
								(
								const
								 from1
								,
								 to1
								:
								 Tads_point
								;
								 color
								:
								 Integer
								;
								 hl
								:
								 Boolean
								):
								 Integer
								;

								function
								 acedGrVecs
								(
								const
								 vlist
								:
								 PResbuf
								;
								 mat
								:
								 Tads_matrix
								):
								 Integer
								;
								
								
								overload
								;

								function
								 acedGrVecs
								(
								const
								 vlist
								:
								 PResbuf
								;
								 mat
								:
								 Pads_matrix
								):
								 Integer
								;
								
								
								overload
								;


								function
								 acedXformSS
								(
								const
								 ssname
								:
								 Tads_Name
								;
								 genmat
								:
								 Tads_Matrix
								):
								 Integer
								;

								function
								 acedDragGen
								(
								const
								 ss
								:
								 Tads_Name
								;
								
								
								const
								 pmt
								:
								 AnsiString
								;
								 cursor
								:
								 Integer
								;
								 scnf
								:
								 PDragGenScnfPtr
								;
								 p
								:
								 Tads_Point
								):
								 Integer
								;

								function
								 acedSetView
								(
								const
								 view
								:
								 PResbuf
								;
								 vport
								:
								 Integer
								):
								 Integer
								;

								function
								 acedSyncFileOpen
								(
								const
								 FileToOpen
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acutAngle
								(
								const
								 pt1
								,
								 pt2
								:
								 Tads_point
								):
								 Tads_real
								;

								function
								 acutDistance
								(
								const
								 pt1
								,
								 pt2
								:
								 Tads_point
								):
								 Tads_real
								;

								procedure
								 acutPolar
								(
								const
								 pt
								:
								 Tads_point
								;
								 angle
								,
								 dist
								:
								 Tads_real
								;
								
								
								var
								 ptres
								:
								 Tads_point
								);


								function
								 acedGetFileD
								(
								const
								 title
								,
								 defawlt
								,
								 ext
								:
								 AnsiString
								;
								
								
								const
								 flags
								:
								 Integer
								;
								
								
								var
								 resbuf
								:
								 PResbuf
								):
								 Integer
								;

								function
								 acedGetFileDialog
								(
								const
								 title
								,
								 defawlt
								,
								 ext
								:
								 AnsiString
								;
								
								
								const
								 flags
								:
								 Integer
								;
								
								
								var
								 FileName
								:
								 AnsiString
								):
								 Integer
								;

								function
								 acedTextBox
								(
								const
								 args
								:
								 PResbuf
								;
								
								
								var
								 pt1
								,
								 pt2
								:
								 Tads_point
								):
								 Integer
								;

								function
								 acedTablet
								(
								const
								 args
								:
								 PResbuf
								;
								
								
								var
								 retbuf
								:
								 PResbuf
								):
								 Integer
								;


								function
								 acutIsAlpha
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsUpper
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsLower
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsDigit
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsXDigit
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsSpace
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsPunct
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsAlNum
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsPrint
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsGraph
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutIsCntrl
								(
								c
								:
								 Char
								):
								 LongBool
								;

								function
								 acutToUpper
								(
								c
								:
								 Char
								):
								 Char
								;

								function
								 acutToLower
								(
								c
								:
								 Char
								):
								 Char
								;


								function
								 acedGetCName
								(
								const
								 cmd
								:
								 AnsiString
								;
								
								
								var
								 strres
								:
								 AnsiString
								):
								 Integer
								;


								function
								 acedFNSplit
								(
								const
								 pathToSplit
								,
								 prebuf
								,
								 namebuf
								,
								 extbuf
								:
								 PChar
								):
								 Integer
								;


								// ***************************************** ADSDLG.H *****

								function
								 ads_load_dialog
								(
								const
								 dclfile
								:
								 AnsiString
								;
								
								
								var
								 dcl_id
								:
								 Integer
								):
								 Integer
								;

								function
								 ads_unload_dialog
								(
								dcl_id
								:
								 Integer
								):
								 Integer
								;

								function
								 ads_new_dialog
								(
								const
								 dlgname
								:
								 AnsiString
								;
								 dcl_id
								:
								 Integer
								;
								 def_callback
								:
								 PCLIENTFUNC
								;
								
								
								var
								 hdlg
								:
								 Tads_hdlg
								):
								 Integer
								;

								function
								 ads_new_positioned_dialog
								(
								const
								 dlgname
								:
								 AnsiString
								;
								 dcl_id
								:
								 Integer
								;
								 def_callback
								:
								 PCLIENTFUNC
								;
								 x
								,
								 y
								:
								 Integer
								;
								
								
								var
								 hdlg
								:
								 Tads_hdlg
								):
								 Integer
								;

								function
								 ads_start_dialog
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								var
								 status
								:
								 Integer
								):
								 Integer
								;

								function
								 ads_term_dialog
								:
								 Integer
								;


								function
								 ads_action_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								 tilefunc
								:
								 PCLIENTFUNC
								):
								 Integer
								;

								function
								 ads_done_dialog
								(
								hdlg
								:
								 Tads_hdlg
								;
								 status
								:
								 Integer
								):
								 Integer
								;

								function
								 ads_done_positioned_dialog
								(
								hdlg
								:
								 Tads_hdlg
								;
								 status
								:
								 Integer
								;
								
								
								var
								 x_result
								,
								 y_result
								:
								 Integer
								):
								 Integer
								;

								function
								 ads_set_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								,
								 value
								:
								 AnsiString
								):
								 Integer
								;

								function
								 ads_client_data_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								
								
								var
								 clientdata
								:
								 Pointer
								):
								 Integer
								;

								function
								 ads_get_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								
								
								var
								 value
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								function
								 ads_get_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								
								
								var
								 value
								:
								 AnsiString
								;
								 maxlen
								:
								 Integer
								):
								 Integer
								;
								
								
								overload
								;

								function
								 ads_get_attr
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								
								
								var
								 attr
								,
								 value
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								function
								 ads_get_attr
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								
								
								var
								 attr
								,
								 value
								:
								 AnsiString
								;
								 len
								:
								 Integer
								):
								 Integer
								;
								
								
								overload
								;

								function
								 ads_get_attr_string
								(
								tile
								:
								 Tads_htile
								;
								
								
								var
								 attr
								,
								 value
								:
								 AnsiString
								):
								 Integer
								;
								
								
								overload
								;

								function
								 ads_get_attr_string
								(
								tile
								:
								 Tads_htile
								;
								
								
								var
								 attr
								,
								 value
								:
								 AnsiString
								;
								 len
								:
								 Integer
								):
								 Integer
								;
								
								
								overload
								;


								function
								 ads_start_list
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								 operation
								,
								 index
								:
								 Smallint
								):
								 Integer
								;

								function
								 ads_add_list
								(
								const
								 item
								:
								 AnsiString
								):
								 Integer
								;

								function
								 ads_end_list
								:
								 Integer
								;


								function
								 ads_mode_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								 mode
								:
								 Smallint
								):
								 Integer
								;

								function
								 ads_dimensions_tile
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								;
								
								
								var
								 cx
								,
								 cy
								:
								 Smallint
								):
								 Integer
								;


								function
								 ads_start_image
								(
								hdlg
								:
								 Tads_hdlg
								;
								
								
								const
								 key
								:
								 AnsiString
								):
								 Integer
								;

								function
								 ads_vector_image
								(
								x1
								,
								 y1
								,
								 x2
								,
								 y2
								,
								 color
								:
								 Smallint
								):
								 Integer
								;

								function
								 ads_fill_image
								(
								x1
								,
								 y1
								,
								 x2
								,
								 y2
								,
								 color
								:
								 Smallint
								):
								 Integer
								;

								function
								 ads_slide_image
								(
								x1
								,
								 y1
								,
								 x2
								,
								 y2
								:
								 Smallint
								;
								
								
								const
								 slnam
								:
								 AnsiString
								):
								 Integer
								;

								function
								 ads_end_image
								:
								 Integer
								;


								// ***************************************** ADSLIB.H *****

								function
								 acrxUnlockApplication
								(
								appId
								:
								 Pointer
								):
								 LongBool
								;

								function
								 acrxApplicationIsLocked
								(
								const
								 modulename
								:
								 PChar
								):
								 LongBool
								;

								function
								 acrxLockApplication
								(
								appId
								:
								 Pointer
								):
								 LongBool
								;


								// ***************************************** RXCLASS.H *****

								function
								 newAcRxClass
								(
								const
								 className
								,
								 parentClassName
								:
								 PChar
								;
								 proxyFlags
								:
								 Integer 
								=
								
								
								0
								;
								 pseudoConstructor
								:
								 PpseudoConstructor 
								=
								
								
								nil
								;
								
								
								const
								 dxfName
								:
								 PChar 
								=
								
								
								nil
								;
								
								
								const
								 appName
								:
								 PChar 
								=
								
								
								nil
								):
								 TAcRxClass
								;
								
								
								overload
								;

								function
								 newAcRxClass
								(
								const
								 className
								,
								 parentClassName
								:
								 PChar
								;
								 dwgVer
								,
								 maintVer
								:
								 Integer
								;
								 proxyFlags
								:
								 Integer 
								=
								
								
								0
								;
								 pseudoConstructor
								:
								 PpseudoConstructor 
								=
								
								
								nil
								;
								
								
								const
								 dxfName
								:
								 PChar 
								=
								
								
								nil
								;
								
								
								const
								 appName
								:
								 PChar 
								=
								
								
								nil
								):
								 TAcRxClass
								;
								
								
								overload
								;

								procedure
								 acrxBuildClassHierarchy
								;

								procedure
								 deleteAcRxClass
								(
								pClassObj
								:
								 TAcRxClass
								);


								// ***************************************** RXDICT.H *****

								function
								 acrxSysRegistry
								:
								 TAcRxDictionary
								;


								// ***************************************** RXREGSVC.H *****

								function
								 acrxLoadModule
								(
								const
								 moduleName
								:
								 PChar
								;
								 printit
								:
								 LongBool
								;
								 asCmd
								:
								 LongBool 
								=
								 False
								):
								 LongBool
								;

								function
								 acrxLoadApp
								(
								const
								 appname
								:
								 PChar
								;
								 asCmd
								:
								 LongBool 
								=
								 False
								):
								 LongBool
								;

								function
								 acrxUnloadModule
								(
								const
								 moduleName
								:
								 PChar
								;
								 asCmd
								:
								 LongBool 
								=
								 False
								):
								 LongBool
								;

								function
								 acrxUnloadApp
								(
								const
								 appName
								:
								 PChar
								;
								 asCmd
								:
								 LongBool 
								=
								 False
								):
								 LongBool
								;

								function
								 acrxLoadedApps
								:
								 Pointer
								;

								function
								 acrxProductKey
								:
								 PChar
								;

								function
								 acrxProductLCID
								:
								 Cardinal
								;


								function
								 acrxRegisterApp
								(
								alr
								:
								 TAcadApp_LoadReasons
								;
								
								
								const
								 logicalName
								,
								 regPath
								:
								 PChar
								;
								 regkeyindex
								:
								 Integer
								;
								 bDwgU
								:
								 LongBool 
								=
								 False
								):
								 TAcadApp_ErrorStatus
								;

								function
								 acrxUnregisterApp
								(
								const
								 logicalname
								:
								 PChar
								;
								 bDwgU
								:
								 LongBool 
								=
								 False
								):
								 TAcadApp_ErrorStatus
								;

								function
								 acrxGetServiceSymbolAddr
								(
								serviceName
								,
								 symbol
								:
								 PChar
								):
								 Pointer
								;

								function
								 acrxRegisterService
								(
								serviceName
								:
								 PChar
								):
								 Pointer
								;

								function
								 acrxServiceIsRegistered
								(
								serviceName
								:
								 PChar
								):
								 Integer
								;


								// **********************************************************


								function
								 ads_queueexpr
								(
								const
								 expr
								:
								 AnsiString
								):
								 Integer
								;


								// ********************************************************** acdocman.h


								function
								 acDocManagerPtr
								:
								 TAcApDocManager
								;


								// ********************************************************** acedinet.h


								function
								 acedCreateShortcut
								(
								pvHwndParent
								:
								 Pointer
								;
								
								
								const
								 szLinkPath
								,
								 szObjectPath
								,
								 szDesc
								:
								 AnsiString
								):
								 TAdesk_Boolean
								;

								function
								 acedResolveShortcut
								(
								pvHwndParent
								:
								 Pointer
								;
								
								
								const
								 szLinkPath
								:
								 AnsiString
								;
								 szObjectPath
								:
								 AnsiString
								):
								 TAdesk_Boolean
								;

								function
								 acedGetUserFavoritesDir
								(
								szFavoritesDir
								:
								 AnsiString
								):
								 TAdesk_Boolean
								;

								function
								 acedCreateInternetShortcut
								(
								const
								 szURL
								,
								 szShortcutPath
								:
								 AnsiString
								):
								 TAdesk_Boolean
								;

								function
								 acedResolveInternetShortcut
								(
								const
								 szLinkFile
								:
								 AnsiString
								;
								 szUrl
								:
								 AnsiString
								):
								 TAdesk_Boolean
								;


								// ********************************************************** acprofile.h


								function
								 acProfileManagerPtr
								:
								 TAcApProfileManager
								;


								// ********************************************************** actrans.h


								function
								 acTransactionManagerPtr
								:
								 TAcTransactionManager
								;


								// ********************************************************** acutads.h


								procedure
								 acad_assert
								(
								const
								 Value1
								,
								 Value2
								:
								 AnsiString
								;
								 Value3
								:
								 Integer
								);


								// ********************************************************** asisys.h


								function
								 AsiObjectsInUse
								:
								 Longint
								;

								function
								 AsiMemoryMalloc
								(
								Value1
								:
								 Cardinal
								):
								 Pointer
								;

								procedure
								 AsiMemoryFree
								(
								Value1
								:
								 Pointer
								);

								function
								 AsiMemoryRealloc
								(
								Value1
								:
								 Pointer
								;
								 Value2
								:
								 Cardinal
								):
								 Pointer
								;

								function
								 AsiMemoryAddMsg
								(
								Value1
								:
								 Pointer
								;
								
								
								const
								 Value2
								:
								 AnsiString
								):
								 Pointer
								;


								// ********************************************************** dbacis.h


								procedure
								 acdbModelerStart
								;

								procedure
								 acdbModelerEnd
								;

								function
								 acdbIsModelerStarted
								:
								 TAdesk_Boolean
								;

								function
								 acdbAcisSaveEntityToDwgFiler
								(
								filer
								:
								 TAcDbDwgFiler
								;
								 ent
								:
								 TENTITY
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbAcisRestoreEntityFromDwgFiler
								(
								filer
								:
								 TAcDbDwgFiler
								;
								
								
								var
								 ent
								:
								 TENTITY
								):
								 TAcad_ErrorStatus
								;

								//function acdbAcisSaveEntityToDxfFiler(filer: TAcDbDxfFiler; ent: TENTITY): TAcad_ErrorStatus;
//function acdbAcisRestoreEntityFromDxfFiler(filer: TAcDbDxfFiler; var ent: TENTITY): TAcad_ErrorStatus;

								procedure
								 acdbAcisSetDeleteBulletins
								(
								onOff
								:
								 TAdesk_Boolean
								);

								function
								 acdbAcisGetDeleteBulletins
								:
								 TAdesk_Boolean
								;

								procedure
								 acdbAcisDeleteModelerBulletins
								;


								// ********************************************************** dbapserv.h


								function
								 getDefaultGlobals
								:
								 TAcDbGlobals
								;


								// ********************************************************** dbmain.h


								function
								 acdbGroupCodeToType
								(
								pCode
								:
								 TAcDb_DxfCode
								):
								 TAcDb_DwgDataType
								;

								procedure
								 acdbFreeResBufContents
								(
								pField
								:
								 PResbuf
								);

								function
								 acdbIsPersistentReactor
								(
								pSomething
								:
								 Pointer
								):
								 LongBool
								;

								function
								 acdbPersistentReactorObjectId
								(
								pSomething
								:
								 Pointer
								):
								 TAcDbObjectId
								;

								function
								 acdbOpenAcDbObject
								(
								var
								 pObj
								:
								 TAcDbObject
								;
								 id
								:
								 TAcDbObject
								;
								 mode
								:
								 TAcDb_OpenMode
								;
								 openErasedObject
								:
								 LongBool
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbOpenAcDbEntity
								(
								var
								 pEnt
								:
								 TAcDbEntity
								;
								 id
								:
								 TAcDbObjectId
								;
								 mode
								:
								 TAcDb_OpenMode
								;
								 openErasedEntity
								:
								 LongBool
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbGetAdsName
								(
								var
								 objName
								:
								 Pads_name
								;
								 objId
								:
								 TAcDbObjectId
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbGetObjectId
								(
								var
								 objId
								:
								 TAcDbObjectId
								;
								
								
								const
								 objName
								:
								 Tads_name
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbSetReferenced
								(
								objId
								:
								 TAcDbObjectId
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbActiveDatabaseArray
								:
								 TAcDbVoidPtrArray
								;

								function
								 acdbLoadMlineStyleFile
								(
								const
								 sname
								,
								 fname
								:
								 AnsiString
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbLoadLineTypeFile
								(
								const
								 ltname
								,
								 fname
								:
								 AnsiString
								;
								 pDb
								:
								 TAcDbDatabase
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbAlloc
								(
								Value1
								:
								 Tsize_t
								):
								 Pointer
								;

								function
								 acdbAlloc_dbg
								(
								ACDBG_FORMAL
								:
								 Tsize_t
								):
								 Pointer
								;

								procedure
								 acdbFree
								(
								Value1
								:
								 Pointer
								);

								function
								 acdbSetDefaultAcGiContext
								(
								Value1
								:
								 TAcGiContext
								):
								 TAcGiContext
								;

								function
								 acdbGetThumbnailBitmapFromDxfFile
								(
								const
								 filename
								:
								 AnsiString
								;
								
								
								var
								 pBitmap
								:
								 Pointer
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbSaveAsR14
								(
								pDb
								:
								 TAcDbDatabase
								;
								
								
								const
								 filename
								:
								 AnsiString
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbSaveAsR13
								(
								pDb
								:
								 TAcDbDatabase
								;
								
								
								const
								 filename
								:
								 AnsiString
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbDxfOutAsR14
								(
								pDb
								:
								 TAcDbDatabase
								;
								
								
								const
								 fileName
								:
								 AnsiString
								;
								
								
								const
								 precision
								:
								 Integer
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbDxfOutAsR13
								(
								pDb
								:
								 TAcDbDatabase
								;
								
								
								const
								 fileName
								:
								 AnsiString
								;
								
								
								const
								 precision
								:
								 Integer
								):
								 TAcad_ErrorStatus
								;

								function
								 acdbDxfOutAsR12
								(
								pDb
								:
								 TAcDbDatabase
								;
								
								
								const
								 fileName
								:
								 AnsiString
								;
								
								
								const
								 precision
								:
								 Integer
								):
								 TAcad_ErrorStatus
								;


								// ********************************************************** lngtrans.h


								function
								 acapLongTransactionManagerPtr
								:
								 TAcApLongTransactionManager
								;


								// ********************************************************** rxregsvc.h


								function
								 acrxObjectDBXRegistryKey
								:
								 AnsiString
								;


								// ********************************************************** xgraph.h


								function
								 acedGetCurDwgXrefGraph
								(
								var
								 Value1
								:
								 TAcDbXrefGraph
								;
								 includeGhosts
								:
								 TAdesk_Boolean
								):
								 TAcad_ErrorStatus
								;


								// ********************************************************** rxmfcapi.h


								function
								 acedGetAcadResourceInstance
								:
								 Longint
								;

								procedure
								 acedCoordFromPixelToWorld
								(
								var
								 ptIn
								:
								 PPOINT
								;
								 ptOut
								:
								 PacedDwgPoint
								);
								
								
								overload
								;

								function
								 acedCoordFromPixelToWorld
								(
								windnum
								:
								 Integer
								;
								 ptIn
								:
								 PPOINT
								;
								 ptOut
								:
								 PacedDwgPoint
								):
								 Boolean
								;
								
								
								overload
								;

								function
								 acedCoordFromWorldToPixel
								(
								windnum
								:
								 Integer
								;
								 ptIn
								:
								 PacedDwgPoint
								;
								
								
								var
								 ptOut
								:
								 PPOINT
								):
								 Boolean
								;

								function
								 acedGetWinNum
								(
								ptx
								,
								 pty
								:
								 Integer
								):
								 Integer
								;

								function
								 acedSetStatusBarProgressMeter
								(
								const
								 pszLabel
								:
								 AnsiString
								;
								 nMinPos
								,
								 nMaxPos
								:
								 Integer
								):
								 Integer
								;

								function
								 acedSetStatusBarProgressMeterPos
								(
								nPos
								:
								 Integer
								):
								 Integer
								;

								procedure
								 acedRestoreStatusBar
								;

								function
								 acedRegisterFilterWinMsg
								(
								const
								 pfn
								:
								 PAcedFilterWinMsgFn
								):
								 Boolean
								;

								function
								 acedRemoveFilterWinMsg
								(
								const
								 pfn
								:
								 PAcedFilterWinMsgFn
								):
								 Boolean
								;

								function
								 acedRegisterWatchWinMsg
								(
								const
								 pfn
								:
								 PAcedWatchWinMsgFn
								):
								 Boolean
								;

								function
								 acedRemoveWatchWinMsg
								(
								const
								 pfn
								:
								 PAcedWatchWinMsgFn
								):
								 Boolean
								;


								// *************************************************************************: Window Object


								function
								 acedGetAcadFrame
								:
								 Pointer
								;

								function
								 AcadGetIDispatch
								(
								AddRef
								:
								 LongBool
								):
								 IDispatch
								;

								function
								 acedRegisterExtendedTab
								(
								AppName
								,
								 FormName
								:
								 AnsiString
								):
								 LongBool
								;


								// ******************************************************************* DelphiARX
// **************************************************************: DelphiARX ORIGNAL. ResBuf Ex.

// --- ‹K’èŒ^‚ðƒoƒŠƒAƒ“ƒg”z—ñ‚Å—˜—p‚Å‚«‚éŒ^‚É•ÏŠ·‚·‚éŠÖ”
// --- The function which changes into the type which can use a rule type by the Variant arrangement
// Tads_PointŒ^‚ðƒoƒŠƒAƒ“ƒgŒ^‚É‚·‚é
// It makes Tads_Point type a Variant type.

								function
								 APosToVar
								(
								const
								 Point
								:
								 Tads_Point
								):
								 Longint
								;

								// Tads_BinaryŒ^‚ðƒoƒŠƒAƒ“ƒgŒ^‚É‚·‚é
// It makes Tads_Binary type a Variant type.

								function
								 ABinToVar
								(
								const
								 Binary
								:
								 Tads_Binary
								):
								 Longint
								;

								// Tads_NameŒ^‚ðƒoƒŠƒAƒ“ƒgŒ^‚É‚·‚é
// It makes Tads_Name type a Variant type.

								function
								 ANameToVar
								(
								const
								 Name
								:
								 Tads_Name
								):
								 Longint
								;

								// TResBufŒ^‚ðƒoƒŠƒAƒ“ƒgŒ^‚É‚·‚é
// It makes TResBuf type a Variant type.

								function
								 AResBufToVar
								(
								const
								 ResBuf
								:
								 TResBuf
								):
								 Longint
								;

								// --- darx_GetResVal‚Ŏ擾‚µ‚½ƒoƒŠƒAƒ“ƒg’l‚ð‹K’è‚ÌŒ^‚É•ÏŠ·‚·‚éŠÖ”
// --- The function which changes the Variant value which was acquired in darx_GetResVal into the type of the rule
// darx_GetResVal‚Ŏ擾‚µ‚½ResVal’l‚ðTads_Point‚É‚·‚é
// It makes the ResVal value which was acquired in darx_GetResVal Tads_Point.

								function
								 VarToAPos
								(
								const
								 ResVal
								:
								 Variant
								):
								 Tads_Point
								;

								// darx_GetResVal‚Ŏ擾‚µ‚½ResVal’l‚ðTads_Binary‚É‚·‚é
// It makes the ResVal value which was acquired in darx_GetResVal Tads_Binary.

								function
								 VarToABin
								(
								const
								 ResVal
								:
								 Variant
								):
								 Tads_Binary
								;

								// darx_GetResVal‚Ŏ擾‚µ‚½ResVal’l‚ðTads_Name‚É‚·‚é
// It makes the ResVal value which was acquired in darx_GetResVal Tads_Name.

								function
								 VarToAName
								(
								const
								 ResVal
								:
								 Variant
								):
								 Tads_Name
								;

								// darx_GetResVal‚Ŏ擾‚µ‚½ResVal’l‚ðTResBufŒ^‚É‚·‚é
// It makes the ResVal value which was acquired in darx_GetResVal TResBuf.

								function
								 VarToAResBuf
								(
								const
								 ResVal
								:
								 Variant
								):
								 TResBuf
								;


								// •¶Žš—ñ‚ðƒƒ‚ƒŠŠ„‚è“–‚Ä‚µ‚Ä‘ã“ü‚·‚é

								function
								 darxNewString
								(
								const
								 S
								:
								 AnsiString
								):
								 PChar
								;

								// Š„‚è“–‚Ä‚ç‚ꂽƒƒ‚ƒŠ‚ð‰ð•ú‚·‚é

								function
								 darxFreeString
								(
								const
								 S
								:
								 PChar
								):
								 PChar
								;

								// •¶Žš—ñ‚ðÄŠ„‚è“–‚Ä‚·‚é

								function
								 darxRenewString
								(
								const
								 oldS
								:
								 PChar
								;
								
								
								const
								 S
								:
								 AnsiString
								):
								 PChar
								;

								// PCharŒ^•¶Žš—ñ‚ðStringŒ^‚Å•Ô‚·

								function
								 darxPString
								(
								const
								 S
								:
								 PChar
								):
								 AnsiString
								;


								// ƒŠƒUƒ‹ƒgƒoƒbƒtƒ@‘€ì
// Œ^•s–¾‚ÌResType‚©‚烊ƒUƒ‹ƒgƒR[ƒh‚𓾂é(RTERROR‚ŃR[ƒhˆÙí)

								function
								 darxGetResCode
								(
								const
								 ResType
								:
								 Variant
								):
								 Smallint
								;

								// Žw’è‚̃ŠƒUƒ‹ƒgƒ^ƒCƒv‚ª‚Ç‚ÌŒ^‚©‚ð•Ô‚·(0=EOF,RTDXF0=uvString)

								function
								 darxGetResType
								(
								const
								 ResType
								:
								 Integer
								):
								 TResbufTypes
								;

								// ƒŠƒUƒ‹ƒgƒoƒbƒtƒ@‚ÉŽw’è‚·‚éResType‚ÅResValƒf[ƒ^‚ð“KØ‚ȃƒ‚ƒŠŠm•Û‚ð‚µ‚Ä“ü‚ê‚é

								function
								 darxResCopy
								(
								const
								 ResBuf
								:
								 PResbuf
								;
								
								
								const
								 ResType
								:
								 SmallInt
								;
								
								
								const
								 ResVal
								:
								 Variant
								):
								 TResbufTypes
								;

								// Žw’è‚̃ŠƒUƒ‹ƒgƒoƒbƒtƒ@‚ÌResType‚©‚ç“KØ‚ȃf[ƒ^‚𓾂é

								function
								 darxGetResVal
								(
								const
								 ResBuf
								:
								 PResbuf
								;
								
								
								var
								 ResVal
								:
								 Variant
								):
								 TResbufTypes
								;


								// ƒŠƒUƒ‹ƒgƒoƒbƒtƒ@‚É‚P‚–ڂ̃f[ƒ^‚ðƒZƒbƒg‚·‚é

								function
								 darxTreeFirstSet
								(
								const
								 ResType
								:
								 Smallint
								;
								
								
								const
								 ResVal
								:
								 Variant
								;
								
								
								var
								 ResBufTree
								:
								 TResBufTree
								):
								 Boolean
								;

								// ƒŠƒUƒ‹ƒgƒoƒbƒtƒ@‚ÉŽŸ‚̃f[ƒ^‚ðƒZƒbƒg‚·‚é

								function
								 darxTreeNextSet
								(
								const
								 ResType
								:
								 Smallint
								;
								
								
								const
								 ResVal
								:
								 Variant
								;
								
								
								var
								 ResBufTree
								:
								 TResBufTree
								):
								 Boolean
								;

								// ƒŠƒUƒ‹ƒgƒoƒbƒtƒ@‚ɏI—¹ƒR[ƒh‚ðƒZƒbƒg‚·‚é

								function
								 darxTreeEofSet
								(
								var
								 ResBufTree
								:
								 TResBufTree
								):
								 Boolean
								;


								// Žw’è‚Ì‚`‚q‚w‚ªƒ[ƒh‚³‚ê‚Ä‚¢‚é‚©ƒ`ƒFƒbƒN

								function
								 darxIsLoadedArx
								(
								const
								 ArxFileName
								:
								 AnsiString
								):
								 Boolean
								;

								// Renews the command line.
// AutoCAD‚ðXV‚·‚é

								procedure
								 darxAcadUpDate
								;

								// Confirms whether or not it may access AutoCAD.
// AutoCAD‚ÖƒAƒNƒZƒX‚ð‚µ‚Ä‚æ‚¢‚©Šm”F‚·‚é

								function
								 darxIsAccess
								:
								 Boolean
								;

								// AutoCADã‚сƒbƒZ[ƒWƒ_ƒCƒAƒƒO‚ðŽÀs‚·‚é

								function
								 darxMessageBox
								(
								szText
								,
								 szTitle
								:
								 AnsiString
								;
								 fuStyle
								:
								 Cardinal
								):
								 Integer
								;

								// “ú–{ŒêŠÂ‹«‚Å‚ ‚é‚©ƒeƒXƒg‚·‚é

								function
								 darxIsJapanese
								:
								 Boolean
								;

								// Windows98‘Ήž SetForeGroundWindow

								function
								 darxWinFocus
								(
								const
								 Handle
								:
								 HWND
								):
								 Boolean
								;

								// Application.ProcessMessages ‚Æ“¯‚¶ƒCƒxƒ“ƒg‰ž“š

								procedure
								 darxProcessMessages
								;

								// Stands by until the present process becomes an idle condition.
// Œ»Ý‚̃vƒƒZƒX‚ªƒAƒCƒhƒ‹ó‘Ô‚É‚È‚é‚Ü‚Å‘Ò‹@‚·‚é

								procedure
								 darxWaitIdle
								;

								// AutoCAD‚̃Rƒ}ƒ“ƒhƒ‰ƒCƒ“‚Ö•¶Žš—ñ‚ðŠO•”‚©‚ç‘—M

								function
								 darxInterCommand
								(
								const
								 Str
								:
								 AnsiString
								):
								 LongBool
								;


								implementation

end
								.