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

VB调用不同版本CAD

本帖最后由 作者 于 2006-11-12 15:37:14 编辑 <br /><br /> <P>在模块中加入如下代码：</P>
<P>没人顶，删除代码。呵……</P>

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

本帖最后由 作者 于 2006-11-11 9:02:48 编辑 <br /><br /> <P>没人顶，我来顶一下。好帖总是没人顶。真是的。</P>

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

顶

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

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

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

<A name=38380><FONT color=#000066><B>tcsl9621</B></FONT></A>你好,如果你的电脑上有许多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
页: [1] 2
查看完整版本: VB调用不同版本CAD