CAD能引用的部件都引用了,可是还是不能调用,求直接做好的VB源程序,大侠发我邮箱[email protected],能帮我实现的,网银给打10个金
只要VB程序能自动调用打开AUTOCAD软件就可以了
追答那很简单啊,假设你用的是autocad 2004,打开cad,新建一个文件,随便在里面画点东西,然后存入到c:\test.dwg
打开vb,在工程、引用里面勾选autocad 2004 type libery,输入以下代码运行测试看看是否打开了你的c:\test.dwg应用
Private Sub Form_Load()
Dim cadapp As New AcadApplication
Dim cadfile As New AcadDocument
Set cadfile = cadapp.Documents.Open("c:\test.dwg")
cadapp.Visible = True
End Sub
'当然你可以用vb代码往里面画线、圆弧,或者标注什么的,功能比较全面,通过这个可以大幅提高重复工作的效率。比如有时候设计一个很长的河道断面,几百个断面,把GPS测量过来的数据,通过VB处理代码输出到CAD,自动画出各个断面图,顺便自动计算出各个断面开挖或回填面积等。
运行之后总是提示部件要求挂起 然后要切换到 过了几分钟提示AXTIVE X不能创建对象
我CAD是2007的 加了2007的类型库