乐筑天下

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

[求助]字符个数计数

[复制链接]

15

主题

27

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
87
发表于 2006-7-17 19:14:00 | 显示全部楼层 |阅读模式
现在想一次先输出T的数量,然后输出R的数量,请问该怎么改?
Sub co()
    Dim SSet As AcadSelectionSet

    Dim obj As AcadText
    Dim ptcen(0 To 2) As Double
    Dim endPoint1(0 To 2) As Double
    Dim endPoint2(0 To 2) As Double
    Dim cline As AcadLine
    Dim lineHalfLength As Double
    Dim groupCode(0 To 4) As Integer
    Dim dataValue(0 To 4) As Variant
    Dim i As Integer
   
   
    On Error Resume Next
   
    If Not IsNull(ThisDrawing.SelectionSets.Item("tex")) Then
       Set SSet = ThisDrawing.SelectionSets.Item("tex")
       SSet.Delete
    End If
   
    Set SSet = ThisDrawing.SelectionSets.Add("ArcsCirclesEllipses")
   
    '设置选择过滤器
    groupCode(0) = -4
    dataValue(0) = ""
   
    '提示用户选择
    ThisDrawing.Utility.Prompt "选择" & vbCr
    SSet.SelectOnScreen groupCode, dataValue
   
    For Each obj In SSet
    If obj.TextString = "T" Then
    i = i + 1
   
    End If
   
    obj.Update

    MsgBox "共有T" & i
   If obj.TextString = "R" Then
    i = i + 1
   
    End If
   
    obj.Update

    MsgBox "共有R" & i
    Next obj
   
   
End Sub
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2006-7-18 12:33:00 | 显示全部楼层
你能解释下下这里是什么意思么?
groupCode(1) = 0
dataValue(1) = "0"
回复

使用道具 举报

15

主题

27

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
87
发表于 2006-7-21 21:46:00 | 显示全部楼层
groupCode(1) = 0
dataValue(1) = "0"
是原过滤器过滤多种数据!

回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2006-7-21 23:58:00 | 显示全部楼层
没有这种做法:)
groupCode数组表示DXF组码
dataValue数组表示对应组码的数值
组码0表示一个实体的图元类型
关于这些具体可以看看DXF组码的帮助部分
好像上次做过一次的
设置过滤器为
0,"Text",1,"T"
就可以过滤出T的数量
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 04:15 , Processed in 0.978250 second(s), 60 queries .

© 2020-2025 乐筑天下

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