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

vba错误问题请教

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

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

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

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

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

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

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

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

怎么没有人回答阿~~~

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

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

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

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

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

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