翔羽 发表于 2007-5-24 22:03:00

vba错误问题请教

我在用vba进行cad二次开发的时候，在将variant型数据转换为double型数据的时候，出现如图所示的错误，请问如何解决这样的问题？谢谢高手指点！！

翔羽 发表于 2007-5-24 22:13:00

错误提示为：“将安全数组点转换为双精度数组点时出错”
这是什么原因？

翔羽 发表于 2007-5-24 22:39:00

其实该程序运行一次没有出现上述问题，但第二次运行的话就会出现上述问题？这是什么原因呢？为什么有的时候运行没有问题，第二次就会出现问题？这个问题一直困扰我很久了，希望得到高手的指点！！谢谢

翔羽 发表于 2007-5-24 23:05:00

出错的为红色的这行代码：
Dim pt As Variant
Dim UCSPnt As Variant
......
pt = lineobj1.IntersectWith(templineobj2, acExtendNone)
UCSPnt = ThisDrawing.Utility.TranslateCoordinates(pt, acWorld, acUCS, False)
主要目的是将点进行坐标系之间的转化，
请问这行有什么问题吗？

翔羽 发表于 2007-5-25 23:18:00

怎么没有人回答阿~~~

StartMe 发表于 2007-5-26 00:17:00

晕！刚敲了很多字结果没发过来，白写了，还得重写一遍。
我看不见你1楼的图片，也看不全每楼的贴的内容，但是从4楼的红色句看，你的交点数可能超过了1个，所以不能直接用TranslateCoordinates转换坐标吧，你把pt的第一组交点值赋一新的Variant变量，转换一下它试试，应该行。
个人意见，仅供参考。

翔羽 发表于 2007-5-29 22:27:00

to StartMe：
我检查了一下，不可能出现两个以上的交点阿
它总是提示
UCSPnt = ThisDrawing.Utility.TranslateCoordinates(pt, acWorld, acUCS, False)
错误：“将安全数组点转换为双精度数组点时出错”
不知道是什么原因？

StartMe 发表于 2007-5-29 23:56:00

如果你确实交点数没问题的话，我想不到其它原因了，看看其它人有没有遇到过同样情况的吧。
页: [1]
查看完整版本: vba错误问题请教