ResultBuffer相关的常量值，如常用的5005代表string，5006代表objectId
1 ' Type of resbuf element
2 Const RTNONE As Short = 5000
3 ' No result
4 Const RTREAL As Short = 5001
5 ' Real number
6 Const RTPOshort As Short = 5002
7 ' 2D poshort X and Y only
8 Const RTSHORT As Short = 5003
9 ' Short integer
10 Const RTANG As Short = 5004
11 ' Angle
12 Const RTSTR As Short = 5005
13 ' String
14 Const RTENAME As Short = 5006
15 ' Entity name
16 Const RTPICKS As Short = 5007
17 ' Pick set
18 Const RTORshort As Short = 5008
19 ' Orientation
20 Const RT3DPOshort As Short = 5009
21 ' 3D poshort - X, Y, and Z
22 Const RTLONG As Short = 5010
23 ' Long integer
24 Const RTVOID As Short = 5014
25 ' Blank symbol
26 Const RTLB As Short = 5016
27 ' list begin
28 Const RTLE As Short = 5017
29 ' list end
30 Const RTDOTE As Short = 5018
31 ' dotted pair
32 Const RTNIL As Short = 5019
33 ' nil
34 Const RTDXF0 As Short = 5020
35 ' DXF code 0 for ads_buildlist only
36 Const RTT As Short = 5021
37 ' T atom
38 Const RTRESBUF As Short = 5023
39 ' resbuf
40 Const RTMODELESS As Short = 5027
41 ' interrupted by modeless dialog
42 '
43 ' Error return code
44 Const RTNORM As Short = 5100
45 ' Request succeeded
46 Const RTERROR As Short = -5001
47 ' Some other error
48 Const RTCAN As Short = -5002
49 ' User cancelled request -- Ctl-C
50 Const RTREJ As Short = -5003
51 ' AutoCAD rejected request -- invalid
52 Const RTFAIL As Short = -5004
53 ' Link failure -- Lisp probably died
54 Const RTKWORD As Short = -5005
55 ' Keyword returned from getxxx() routine
56 Const RTINPUTTRUNCATED As Short = -5008