当前位置:知识库 / VB开发 / 详情
向数据库读写用户自定义的全局数据,通过扩展记录实体
向数据库读写用户自定义的全局数据,通过扩展记录实体
VB开发|大少爷|2017-07-27 11:49
回答:
写全局数据
            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


相关问题
得到图纸空间中所有实体
如何返回块引用的属性文本?
如何把DWG保存到服务器上?
设置控件开发环境
梦想CAD是专业的CAD插件(控件),可轻松在网页、手机及BS/CS程序中浏览编辑DWG文件,不需安装AutoCAD即可运行。经十余年累积已非常稳定可靠,有关键的空间搜索算法,并使用汇编优化,可同时处理50万级实体,有非常高的图形显示和处理效率。
联系我们
技术TEL:400-888-5703
185-8173-1060
客服I QQ: 3570505660
技术I QQ: 827867134
技术II QQ:6884123
VIP服务购买
销售TEL:156-8136-8971
销售QQ:710714273
用户交流
控件QQ交流群1:73281982
控件QQ交流群2:112199959
MxCAD软件群 1:515771658
技术I:QQ
827867134
客服I:QQ
3570505660
销售QQ
710714273
联系电话400-888-5703