CAD开发 追加扩展属性

CAD开发 追加扩展属性     '''

    ''' 获得实体扩展

记录

混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载

的

内容

财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容

    '''

    '''     '''     '''     '''     '''     Public Sub GetXRecord(ByVal ent As AcadEntity, ByVal key As String, ByRef xDataType As Object, ByRef xData As Object)         Dim objDict As AcadDictionary         Dim objXRecord As AcadXRecord         Try             objDict = ent.GetExtensionDictionary()             objXRecord = objDict.GetObject(key)             objXRecord.GetXRecordData(xDataType, xData)         Catch ex As Exception             xDataType = Nothing             xData = Nothing         End Try     End Sub     '''

    ''' 向实体追加扩展记录     '''

    '''     '''     '''     '''     '''     Public Sub AddXRecord(ByVal ent As AcadEntity, ByVal key As String, ByVal xDataType As Object, ByVal xData As Object)         Dim objDict As AcadDictionary         Dim objXRecord As AcadXRecord         objDict = ent.GetExtensionDictionary()         objXRecord = objDict.AddXRecord(key)         objXRecord.SetXRecordData(xDataType, xData) End Sub 点击下载类文件