vb读取cad表格数据 然后存到数据库里 有哪位高手会

Question

vb读取cad表格数据 然后存到数据库里 有哪位高手会 
比较着急 再线等 也可以购买代码 非常着急

Answer 1

autocad2005以上版本才有真正的表格，你是指这种表格吗？

Answer 2

如果你说的是这个Sub Example_Database()
    ' This example references the Database object obtained from model space.
    ' Information from the Database object is then displayed
    
    Dim Database As AcadDatabase
    
    ' Attach to Database object
    Set Database = ThisDrawing.ModelSpace.Database
    MsgBox "We now have access to the properties and methods of the Database object!"
    
    ' Retrieve the number of Blocks in this database
    MsgBox "The number of Blocks in this database is: " & Database.Blocks.count    ' Release object
    Set Database = Nothing
    MsgBox "The Database object has been released!"
End Sub