jiangzl 发表于 2005-11-15 11:56:00

[讨论]用VB连接CAD后,如何让CAD文档显示

<P>在VB中写程序,连接CAD成功后,如何让CAD界面显示出来,下面是我写的连接CAD2004的代码,在CAD中画直线后,但看不到CAD界面,只有在关机时才提示保存文件.</P>
<P>Private Sub CallCAD()<BR>Dim acadApp As AcadApplication<BR>On Error Resume Next<BR>Set acadApp = GetObject(, "AutoCAD.Application")<BR>If Err Then<BR>Err.Clear<BR>Set acadApp = CreateObject("AutoCAD.Application")<BR>If Err Then<BR>MsgBox Err.Description<BR>Exit Sub<BR>End If<BR>End If<BR>Rem MsgBox "现在运行" + acadApp.Name + "版本号" + acadApp.Version</P>
<P>Dim acadDoc As AcadDocument<BR>Set acadDoc = acadApp.ActiveDocument</P>
<P>Dim LineObj As AcadLine<BR>Dim startPnt(0 To 2) As Double<BR>Dim endpnt(0 To 2) As Double<BR>startPnt(0) = 1<BR>startPnt(1) = 1<BR>startPnt(2) = 0<BR>endpnt(0) = 5<BR>endpnt(1) = 5<BR>endpnt(2) = 0</P>
<P>Set LineObj = acadDoc.ModelSpace.AddLine(startPnt, endpnt)<BR>ZoomAll<BR>End Sub<BR></P>

雪山飞狐_lzh 发表于 2005-11-15 13:37:00

acadapp.visible=true

jiangzl 发表于 2005-11-15 14:16:00

<P>谢谢!非常感谢版主的帮助,永远支持你!</P>
<P>请问加在什么地方?是不是画完直线之后,还是连接成功之后呢?</P>

zhu1 发表于 2005-11-15 17:33:00

<P>应该都可以实现</P>

mikewolf2k 发表于 2005-11-15 18:06:00

只要连接成功后任何时候都可以。

jiangzl 发表于 2005-11-15 20:34:00

<P>成功了,谢谢版主及各位的指导...非常感谢谢</P>

fjfhgdwfn 发表于 2005-11-17 14:33:00

<P>Dim acadApp As AcadApplication</P>
<P>&nbsp;</P>
<P>提示用户没有定义，请问需要什么支持。</P>
页: [1]
查看完整版本: [讨论]用VB连接CAD后,如何让CAD文档显示