xiaohaiclj 发表于 2004-8-7 11:41:00

可怜可怜我帮帮忙

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


Dim acadapp As AcadApplication<BR>Set acadapp = GetObject("", "Autocad.Application")

ntchjie 发表于 2004-8-7 15:40:00

这段子程序一般在任何一本cad二次开发的书上都有的。


Public Function AcadOpen()<BR>                       '以下连接AutoCAD2000<BR>                       On Error Resume Next<BR>                       Set acadObj = GetObject(, "AutoCAD.Application.15")<BR>                       If Err Then<BR>                                                       Set acadObj = CreateObject("AutoCAD.Application.15")<BR>                                                       Err.Clear<BR>                       End If<BR>                       acadObj.Visible = True<BR>End Function<BR>

xiaohaiclj 发表于 2004-8-7 16:09:00

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

xiaohaiclj 发表于 2004-8-7 16:13:00

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


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

xiaohaiclj 发表于 2004-8-7 16:44:00

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


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


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


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

subtlation 发表于 2004-8-7 16:56:00

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

xiaohaiclj 发表于 2004-8-7 17:02:00

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


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


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


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


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

ntchjie 发表于 2004-8-8 09:57:00

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


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

nxy_918 发表于 2004-8-10 08:47:00

应该是引用有误

liub1979 发表于 2004-8-14 00:09:00

有时回出错,莫名其妙的错谁知道呢,重启就好了.挺管用的试试吧^_^
页: [1]
查看完整版本: 可怜可怜我帮帮忙