[VBA程序]：连到access数据库

savasava

请问斑竹 ，各位高手
   我想把 cad 中的line  polyline 的起点和终点坐标 全部列出到access数据库中 然后 计算任何一点到每一点的距离 如果小于 一给定距离就 把这两点合并成一点

efan2000

置顶的精华贴子中，有一篇是介绍如何把短线合成长线的，它就是在一条多段线中的顶点过密（即顶点之间距离过短）时该如何解决。

smallbuy

请问efan2k：有没有用access做标件库的小例子？

efan2000

做标准件库，就是将保存在数据库中的数据读出，然后按照预定的格式生成零件。这里涉及数据库的操作，主要是数据的格式定义，还有在ACAD如何读取数据，生成图形，也就是实现参数化作图。

smallbuy

不是这个意思，我的原意是将c:\mydwg\*.dwg（很多），每个dwg都有唯一代码（图形中的图纸编号），我想是否能在mdb中建立象超连接那样，在mdb中任选一表的编号，就打开相应的dwg，这可行吗？也就是先在access或excel中读取dwg图形中的编号，然后建立记录，同时生成超连接，有空请考虑一下，谢谢您！

efan2000

这种方式并不需要CAD的编程，而直接在Excel的某个单元格中指定超级链接，将它指向一个CAD的文件，然后点击这个单元格，就会自动运行CAD，打开这个文件。使用代码添加时，如：ActiveSheet.Hyperlinks.Add Anchor:=Range(A1), Address:="D:\200305001.dwg"，表示在当前活动的工作表的超级链接集合中添加一个超级链接，指向A1单元格，文件是D:\200305001.dwg。

smallbuy

我会一些excel编程，但cad的刚学，而且各dwg的特征并不是文件名，我想取出1.dwg中的表格中的"图号"单元格右边一列的单元格的东东不知如何写代码？你知道，我用的是excel的叫法，cad的不知是不是如此称呼？请给一文件示例，thanks！如果1.dwg文件中有多个表格，不连续，格式一样，那分别取出“图号”右边一列格的东东又该如何？我知道，这对你很简单，请帮帮我，好吗？

efan2000

AutoCAD中没有表格对象，因而对于标题栏或者明细表，还有的工程量表之类的，一般是做成一个图块，或者表格每一行一样的可以仅对一行做成一个图块，利用属性保存数据。然后图块插入到图纸中后，变更属性的值就会显示出不同的值，最后利用属性提取或者专门的程序来导出属性到外部文件。
贴一张你的图纸的内容和导出到Excel之后的格式。

smallbuy

efan2k,可否随意画两个2*3,2*4的表格，两表任意左列添“图号”，相应右格添一些数字，如何代码分别取出到myexcel.xls的sheet1的[a1],[a2]?请给个文件，非常感谢！对了，问个题外话，efan2k，我上网较少，但你是不是每天晚上都要来这？是必须的吗？你没有自己的业余空间吗？如不方便，可以不答！

efan2000

由于ACAD本身没有表格处理的功能，要在它那做表格是比较麻烦的事，一般是利用其它程序生成，但有个缺陷，就是只能作为显示，而不能做为数据管理，也即没有后期处理功能，需要编写一个专门的程序来处理，而这个程序可能只能针对某一类的表格进行识别，通用性很小。
由于专业所限，我没有涉及这方面，故也没有现成的之类的。有兴趣可以一同探讨。我一般正常工作日会经常上网，但仅限于中午和晚上，由于中午在单位上网，没有适合的环境，所以有些问题可能仅凭经验，而没有实际操作，出现在差错较大。晚上一般在家上网，周末或者节假日就不一定了。现在工作了，不比学生时代，也没有那么多的空余时间，自己的业余生活早已经浓缩了。