翔羽 发表于 2005-5-31 21:16:00

[VBA]直线旋转问题

我在VBA中想把一直线旋转一定的角度，但是程序总是提示错误，大家帮我看看


这是源代码：


Sub a()<BR>Dim a As Object<BR>Dim lineobj As AcadLine<BR>Dim lineobj2 As AcadLine<BR>Dim startpnt As Variant<BR>Dim endpnt As Variant<BR>startpnt = ThisDrawing.Utility.GetPoint(, "a point")<BR>endpnt = ThisDrawing.Utility.GetPoint(startpnt, "another point")<BR>Set lineobj = ThisDrawing.ModelSpace.AddLine(startpnt, endpnt)<BR><FONT color=#ee1169>lineobj.Rotate starpnt, 1.57</FONT><BR>lineobj.Update<BR>End Sub


提示错误是块或变量没有设置，请问这是什么原因？

mccad 发表于 2005-5-31 21:36:00

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

翔羽 发表于 2005-6-1 20:52:00

谢谢斑竹！！
页: [1]
查看完整版本: [VBA]直线旋转问题