可以使用VBA来实现:
1)启动cad,然后启动vba界面,在【工具】-》【引用】中,选择【Micrsoft Dao 3.6】
2)启动程序的编辑界面,输入代码:
dim dao as DAO.database
dim daors as DAO.Recordset
set dao=Open Database("e:\\xxx.mdb")
set daors= dao.OpenRecordset("表名字",2)
daors.movefirst
if(daors.recordcount<>0) then
=daors.fields("字段名")
............