CAD通过扩展记录实体向数据库读写用户自定义的全局数据（com接口VB语言）
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语言）的更多相关文章
- CAD对象的夹点被编辑完成后调用事件（com接口VB语言）
主要用到函数说明: _DMxDrawXEvents::ObjectGripEdit 对象的夹点被编辑完成后,会调用该事件,详细说明如下: 参数 说明 LONGLONG lId 对象的id LONG i ...
- CAD与用户互在图面上得到一个矩形框（com接口VB语言）
主要用到函数说明: MxDrawXCustomFunction::ExApp_CutDwg 与用户互在图面上得到一个矩形框,详细说明如下: 参数 说明 IN DOUBLE dX1 保存范围的左下角位置 ...
- CAD与用户交互在图面上选择一个实体（com接口VB语言）
主要用到函数说明: IMxDrawUtility::GetEntity 与用户交互到在图面上选择一个实体,详细说明如下: 参数 说明 [out] IMxDrawPoint** pPickPoint 返 ...
- CAD把自定义实体，变成普通实体（com接口VB语言）
主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::explode 把自定义实体,变成普通实体,详细说明如下: 参数 说明 LONGLONG lEnt ...
- 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 ...
- CAD得到0层上的所有实体（com接口VB语言）
主要用到函数说明: IMxDrawSelectionSet::Select 构造选择集.详细说明如下: 参数 说明 [in] MCAD_McSelect Mode 构造选择集方式 [in] VARIA ...
- CAD实现自定义实体夹点移动（com接口VB语言）
主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt 自定义实体事件,自定义实体夹点被移动,详细说明如下: 参数 说明 ...
- CAD得到自定义实体拖放夹点（com接口VB语言）
主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::getGripPoints 自定义实体事件,得到拖放夹点,详细说明如下: 参数 说明 LONGLO ...
- 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 ...
随机推荐
- Cisco路由器配置ADSL上网
cisco1841#sh run Building configuration... Current configuration : 2970 bytes ! version 12.4 service ...
- LeetCode 811. Subdomain Visit Count (子域名访问计数)
题目标签:HashMap 题目给了我们一组域名,让我们把每一个域名,包括它的子域名,计数. 遍历每一个域名,取得它的计数,然后把它的所有子域名和它自己,存入hashmap,域名作为key,计数作为va ...
- 分布式数据库中间件DDM的实现原理
随着数据量不断增大,传统的架构模式难以解决业务量不断增长所带来的问题,特别是在业务成线性.甚至指数级上升的情况.此时我们不得不通过水平扩展,把数据库放到不同服务器上来解决问题,也就是我们说的数据库中间 ...
- java(JSP)中几种获取项目路径方式
在jsp和class文件中调用的相对路径不同. 在jsp里,根目录是WebRoot 在class文件中,根目录是WebRoot/WEB-INF/classes 当然你也可以用System.getPro ...
- JPush 初始化失败，直接按照官方文档的格式写的，portal上的包名肯定不会错，mainfest里面直接指定${applicationId}
错误日志: 11-27 09:59:19.670 26124-26124/? D/dalvikvm: Late-enabling CheckJNI 11-27 09:59:20.008 26124-2 ...
- JZOJ 5461 购物 —— 贪心
题目:https://jzoj.net/senior/#main/show/5461 贪心,原来想了个思路,优先选优惠价最小的 K 个,然后其他按原价排序遍历: 如果当前物品没选过,原价选上,如果选过 ...
- Oracle查询列重命名
select count(*) 呼入量 from crm_cisco_call_detail
- gulp的使用安装
gulp安装:用cnpm的时候把npm换成cnpm就好了. npm install -g gulp(全局安装,安装一次就好) npm install --save-dev gulp(安装到项目目录下, ...
- DOM对象，控制HTML元素（1）
1:getElementsByName(name)方法 它是通过元素的name属性来查询元素,而不是通过id属性.getElementById()方法是通过元素的id属性来获取元素的. 注意: 该方法 ...
- Unity基本操作
主要内容: C#学习 Unity项目 打砖块:BreakBricks Unity操作 Unity操作: 调试 碰撞体 触发器 视角 键盘视角平移 光照贴图 游戏对象Gameobject 访问对象 实体 ...