乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 180|回复: 12

如果函数帮助

[复制链接]

194

主题

592

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1380
发表于 2004-1-16 14:45:51 | 显示全部楼层 |阅读模式
这怎么行不通?我错过了什么?
我正在尝试查看当前dwg中是否存在选择集。
  1. Sub ss_exists()
  2.     If ThisDrawing.SelectionSets.Item("SNEW") Then
  3.         MsgBox "selection set found: "
  4.     End If
  5. End Sub

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

194

主题

592

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1380
发表于 2004-1-16 15:07:09 | 显示全部楼层
项必须是整数。
试试这个:
  1. Sub ss_exists()
  2. Dim I As Integer
  3. For I = 1 To ThisDrawing.SelectionSets.Count
  4.     If ThisDrawing.SelectionSets.Item(I).Name = "SNEW" Then
  5.         MsgBox "selection set found: "
  6.     End If
  7. Next
  8. End Sub

回复

使用道具 举报

61

主题

792

帖子

35

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1015
发表于 2004-1-16 15:21:22 | 显示全部楼层
谢谢蒂姆,但它也不喜欢那样
此行失败
此绘图。选择集。项目(I)。Name=“SNEW”
项中的参数索引无效
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-1-16 15:29:49 | 显示全部楼层
你是如何创建党卫军的?
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-1-16 15:36:07 | 显示全部楼层
问题是,虽然您确实可以使用
  1. ThisDrawing.SelectionSets.Item("SNEW")

过滤选择集
,但您无法仅从这里测试它是否真的存在。这与lisp完全不同,在lisp中,您可以查看变量是否设置了值,或者函数是否返回了非n值。
VBA 不允许您在此实例中针对 NULL 进行测试。
此外,如果选择集不存在,您将收到运行时错误“找不到键”,并且应用程序将崩溃。
回复

使用道具 举报

194

主题

592

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1380
发表于 2004-1-16 15:42:16 | 显示全部楼层
Mark,使用他发布的代码,记住它会受到Option Base语句的影响。
我敢打赌您使用的是选项基数0(这是默认值),所以...
  1. Sub ss_exists()
  2. Dim I As Integer
  3. For I = 0 To ThisDrawing.SelectionSets.Count -1
  4.     If ThisDrawing.SelectionSets.Item(I).Name = "SNEW" Then
  5.         MsgBox "selection set found: "
  6.     End If
  7. Next
  8. End Sub

回复

使用道具 举报

194

主题

592

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1380
发表于 2004-1-16 15:43:52 | 显示全部楼层

  1. Set ss = ThisDrawing.SelectionSets.Add("SNEW")

回复

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-1-16 15:53:31 | 显示全部楼层
>我敢打赌你正在使用选项基数0(这是默认值)
打败我!但这确实有效,谢谢。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-1-16 15:58:32 | 显示全部楼层
Keith,你介意写一个关于选项库及其所有参数的教程吗?
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-1-16 16:03:42 | 显示全部楼层
好吧......让我多负担一点...我还没有完成我的另一个东西...让我看看我是否能很快把它组装起来......
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:56 , Processed in 0.521652 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表