缩放窗口错误我在做什么
使用Autocad VBA ediyor。。。Dim项目1作为AcadObject
Dim ustsx（2），altsx（2）作为双“或变体”均不工作
Dim vector1作为变体
...
向量1=项1。协调
如果vector1（0）>vector1（4），则
ustsx（0）=矢量1（0）
altsx（0）=矢量1（4）
其他的
ustsx（0）=矢量1（4）
altsx（0）=矢量1（0）
如果结束
如果vector1（1）>vector1（3），则
ustsx（1）=矢量1（1）
altsx（1）=矢量1（3）
其他的
ustsx（1）=矢量1（3）
altsx（1）=矢量1（1）
如果结束
ustsx（2）=0#
altsx（2）=0#
MyAcad。ZoomWindows ustsx，altsx’（错误）
........
运行时错误“-2147024809（80070057）
ZoomWindow中的LowerLeft参数无效
错误
在网上搜索之后，我找到了这类错误的解释。向其他成员学习可能会有好处：
我发现这样的描述：
我将代码更正如下：
尺寸p1、p2作为变型
Dim utilObj As Object'延迟绑定实用程序对象
设置utilObj=ThisDrawing。公用事业
乌蒂洛布。创建类型Darray p1、vbDouble、ustsx（0）、ustsx（1）、ustsx（2）
乌蒂洛布。创建类型Darray p2、vbDouble、altsx（0）、altsx（1）、altsx（2）
MyAcad。ZoomWindow p1、p2 尺寸p1（0到2）为双精度
尺寸p2（0到2）为双精度
我认为您可能需要显式地对数组进行维数计算，0到2，0到3，或者无论您的最小-最大维数是多少
页:
[1]