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ƒ‹ƒgEƒ^ƒ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‚ðXV‚·‚é
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
.
DelphiARX 2000i DArxApi库
最新推荐文章于 2020-08-18 19:15:37 发布