VB代码实现如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
写全局数据
            Private Sub writenamedict_Click()
            Dim database As MxDrawXLib.MxDrawDatabase
 
            Set database = MxDrawX1.GetDatabase
 
            Dim nameDict  As MxDrawXLib.MxDrawDictionary
 
            Set nameDict = database.GetNamedObjectsDictionary
 
            Dim myDict  As MxDrawXLib.MxDrawDictionary
 
            Set myDict = nameDict.AddObject("MyDict", "McDbDictionary")
 
            Dim xRecord As MxDrawXLib.MxDrawXRecord
            Set xRecord = myDict.AddXRecord("MyGlobalData")
 
 
            If (xRecord Is Nothing) Then
                    MsgBox "向字典中，增加扩展记录失败"
                    Exit Sub
            End If
 
 
            Dim xData2 As MxDrawXLib.MxDrawResbuf
            Set xData2 = New MxDrawXLib.MxDrawResbuf
 
 
 
                xData2.AddLong 99999
                xData2.AddDouble 666
 
                Set ptTest = New MxDrawXLib.MxDrawPoint
                ptTest.x = 77
                ptTest.y = -100
 
                xData2.AddPoint ptTest
 
                xData2.AddString "TestApp2", 1001
                xData2.AddString "张三2"
 
                xRecord.SetXRecordData2 xData2
 
                 MsgBox "写全局数据成功"
 
 
            End Sub
            取全上面写的全局数据
            Private Sub readnamedict_Click()
 
            Dim database As MxDrawXLib.MxDrawDatabase
 
            Set database = MxDrawX1.GetDatabase
 
            Dim nameDict  As MxDrawXLib.MxDrawDictionary
 
            Set nameDict = database.GetNamedObjectsDictionary
 
            Dim myDict As MxDrawXLib.MxDrawDictionary
            Set myDict = nameDict.GetAt("MyDict")
            If (myDict Is Nothing) Then
                    MsgBox "字典中,没有自定义数据"
                    Exit Sub
            End If
 
 
            Dim xRecord As MxDrawXLib.MxDrawXRecord
            Set xRecord = myDict.GetAt("MyGlobalData")
 
 
            If (xRecord Is Nothing) Then
                    MsgBox "向字典中,没有扩展记录"
                    Exit Sub
            End If
 
 
            Dim data As MxDrawXLib.MxDrawResbuf
 
            Set data = xRecord.GetXRecordData2
 
            data.PrintData
 
 
            End Sub

最新文章

  1. Netron开发快速上手（二）：Netron序列化
  2. Linux 查杀病毒的常见命令
  3. Hibernate之环境搭建及demo
  4. 看美剧英文字幕学英语的利器——“深蓝英文字幕助手”简介
  5. ios 使用xib时，在UIScrollView中添建内容view时，使用约束的注意
  6. [NOIP2008] 提高组 洛谷P1006 传纸条
  7. 【打表】HDOJ-2089-不要62
  8. android应用程序fps meter[帧数显示]的分析 —— 浅谈root的风险 (3)
  9. linux驱动程序之电源管理之linux的电源管理架构（3）
  10. wpf 异步使用
  11. FATE（费用背包，没懂）
  12. ContentProvider类的解析
  13. asp.net下利用MVC模式实现Extjs表格增删改查
  14. Linux安装jdk 8和环境变量配置
  15. 《JS权威指南学习总结--8.7 函数属性、方法和构造函数》
  16. 深入了解Android中的AsyncTask
  17. jmeter 使用jmeter 录制 手机APP脚本
  18. angular基础
  19. Java IO基础总结
  20. bugku crypto 告诉你一个秘密(ISCCCTF)

热门文章

  1. 使用DBMS_REDEFINITION在线切换普通表到分区表
  2. poj 2559求柱形图中最大矩形
  3. JAVA学习（三）：Java基础语法（变量、常量、数据类型、运算符与数据类型转换）
  4. oop_day06_抽象类、接口_20150814
  5. LeetCode 917. Reverse Only Letters (仅仅反转字母)
  6. BC - Zball in Tina Town (质数 + 找规律)
  7. hdu 1799 （循环多少次？）（排列组合公式）
  8. Web Tab, Project Properties
  9. JSP-Runoob：JSP 点击量统计
  10. Spark2.0 VS Spark 1.* -------SparkSession的区别