[VBA程序]：关于VB6.0调用AUTOCAD的问题

4321rpg

用vb调用autocad画直线,代码如下
sub addlinevb()
on error resume next
'连接到autocad应用程序
Dim acadapp As AcadApplication
  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

dim acaddoc as acaddocument
set acaddoc=acadapp.activedocument
dim lineobj as acadline
dim sp(2) as double
dim ep(2) as double
sp(0) =1
sp(1) =1
sp(2) =0
ep(0) =5
ep(1) =5
ep(2) =0
set lineobj=acaddoc.modelspace.addline(sp,ep)
zoomall
end sub

程序正常运行,但是不能打开autocad程序,在任务管理器里面缺发现运行了acad.exe程序,麻烦各位指点一下,先谢了

雪山飞狐(lzh)

acadapp.visible=true

4321rpg

最初由 lzh741206 发布
[B]acadapp.visible=true [/B]

问题以解决,谢谢!

skd_gzy

晃然大悟，谢谢！