VB调用不同版本CAD

tcsl9621 · 发表于 2006-11-7 11:48:00

本帖最后由作者于 2006-11-12 15:37:14 编辑

在模块中加入如下代码：

没人顶，删除代码。呵……

tcsl9621 · 发表于 2006-11-9 16:38:00

本帖最后由作者于 2006-11-11 9:02:48 编辑

没人顶，我来顶一下。好帖总是没人顶。真是的。

pzhlmp · 发表于 2006-11-12 23:26:00

tcsl9621 · 发表于 2006-11-13 09:56:00

'''
Dim obj_Acad As Object
Dim obj_Doc As Object

'''
Sub Main()
On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application.16")
If Err Then
   Err.Clear
   On Error Resume Next
   Set obj_Acad = CreateObject("autocad.application.16")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKOnly, "警告！"
      Exit Sub
      End If
End If
obj_Acad.Visible = True
obj_Acad.WindowState = autocad.acwindowstate.acmax
AppActivate (obj_Acad.Caption)
Set obj_Doc = obj_Acad.ActiveDocument
obj_Doc.SendCommand ("(setq p2c::filepath """ + Replace(App.Path, "\", "\\") + "\\"") ")
obj_Doc.SendCommand ("(load (strcat p2c::filepath ""Part2CAM.fas"")) ")
obj_Doc.SendCommand ("(princ) ")
End Sub
帖回代码，VB可以和各种二次开发工具一同使用。用VB编程打开CAD调用二次开发程序。可以使我们的程序看上去更专业。

青青20 · 发表于 2006-11-13 16:15:00

tcsl9621你好,如果你的电脑上有许多CAD版本同时存在,要进入指定的CAD版本,存在着问题!

tcsl9621 · 发表于 2006-11-13 22:50:00

没有，只要你先打开一次那个版本的CAD就好了。本程序打开的是你上一次打开过的CAD。

lzj511 · 发表于 2006-11-14 12:27:00

我顶，谢谢指教！！

tcsl9621 · 发表于 2006-11-15 21:19:00

好的。有些人不看贴就知道发一些早已有答案的问题。

云中征雁 · 发表于 2007-4-20 20:45:00

顶！！！！！

ddary · 发表于 2007-7-24 11:12:00

haodongxi,,,,xiexie

账号		自动登录	找回密码
密码			注册