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 ...
随机推荐
- Android中apk动态载入技术研究（2）android插件化及实现
了解了android中类载入的前期知识点后,来看看android中DexClassLoader详细的实现 详细载入流程例如以下: 宿主程序会到文件系统比方SD卡中去载入APK[1],然 ...
- cc2540 usbdongle 安装驱动失败的终极解决方法 【原创，多图】
Ghost winxp win7系统安装CC2540 usbdongle CDC驱动程序 [重要提示] 因为非常多朋友使用Ghost系统.导致安装cdc驱动时安装不成功,出现 "INF中的服 ...
- ios15--综合小例子
// // XMGViewController.m,控制器类 #import "XMGViewController.h" #import "XMGShop.h" ...
- ALSA声卡驱动中的DAPM详解之四：在驱动程序中初始化并注册widget和route
前几篇文章我们从dapm的数据结构入手,了解了代表音频控件的widget,代表连接路径的route以及用于连接两个widget的path.之前都是一些概念的讲解以及对数据结构中各个字段的说明,从本章开 ...
- Web Tab, Project Properties
https://msdn.microsoft.com/en-us/library/aa983445(v=vs.100).aspx The Web tab of the project Properti ...
- FormatString格式大众人全
FormatString格式大众人全 Posted on 2010-08-12 16:14 moss_tan_jun 阅读(457) 评论(0) 编辑 收藏 格式化日期和数字的字符串经常要用到这个, ...
- 使用EL表达式正确情况下报错：javax.servlet.jsp cannot be resolved to a type
这个错误可能是服务器自带的servlet库未导入的原因.右键项目属性,转到Targeted Runtimes,选择一个服务器,例如Tomcat,单击应用,可能就可以解决.
- 【Codeforces 429D】 Tricky Function
[题目链接] http://codeforces.com/problemset/problem/429/D [算法] 令Si = A1 + A2 + ... + Ai(A的前缀和) 则g(i,j) = ...
- JSP-Runoob：JSP 调试
ylbtech-JSP-Runoob:JSP 调试 1.返回顶部 1. JSP 调试 要测试/调试一个JSP或servlet程序总是那么的难.JSP和Servlets程序趋向于牵涉到大量客户端/服务器 ...
- ARM VM安装Linux Diagnostic 2.3扩展
目前创建的Azure Linux虚拟机默认安装的是LAD 3.0,如果客户有特殊需求,可以通过如下方法安装LAD 2.3 1.在Azure Portal卸载LAD 3.0 2.使用Azure Powe ...