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

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

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

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

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

acadapp.visible=true

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

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

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

应该都可以实现

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

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

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

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

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

Dim acadApp As AcadApplication

提示用户没有定义，请问需要什么支持。

查看完整版本: [讨论]用VB连接CAD后,如何让CAD文档显示