3761
社区成员
- 主页
- 问答
如何实现读写AUTOCAD的DWG(R14 R200)文件?谢谢大家,分不够可以再加.
我主要是想把EXCEL文件的内容读出来,放到DWG文件,不知如何实现,谢谢了.
大家给我推荐点文档或开发工具
大家给我推荐点文档或开发工具
...全文
请发表友善的回复…
发表回复
Wyhshp 2005-01-02
Arx，DBX都可以
YFLK 2004-12-28
EXCEL文件的表格可以直接放到DWG文件，用COPY和帖贴，在CAD中调整好位置和大小后在炸开，就成CAD的数据了
commandconque 2004-12-16
我查了以前编写的VBA程序，没有关于excle的，但有access的，
下面的代码你可以参考下：
1、在CAD的VBA开发环境菜单中，【工具】－>【引用】－>在列表中选择Microsoft Dao 3.0 Jet
2、程序可以使用DAO数据库变量了:
dim dao as daodatabase
dim daors as daorecordset
set dao = OpenDatabase(" 文件全名.mdb")
set daors =dao.Open("数据表全名",2)
daors.MoveFirst
IF( daors.RecordCount<>0) THEN
'读数据表的记录
set xxx=daors.Fields("字段名")
或 set xxx=daors.Fields(字段号)
EndIF
记录指针的移动命令
daors.MovePrevious
daors.MoveNext
daors.BOF
下面的代码你可以参考下：
1、在CAD的VBA开发环境菜单中，【工具】－>【引用】－>在列表中选择Microsoft Dao 3.0 Jet
2、程序可以使用DAO数据库变量了:
dim dao as daodatabase
dim daors as daorecordset
set dao = OpenDatabase(" 文件全名.mdb")
set daors =dao.Open("数据表全名",2)
daors.MoveFirst
IF( daors.RecordCount<>0) THEN
'读数据表的记录
set xxx=daors.Fields("字段名")
或 set xxx=daors.Fields(字段号)
EndIF
记录指针的移动命令
daors.MovePrevious
daors.MoveNext
daors.BOF
commandconque 2004-12-15
用vba吧
cadinfo 2004-12-15
ObjectARX啊
大可山人 2004-12-14
需要首先下载AutoCad的SDK开发文档吧，然后再根据开发文档进行。不同的大型应用程序一般都提供SDK的，你可以去下载。没有开发文档你是没有办法做的。
Cell 2004-12-14
难道就没有办法吗？不该啊，那么都把ＢＭＰ转换成ＤＷＧ的工具呢，人家是怎么做的？
寻开心 2004-12-14
autodesk提供了多组开发插件和接口
针对不同类型的开发者，提供不同的方式
都需要添表申请的 ：（
针对不同类型的开发者，提供不同的方式
都需要添表申请的 ：（