翔羽 发表于 2004-3-8 10:49:00

大家看看

看看下面的程序：


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

王咣生 发表于 2004-3-8 11:48:00

回复

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

mccad 发表于 2004-3-8 14:19:00

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

翔羽 发表于 2004-3-8 16:54:00

谢谢各位大虾的帮助~~~~
页: [1]
查看完整版本: 大家看看