excel与CAD的结合事例:自动绘图程序

huboxu

铁心计算与自动绘图程序
1. 本程序是在Excel里用VBA 编写，可选用程序中提供的各种产品的铁心截面图，也可自己输入片宽和片厚；
2.适用于各种形式的铁心图，如：圆形截面，长圆形截面，圆形轭，T 型轭’大轭等；
3.自动根据片厚计算各级片厚与片数（每级片数是4 的倍数，保证每次叠两片。）和重量；
4.图中每级厚是实际厚度，不按传统的取整；
5 .铁心图用AutoCad 自动绘制。
6. 本程序安装的是AutoCad 2004 ，如果你的计算机是其它版本，第一次运行铁心图时会出错提示找不到AutoCad ，请在“代码”的“工具”→ “引用” 栏内将你用的版本上打勾，去掉AutoCad 2004 即可。
7.文件夹中还有一个图框文件和各种铁心截面图的数据库；
8.如果要用本程序提供的铁心截面图，则必需用上此数据库；
9. 使用数据库请在“代码”的“工具”→ “引用” 栏内将中Microsoft DAO 3.6 Object Library ，Microsoft ActiveX Data Objects 2.5 Library 两文件打勾选用；

HHAAMM

听说AutoCad里编程也是用的VBA
只是楼主还在用DAO，这个用的人已经很少了，现在大家基本都用ADO

gwfzh

出现“找不到工程库”的错误

zopey

gwfzh 发表于 2012-6-8 10:50
出现“找不到工程库”的错误

alt+F11到“代码”窗口
选择“工具”→ “引用” 栏内去掉AutoCad 2004 ，将你用的版本上打勾。

梦幻圣手

好东西，收下啦！O(∩_∩)O谢谢{:soso_e100:}

opiona

我使用CAD2012版本
提示：不能运行AutoCAD,请检查是否安装了AutoCAD 2000"

1. Sub opiona()
   
2. '连接AutoACD
   
3. On Error Resume Next
   
4. Dim ACADAPP As AcadApplication
   
5. Set ACADAPP = GetObject("AUTOCAD.APPLICATION")
   
6. If Err Then
   
7.    Err.Clear
   
8.    Set ACADAPP = CreateObject("AUTOCAD.APPLICATION")
   
9.    If Err Then
   
10.       MsgBox ("不能运行AutoCAD,请检查是否安装了AutoCAD 2000")
    
11.       Exit Sub
    
12.    End If
    
13. End If
    
14. ACADAPP.Visible = True
    
15. End Sub

复制代码

帮忙看看代码有问题么？

huboxu

opiona 发表于 2012-12-11 14:10
我使用CAD2012版本
提示：不能运行AutoCAD,请检查是否安装了AutoCAD 2000"帮忙看看代码有问题么？

6. 本程序安装的是AutoCad 2004 ，如果你的计算机是其它版本，第一次运行铁心图时会出错提示找不到AutoCad ，请在“代码”的“工具”→ “引用” 栏内将你用的版本上打勾，去掉AutoCad 2004 即可。

hbumen

感谢~下载来研究研究

janruig

谢谢楼主分享！

叻咕仔

mark~ 作为参考~