可怜可怜我帮帮忙

xiaohaiclj

我是菜鸟,谁可以帮我写个VB的小程序,要自动连接CAD的,还有最好告诉我在配置环境的详细过程,我怎么也连不上CAD啊!!!这个是我自己看书写的可是不管用,大哥大姐帮我写个学习下好么? Dim acadapp As AcadApplication
Set acadapp = GetObject("", "AutoCAD.Application")

ntchjie

这段子程序一般在任何一本cad二次开发的书上都有的。 Public Function AcadOpen()
'以下连接AutoCAD2000
On Error Resume Next
Set acadObj = GetObject(, "AutoCAD.Application.15")
If Err Then
Set acadObj = CreateObject("AutoCAD.Application.15")
Err.Clear
End If
acadObj.Visible = True
End Function

xiaohaiclj

这个例子使用于哪个CAD版本啊?

xiaohaiclj

"AutoCAD.Application.15         为什么加.15在工程/引用里到底点哪个CAD的程序?


我这里带CAD的程序一共有12个

xiaohaiclj

好我找到了.15是ACAD2000的版本(在92页找到的哈哈开心)


但是是不是必须在程序里写上响应的版本呢?


工程/应用里不同版本的CAD都是什么英文拼写?我现在最着急的是引用的时候不知道那么


多带CAD的名字我到底要把哪个点上对号

subtlation

楼主现在的情况适合先拿一本书一页一页的看过去，并按书上的方法一步步的跟着做。

xiaohaiclj

我在工地啊,我刚到设计院就派去当设计代表了,什么名字的书写了这些东西?


我就是按照这个网站VBA开发那里的教材学的啊,


可是不知道是初始化CAD出了毛病还是怎么回事就是启动不了CAD


所以才厚脸皮到这里来求助,我都研究了1天多了,我原来是学FOR的啊


谁知道毕业后看到大家都在用VB或者LISP写CAD程序

ntchjie

.15是对应cad2002的版本，如果不加.15，也是可以的，条件是你没有装多个cad版本，如果装了多个，有时候就不会按你的要求来了。


我也是新手，多看看别人的代码吧，多调试调试，多发帖子提问。

nxy_918

应该是引用有误

liub1979

有时回出错,莫名其妙的错谁知道呢,重启就好了.挺管用的试试吧^_^