请教高手，VB怎么可以连上CAD呢？

anqiong518

我试了半天， Private Sub Command1_Click()
Dim acadapp As AutoCAD.AcadApplication
Call 连接AutoCAD
End Sub
Public Sub 连接AutoCAD()
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.AcadApplication")
If Err.Number Then
Err.Clear
Set acadapp = CreateObject("AutoCAD.AcadApplication")
MsgBox (Err.Description)
End If
End Sub 它总提示ActiveX对象无法创建 这是怎么回事呢？

雪山飞狐_lzh

AutoCAD.Application

anqiong518

您能说的具体点，或者，看一下我上面的那段程序吗？


这段程序，是从书上抄的，可是总是说ActixeX对象无法创建，郁闷死了

登山

Dim acadapp As AutoCAD.AcadApplication
错了.应该放在通用里面,或者建个模块 改为Dim acadapp As AcadApplication
连接AutoCAD()也放在模块里面便于调用

雪山飞狐_lzh

Set acadapp = GetObject(, "AutoCAD.Application")


Set acadapp = CreateObject("AutoCAD.Application")


哪本书上的？

anqiong518

Dim acadapp As AcadApplication
Private Sub Command1_Click()
Call 连接AutoCAD
End Sub
Public Sub 连接AutoCAD()
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.AcadApplication")
If Err.Number Then
Err.Clear
Set acadapp = CreateObject("AutoCAD.AcadApplication")
MsgBox (Err.Description)
End If
End Sub 错误提示 ActiveX 部件不能创建对象

anqiong518

书上原来的是没有set，这样有影响吗？

雪山飞狐_lzh

看看我在5楼发的贴！！！！

anqiong518

您的意思是去掉set吗？


可是还是不行

anqiong518

是将那个，改成autocad.application吗？


还是不行呀