明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 525|回复: 1

询问一个关于windows选择集的问题

[复制链接]
发表于 2017-8-12 11:47 | 显示全部楼层 |阅读模式

  1. Sub test()
  2. Dim p1(0 To 2), p2(0 To 2), p3(0 To 2), p4(0 To 2) As Double
  3. Dim ft(2) As Integer, fd(2)

  4. p1(0) = 169.9: p1(1) = 14.8: p1(2) = 0
  5. p2(0) = 244.7: p2(1) = 5.3: p2(2) = 0
  6. p3(0) = 25.2: p3(1) = 14.8: p3(2) = 0
  7. p4(0) = 99.7: p4(1) = 5.3: p4(1) = 0

  8. ft(0) = 60
  9. fd(0) = 0
  10. ft(1) = 67
  11. fd(1) = 1

  12. Set myset1 = ThisDrawing.SelectionSets.Item("selet")
  13. myset1.Select acSelectionSetWindow, p3, p4, ft, fd
  14. myset1.Delete

  15. End Sub
这代码哪里有问题吗?为什么一直提示point1的参数有问题?

发表于 2017-8-13 21:16 | 显示全部楼层
p1 p2 p3都定义为variant数组了,只有p4定义对了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 21:06 , Processed in 0.164912 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表