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 ...
随机推荐
- uva 11212 - Editing a Book(迭代加深搜索 IDA*) 迭代加深搜索
迭代加深搜索 自己看的时候第一遍更本就看不懂..是非常水,但智商捉急也是没有办法的事情. 好在有几个同学已经是做过了这道题而且对迭代加深搜索的思路有了一定的了解,所以在某些不理解的地方询问了一下他们的 ...
- PL/SQL个人学习笔记
资料1 -- Created on 2014/8/20 declare -- Local variables here i integer; begin i := 12; -- T ...
- jvm 堆内存 栈内存 大小设置
4种方式配置不同作用域的jvm的堆栈内存. 1.Eclise 中设置jvm内存: 改动eclipse的配置文件,对全部project都起作用 改动eclipse ...
- Boost Asioserver使用
今天主要想说道说道boost里面的网络通信库怎样设计和使用,由于近期一直在和网络一起工作,大数据处理和机器学习都离不开最后使用网络进行上线部署.先看看所有的源码吧. #include <cstd ...
- 获取Access数据里所有表的名称和表的字段
-------------//获取Access数据库表名 public void GetTableName() { string connSt ...
- bzoj 4537 最小公倍数
给定一张N个顶点M条边的无向图 每条边上带有权值 所有权值都可以分解成2^a*3^b的形式 q个询问,每次询问给定四个参数u.v.a和b,请你求出是否存在一条顶点u到v之间的路径,使得路径依次经过的边 ...
- jqxtree异步加载部门树
整体思路 A.要想实现异步加载第一次加载的是一级部门 B.加载一级部门,如果有子部门,部门前面带+号,没有子部门,部门前面没有+号(+号也就是点击可以展开) C.在sql中实现如果有子部门默认都加载一 ...
- [Swift通天遁地]五、高级扩展-(11)图像加载Loading动画效果的自定义和缓存
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★➤微信公众号:山青咏芝(shanqingyongzhi)➤博客园地址:山青咏芝(https://www.cnblogs. ...
- Vue导航守卫beforeRouteEnter，beforeRouteUpdate，beforeRouteLeave详解
Vue导航守卫以我自己的理解就是监听页面进入,修改,和离开的功能.每个守卫接受三个参数 to: Route: 即将要进入的目标路由对象 from: Route: 当前导航正要离开的路由 next: F ...
- 微信小程序调用微信支付
1,首先我们先缕清支付的整个流程,详见https://pay.weixin.qq.com/wiki/doc/api/wxa/wxa_api.php?chapter=7_4&index=3,第一 ...