乐筑天下

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

我要选择厚度不会0的对像,请问选择过滤器如何设置

[复制链接]

15

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
86
发表于 2005-11-9 19:57:00 | 显示全部楼层 |阅读模式
我要选择厚度不会0的对像,请问选择过滤器如何设置
      过滤器,难道只能用=
      不能用不着  ?
回复

使用道具 举报

124

主题

837

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1333
发表于 2005-11-9 20:17:00 | 显示全部楼层
可以:
Sub Example_Select()
   
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")
   
   
    ' Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
    ' (-3.3, -3.6,0) by filtering from the current drawing
    Dim gpCode(0 To 1) As Integer
    Dim dataValue(0 To 1) As Variant
   
    gpCode(0) = -4
    dataValue(0) = ""
    gpCode(1) = 39
    dataValue(1) = 0#

   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ssetObj.Select acSelectionSetAll, , , groupCode, dataCode
   
    MsgBox ssetObj.Count
   
    ssetObj.Delete
   
End Sub
回复

使用道具 举报

15

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
86
发表于 2005-11-10 20:00:00 | 显示全部楼层
3ku  very much
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 19:26 , Processed in 0.577552 second(s), 59 queries .

© 2020-2025 乐筑天下

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