求助大神VB编译错误，用户未定义

jadjedhj 2020-03-31 10:27:13

这个是书上的例子，前天运行时成功的，但今天打开说编译错误，代码如下：
第一行出现问题
Dim acadapp As AcadApplication '在窗体代码声明段定义acdapp

Private Sub Command1_Click()
Dim lineobj As AcadLine
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double '定义直线的起点和终点的三维坐标
startpoint(0) = 1#: startpoint(1) = 1#: startpoint(2) = 0# '创建点（1，1，0）与（15，15，0）之间的直线
endpoint(0) = 15#: endpoint(1) = 15#: endpoint(2) = 0#
Set lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(startpoint, endpoint)
ZoomAll
End Sub
Private Sub Form_Load()
On Error Resume Next
Set acadapp = GetObject(, "autocad.application") '
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application")
If Err Then
MsgBox "不能启动cad,请检查是否安装正确！", vbOKCancel, "提示"
Exit Sub
End If
End If
acadapp.Visible = True
acadapp.Width = 800
acadapp.Height = 600
End Sub

...全文

330 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

jadjedhj 2020-03-31

打赏
举报

引用楼主 jadjedhj的回复:

这个是书上的例子，前天运行时成功的，但今天打开说编译错误，代码如下：
第一行出现问题
Dim acadapp As AcadApplication '在窗体代码声明段定义acdapp

Private Sub Command1_Click()
Dim lineobj As AcadLine
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double '定义直线的起点和终点的三维坐标
startpoint(0) = 1#: startpoint(1) = 1#: startpoint(2) = 0# '创建点（1，1，0）与（15，15，0）之间的直线
endpoint(0) = 15#: endpoint(1) = 15#: endpoint(2) = 0#
Set lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(startpoint, endpoint)
ZoomAll
End Sub
Private Sub Form_Load()
On Error Resume Next
Set acadapp = GetObject(, "autocad.application") '
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application")
If Err Then
MsgBox "不能启动cad,请检查是否安装正确！", vbOKCancel, "提示"
Exit Sub
End If
End If
acadapp.Visible = True
acadapp.Width = 800
acadapp.Height = 600
End Sub

已经解决了。