乐筑天下

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

请帮助检查一下有什么错误!

[复制链接]

26

主题

42

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
146
发表于 2006-7-20 09:05:00 | 显示全部楼层 |阅读模式
有一套程序,主要功能是关闭引用背景图的相关图层的。由用户在TEXTBOX1中输入需要关闭的图层名称,几个图层之间要用;分隔。由于所有引用都有引用名称如XREF1等。如图层:XREF1│0,故关闭时需要从图层名称的后几位开始。程序如下:
Private Sub CommandButton1_Click()
         Dim layname As String
        Dim z As Integer
        Dim ii As Integer
            Dim lay4 As AcadLayer
   z = 1
    For ii = 1 To Len(TextBox1.Text)
    ii = InStr(z, TextBox1.Text, Chr(59))
    If ii = 0 Then
    layname = Mid(TextBox1.Text, z, (Len(TextBox1.Text)))
    ii = Len(TextBox1.Text) + 1
    Else
    layname = Mid(TextBox1.Text, z, ii - z)
    z = ii + 1
    End If
   
        For Each lay4 In ThisDrawing.Layers
        If Mid(lay4.Name, 7) = layname Then
   lay4.LayerOn = False
  Exit For
   End If
    Next lay4
    Next ii
End Sub
程序运行后有以下问题:1、图层名为单独数字的关不了,如XREF1│9;2、图层名为汉字的关不了,如XREF1│设备。
请高手指点,谢谢!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2006-7-20 16:46:00 | 显示全部楼层
Sub tt()
a = Split("1;2;设备;6;7", ";")
For Each i In a
    ThisDrawing.Layers(i).LayerOn = False
Next i
End Sub
回复

使用道具 举报

26

主题

42

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
146
发表于 2006-7-20 19:36:00 | 显示全部楼层
谢谢!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 04:11 , Processed in 0.555423 second(s), 58 queries .

© 2020-2025 乐筑天下

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