[必看]：高手请进！

fjw_ok

如图

fjw_ok

怪了图怎没贴上？

efan2000

左边的数字包含了扩展数据，而右边的数字则没有，如下是左边数字的扩展数据的结构。

1. 
   
2.   [FONT=courier new]
   
3. * 已注册外部应用程序名: BH0
   
4. * 组码 1000，ASCII 字符串: 58D
   
5. 
   
6. * 已注册外部应用程序名: BH
   
7. * 组码 1000，ASCII 字符串: 58B
   
8. 
   
9.   [/FONT]
   

复制代码

fjw_ok

斑竹：这个如何注册？以前你好象贴过读取的！

efan2000

用实体对象的GetXData获取扩展数据，SetXData设置扩展数据。其中组码为1001的就是注册外部应用程序名称，如已注册外部应用程序名: BH0。而组码为1000的就是字符串。下面是个例子，自己参考一下。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Dim DataType(0 To 9) As Integer
   
6.     Dim Data(0 To 9) As Variant
   
7.     Dim reals3(0 To 2) As Double
   
8.     Dim worldPos(0 To 2) As Double
   
9.    
   
10.     DataType(0) = 1001: Data(0) = "Test_Application"
    
11. 
    
12.     DataType(1) = 1000: Data(1) = "This is a test for xdata"
    
13. 
    
14.     DataType(2) = 1003: Data(2) = "0"                   ' layer
    
15.     DataType(3) = 1040: Data(3) = 1.23479137438413E+40  ' real
    
16.     DataType(4) = 1041: Data(4) = 1237324938            ' distance
    
17.     DataType(5) = 1070: Data(5) = 32767                 ' 16 bit Integer
    
18.     DataType(6) = 1071: Data(6) = 32767                 ' 32 bit Integer
    
19. 
    
20.     DataType(7) = 1042: Data(7) = 10                    ' scaleFactor
    
21. 
    
22.     reals3(0) = -2.95: reals3(1) = 100: reals3(2) = -20
    
23.     DataType(8) = 1010: Data(8) = reals3                ' real
    
24.    
    
25.     worldPos(0) = 4: worldPos(1) = 400.99999999: worldPos(2) = 2.798989
    
26.     DataType(9) = 1011: Data(9) = worldPos              ' world space position
    
27. 
    
28.    
    
29.     ' Attach the xdata to the line
    
30.     lineObj.SetXData DataType, Data
    
31.    
    
32.     ' Return the xdata for the line
    
33.     Dim xdataOut As Variant
    
34.     Dim xtypeOut As Variant
    
35.     lineObj.GetXData "", xtypeOut, xdataOut
    
36. 
    
37.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Dim DataType(0 To 9) As Integer<br />     Dim Data(0 To 9) As Variant<br />     Dim reals3(0 To 2) As Double<br />     Dim worldPos(0 To 2) As Double<br />     <br />     DataType(0) = 1001: Data(0) = "Test_Application"<br /> <br />     DataType(1) = 1000: Data(1) = "This is a test for xdata"<br /> <br />     DataType(2) = 1003: Data(2) = "0"                   ' layer<br />     DataType(3) = 1040: Data(3) = 1.23479137438413E+40  ' real<br />     DataType(4) = 1041: Data(4) = 1237324938            ' distance<br />     DataType(5) = 1070: Data(5) = 32767                 ' 16 bit Integer<br />     DataType(6) = 1071: Data(6) = 32767                 ' 32 bit Integer<br /> <br />     DataType(7) = 1042: Data(7) = 10                    ' scaleFactor<br /> <br />     reals3(0) = -2.95: reals3(1) = 100: reals3(2) = -20<br />     DataType(8) = 1010: Data(8) = reals3                ' real<br />     <br />     worldPos(0) = 4: worldPos(1) = 400.99999999: worldPos(2) = 2.798989<br />     DataType(9) = 1011: Data(9) = worldPos              ' world space position<br /> <br />     <br />     ' Attach the xdata to the line<br />     lineObj.SetXData DataType, Data<br />     <br />     ' Return the xdata for the line<br />     Dim xdataOut As Variant<br />     Dim xtypeOut As Variant<br />     lineObj.GetXData "", xtypeOut, xdataOut<br /> <br />   [/FONT]<br />