大家看看

翔羽

看看下面的程序： Private Sub nihao()
Dim pnt1 As Variant
Dim pnt2 As Double
Dim lineobj As AcadLine
On Error Resume Next
pnt1 = ThisDrawing.Utility.GetPoint(, "请输入第一点坐标值：")
pnt2 = ThisDrawing.Utility.GetPoint(, "清输入第二点坐标值：")
Set lineobj = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
MsgBox ("直线长度为：" & lineobj.EndPoint)
ZoomAll
Dim jiaodu As Variant
jiaodu = ThisDrawing.Utility.GetAngle(, "输入角度:")
MsgBox ("所输入角度的弧度值：" & jiaodu)
Dim jiaodu2 As Double
jiaodu2 = 90
jiaodu2 = ThisDrawing.Utility.GetOrientation("请输入弧度:")
MsgBox ("所输入角度值：" & jiaodu2)
End Sub
在执行到第八句的时候并没有在AutoCAD中看到直线，并且没有看到第九句提示框的出现，并且倒数第三行也没有运行，请问这是什么原因？？？

王咣生

那肯定没有执行msgbox,你把On Error Resume Next去掉,在调试时最好不用,或改为On Error Goto ErrorHandler, 在ErrorHandler标记处打印出错信息.

mccad

pt2的字义有误，应该和pt1一样的定义

翔羽

谢谢各位大虾的帮助~~~~