mftbrothers 发表于 2022-7-6 22:57:36

缩放窗口错误我在做什么

使用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

10west 发表于 2022-7-6 23:59:35

尺寸p1(0到2)为双精度
尺寸p2(0到2)为双精度
 
我认为您可能需要显式地对数组进行维数计算,0到2,0到3,或者无论您的最小-最大维数是多少
页: [1]
查看完整版本: 缩放窗口错误我在做什么