对象'addline'的方法'Icadmodelspace'失败

cryyyy

以下这句话也是 在另外一个模块运行的好好的,但是这个模块就会出现如图的错误 要命 Dim z12 As AcadLine
Dim startpointz12(0 To 1) As Double
Dim endpointz12(0 To 1) As Double
startpointz12(0) = zbjl#: startpointz12(1) = zxxsp - Sin(aa1) * bb + cra#: startpointz12(1) = 0#
endpointz12(0) = zbjl + Cos(aa1) * bb#: endpointz12(1) = zxxsp + cra#: startpointz12(1) = 0#
Set z12 = acadapp.ActiveDocument.ModelSpace.AddLine(startpointz12, endpointz12)

ljpnb

我不明白startpointz12(0) = zbjl#: 里的zbjl代表什么，是不是已经符值呢，还是。。。。。

yulijin608

点好像都是三维的吧，你却定义成二维的了

cryyyy

yulijin608发表于2005-5-13 11:38:00点好像都是三维的吧，你却定义成二维的了

晕倒 这么简单的错误没看出来 非常感谢大哥 回2楼的话:那个zbjl是我设置的一个参数而已，我附值了. 问题搞定