vba错误问题请教

翔羽

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

翔羽

错误提示为：“将安全数组点转换为双精度数组点时出错”

这是什么原因？

翔羽

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

翔羽

出错的为红色的这行代码：

Dim pt As Variant
Dim UCSPnt As Variant

......

pt = lineobj1.IntersectWith(templineobj2, acExtendNone)

UCSPnt = ThisDrawing.Utility.TranslateCoordinates(pt, acWorld, acUCS, False)

主要目的是将点进行坐标系之间的转化，

请问这行有什么问题吗？

翔羽

怎么没有人回答阿~~~

StartMe

晕！刚敲了很多字结果没发过来，白写了，还得重写一遍。

我看不见你1楼的图片，也看不全每楼的贴的内容，但是从4楼的红色句看，你的交点数可能超过了1个，所以不能直接用TranslateCoordinates转换坐标吧，你把pt的第一组交点值赋一新的Variant变量，转换一下它试试，应该行。

个人意见，仅供参考。

翔羽

to StartMe：

我检查了一下，不可能出现两个以上的交点阿

它总是提示

UCSPnt = ThisDrawing.Utility.TranslateCoordinates(pt, acWorld, acUCS, False)

错误：“将安全数组点转换为双精度数组点时出错”

不知道是什么原因？

StartMe

如果你确实交点数没问题的话，我想不到其它原因了，看看其它人有没有遇到过同样情况的吧。