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

jiangzl

在VB中写程序,连接CAD成功后,如何让CAD界面显示出来,下面是我写的连接CAD2004的代码,在CAD中画直线后,但看不到CAD界面,只有在关机时才提示保存文件.

Private Sub CallCAD()
Dim acadApp As AcadApplication
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.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

acadapp.visible=true

jiangzl

谢谢!非常感谢版主的帮助,永远支持你!

请问加在什么地方?是不是画完直线之后,还是连接成功之后呢?

zhu1

应该都可以实现

mikewolf2k

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

jiangzl

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

fjfhgdwfn

Dim acadApp As AcadApplication

 

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