关于vb的若干问题

mikewolf2k · 发表于 2004-4-28 21:06:00

1.连接cad的代码:
Sub linkacad(acadapp)
   On Error Resume Next
   Set acadapp = GetObject(, ".application")
   If err Then
   err.Clear
   Set acadapp = CreateObject("AutoCAD.application")
   If err Then
   MsgBox ("不能运行AutoCAD 2000，请检查是否安装了AutoCAD 2000")
   Exit Sub
   End If
   End If
   acadapp.Visible = True
End Sub
经我测试,好像在装有多个版本的cad时,连接的是R14的cad,而R14不支持vba(编译成dll调用也不行),因此会出错,请问有办法能让它连接其它版本的cad么(2000及以上)
2.用vb5编译成dll,cad2000和2002下工作正常,2004下不正常,请问该如何修改?
3.office2000的宏,在office2000和office xp下运行正常,office97下需要做些什么修改?
4.开发好的软件如何制作安装包?只需完成拷贝文件到指定目录和注册dll文件功能.
谢谢

efan2000 · 发表于 2004-4-29 11:50:00

1、指定版本号：R2000，AutoCAD.application.15；R2004，AutoCAD.application.16。
2、可能是VB的支持库存在版本不一致的问题，最好在R2004下跟踪调试。
3、使用Office97支持的函数，它是向前兼容的。
4、有专门的第三方安装制作工具，可以用它来打包发布。

mikewolf2k · 发表于 2004-4-29 18:56:00

多谢多谢.继续发问:
1.2000和2002都是application.15吗?如果用户装了多个版本,怎样判断用户已经打开的是那个版本?这段代码能否改为连接到当前打开了的cad?
2.3,通过在其它版本上运行源程序,看什么地方出错的方法可行吧?源代码应该不需大变吧?
4.有没有用过的,推荐一下.
谢谢.