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

CAD通过扩展记录实体向数据库读写用户自定义的全局数据（com接口VB语言）的更多相关文章

  1. CAD对象的夹点被编辑完成后调用事件（com接口VB语言）

    主要用到函数说明: _DMxDrawXEvents::ObjectGripEdit 对象的夹点被编辑完成后,会调用该事件,详细说明如下: 参数 说明 LONGLONG lId 对象的id LONG i ...

  2. CAD与用户互在图面上得到一个矩形框（com接口VB语言）

    主要用到函数说明: MxDrawXCustomFunction::ExApp_CutDwg 与用户互在图面上得到一个矩形框,详细说明如下: 参数 说明 IN DOUBLE dX1 保存范围的左下角位置 ...

  3. CAD与用户交互在图面上选择一个实体（com接口VB语言）

    主要用到函数说明: IMxDrawUtility::GetEntity 与用户交互到在图面上选择一个实体,详细说明如下: 参数 说明 [out] IMxDrawPoint** pPickPoint 返 ...

  4. CAD把自定义实体，变成普通实体（com接口VB语言）

    主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::explode 把自定义实体,变成普通实体,详细说明如下: 参数 说明 LONGLONG lEnt ...

  5. CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)

    由一个自定义实体事件中的id得到自定义实体对象.该函数只能在自定义实体事件中调用. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 2 ...

  6. CAD得到0层上的所有实体（com接口VB语言）

    主要用到函数说明: IMxDrawSelectionSet::Select 构造选择集.详细说明如下: 参数 说明 [in] MCAD_McSelect Mode 构造选择集方式 [in] VARIA ...

  7. CAD实现自定义实体夹点移动（com接口VB语言）

    主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt 自定义实体事件,自定义实体夹点被移动,详细说明如下: 参数 说明 ...

  8. CAD得到自定义实体拖放夹点（com接口VB语言）

    主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::getGripPoints 自定义实体事件,得到拖放夹点,详细说明如下: 参数 说明 LONGLO ...

  9. CAD绘制一个图象标记对象（com接口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 3 ...

随机推荐

  1. 用两种方法（递归和DP）实现了青蛙跳台阶

    做了这道题目: https://www.nowcoder.net/practice/8c82a5b80378478f9484d87d1c5f12a4?tpId=13&tqId=11161&am ...

  2. I/O虚拟化

    note:这里主要记录我对IO虚拟化的理解,希望这篇文章对想了解虚拟化IO的同学有点帮助.这是我在看论文[vale,a switched ethernet for virtual machines]的 ...

  3. 学习C语言，困难吗？

            要说计算机如今什么最火.无异于网络.看看各大计算机站点,满眼尽是网络project师,什么IP啊,路由啊,虚拟机啊,总之,操作性的计算机技能牢牢占领了半壁江山. 这些技巧当然重要.可是 ...

  4. LeetCode 953. Verifying an Alien Dictionary (验证外星语词典)

    题目标签:HashMap 题目给了我们一个 order 和 words array,让我们依照order 来判断 words array 是否排序. 利用hashmap 把order 存入 map, ...

  5. MongoDB使用初步

    我很快就要离开现在这个使用nodejs + mongodb + redis的项目,转而去搞 塞特ID 之类的别的项目了.可惜这些技术对我来说浅尝辄止,半生不熟,胎死腹中.业余时间自学当然也可以,但哪有 ...

  6. 关于PowerDesigner导出数据库表到word文档

    关于PowerDesigner导出数据库表到word文档 一.查看全部模板: powerdesigner默觉得我们提供了非常多的模版,在工具栏中选择[Report(报告)--->Report T ...

  7. android 6.1解锁

    1.adb reboot bootloader 2.fastboot flashing unlock 3.power 键即可

  8. [Android]通过adb shell input上报命令模拟屏幕点击事件【转】

    本文转载自:http://blog.csdn.net/yuanzihui/article/details/52871652 常用的 input上报命令: input text 1234 实际向界面注入 ...

  9. new (C# Reference)

    https://msdn.microsoft.com/en-us/library/51y09td4.aspx In C#, the new keyword can be used as an oper ...

  10. Webservice 的安全策略

      摘自:http://www.cnblogs.com/shengel/archive/2008/11/20/1337723.html   Webservice为作为方便的服务被用广大领域使用的同时, ...