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 ...
随机推荐
- 【CV论文阅读】Two stream convolutional Networks for action recognition in Vedios
论文的三个贡献 (1)提出了two-stream结构的CNN,由空间和时间两个维度的网络组成. (2)使用多帧的密集光流场作为训练输入,可以提取动作的信息. (3)利用了多任务训练的方法把两个数据集联 ...
- PKU 3667 Hotel （线段树，区间合并，最长连续区间）
题意:宾馆有N个房间(1~N),M个操作,a=1,输入b,表示N间房是否有连续的b间房.有输出最左边的房编号 没有输出0.a=2,输入b,c表示房间b到c清空. 模仿了大神的代码,敲了一遍,有些地方还 ...
- HDU 1242 -Rescue (双向BFS）&&（ BFS+优先队列)
题目链接:Rescue 进度落下的太多了,哎╮(╯▽╰)╭,渣渣我总是埋怨进度比别人慢...为什么不试着改变一下捏.... 開始以为是水题,想敲一下练手的,后来发现并非一个简单的搜索题,BFS做肯定出 ...
- android开发艺术探索学习 之 结合Activity的生命周期了解Activity的LaunchMode
转载请标明出处: http://blog.csdn.net/lxk_1993/article/details/50749728 本文出自:[lxk_1993的博客]: 首先还是先介绍下Activity ...
- 尊重百度的api语音合成规则
屏幕显示字幕内容与形式 和 字幕的播放时长分离 : 去除标点符号的影响 # 设置分句的标志符号:可以根据实际需要进行修改 # cutlist = ".!?".decode('ut ...
- Unable to update auto-refresh reference 'microsoft.codedom.providers.dotnetcompilerplatform.dll'.
Unable to update auto-refresh reference 'microsoft.codedom.providers.dotnetcompilerplatform.dll'. Ca ...
- poj 2104 K-th Number（主席树，详细有用）
poj 2104 K-th Number(主席树) 主席树就是持久化的线段树,添加的时候,每更新了一个节点的线段树都被保存下来了. 查询区间[L,R]操作的时候,只需要用第R棵树减去第L-1棵树就是区 ...
- 八大排序算法（Python）
一.插入排序 介绍 插入排序的基本操作就是将一个数据插入到已经排好序的有序数据中,从而得到一个新的.个数加一的有序数据. 算法适用于少量数据的排序,时间复杂度为O(n^2). 插入 ...
- AcWing算法基础1.2
排序 归并排序 归并排序和快速排序相反,快排是先排后分再合并,归并则是先分后排再合并 归并排序时间复杂度是O(n logn) 分析: ------------------------------ ...
- find_in_set的用法（某个字段包含某个字符）
有个文章表里面有个type字段,他存储的是文章类型,有 1头条,2推荐,3热点,4图文 .....11,12,13等等 现在有篇文章他既是 头条,又是热点,还是图文, type中以 1,3,4的格式存 ...