有高手吗？请教autodskmap objectdata

ggy0648

Dim db As Database = New Database(False, True)
        HostApplicationServices.WorkingDatabase = db
        db.ReadDwgFile(dwgstr, IO.FileShare.ReadWrite, False, Nothing)
        Dim db As Database = HostApplicationServices.WorkingDatabase
        Dim trans As Transaction = db.TransactionManager.StartTransaction
        Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        Dim ids As ObjectId()
        Dim id As ObjectId

For Each id In ids
         Dim mapApp As MapApplication
        mapApp = HostMapApplicationServices.Application
        Dim activeProject As Project.ProjectModel = mapApp.ActiveProject
        Dim tableList As ObjectData.Tables = activeProject.ODTables
        Dim records As Records
        Dim record As Record
        Dim val_1 As MapValue
        Dim valInt As Integer = 0
        Dim valDouble As Double = 0.0
        Dim str As String = Nothing
        Dim str_list As String = Nothing
        '  For Each record In records
        Dim table As ObjectData.Table = tableList("XZQ")
        records = table.GetObjectTableRecords(0, id, Constants.OpenMode.OpenForRead, True)                        

next id

为什么用ReadDwgFile读取的文件使用map函数ObjectData.Table失效

小狼

我也很想知道怎么样能通过后台方式提取dwg的对象数据

问号兄233

小狼 发表于 2008-11-27 18:37
我也很想知道怎么样能通过后台方式提取dwg的对象数据

后台读取dwg你要用到openfiledialog类选取你要后台读取的文件，然后再用db.ReadDwgFile就能获取全部的id了，我比较在意题主的objectdata是如何定义生成的。