乐筑天下

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

指点~~为什么没结果

[复制链接]

7

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
41
发表于 2006-3-2 16:24:00 | 显示全部楼层 |阅读模式
怎么没的结果呢
Sub lr()
Dim Selects As AcadSelectionSet
Dim FType(0) As Integer          '选择过滤器的类型代码
Dim FData(0) As Variant          ' 选择过滤器的值
Dim entity As AcadEntity
Dim L, r As Integer
FType(0) = 0                 ' FData(0) = "Line,Arc"            
' ' 选择图元
Set Selects = ThisDrawing.SelectionSets.Add("lr4")
Selects.SelectOnScreen FType, FData
For Each entity In Selects
If EntityName = "acdbline" Then L = L + 1
If EntityName = "acdbarc" Then r = r + 1
Next
MsgBox L, r
Selects.Delete

End Sub
[/U]
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2006-3-2 18:21:00 | 显示全部楼层
复制代码
回复

使用道具 举报

7

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
41
发表于 2006-3-3 21:29:00 | 显示全部楼层
谢谢了啊~~~
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 05:20 , Processed in 0.755135 second(s), 58 queries .

© 2020-2025 乐筑天下

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