[VBA]直线旋转问题

翔羽

我在VBA中想把一直线旋转一定的角度，但是程序总是提示错误，大家帮我看看 这是源代码： Sub a()
Dim a As Object
Dim lineobj As AcadLine
Dim lineobj2 As AcadLine
Dim startpnt As Variant
Dim endpnt As Variant
startpnt = ThisDrawing.Utility.GetPoint(, "a point")
endpnt = ThisDrawing.Utility.GetPoint(startpnt, "another point")
Set lineobj = ThisDrawing.ModelSpace.AddLine(startpnt, endpnt)
lineobj.Rotate starpnt, 1.57
lineobj.Update
End Sub 提示错误是块或变量没有设置，请问这是什么原因？

mccad

有没有注意你输入的变量有误：startpnt
1.大家要有一个好的习惯，就是定义变量时使用大小写混合，如
startpnt定义成StartPnt，这样如果变量有误，则很容易检查出来。
2.在VBA工具菜单的选项对话框中，选择“要求变量声明”，
这样在新建模块时的第一行就会出现Option Explicit语句，有了这一句，如果程序发现有变量未定义，则会提示用户。

翔羽

谢谢斑竹！！