cryyyy 发表于 2005-5-13 10:25:00

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

以下这句话也是


在另外一个模块运行的好好的,但是这个模块就会出现如图的错误


要命


Dim z12 As AcadLine<BR>Dim startpointz12(0 To 1) As Double<BR>Dim endpointz12(0 To 1) As Double<BR>startpointz12(0) = zbjl#: startpointz12(1) = zxxsp - Sin(aa1) * bb + cra#: startpointz12(1) = 0#<BR>endpointz12(0) = zbjl + Cos(aa1) * bb#: endpointz12(1) = zxxsp + cra#: startpointz12(1) = 0#<BR>Set z12 = acadapp.ActiveDocument.ModelSpace.AddLine(startpointz12, endpointz12)<BR>

ljpnb 发表于 2005-5-13 11:16:00

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

yulijin608 发表于 2005-5-13 11:38:00

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

cryyyy 发表于 2005-5-14 21:22:00

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


<BR>晕倒


这么简单的错误没看出来


非常感谢大哥


回2楼的话:那个zbjl是我设置的一个参数而已，我附值了.


问题搞定
页: [1]
查看完整版本: 对象'addline'的方法'Icadmodelspace'失败