wordpress 大数据平台 Eclipse插件 Markdown编辑器 微服务 macos null react router upload cuda bootstrap后台管理 建站一条龙 郑州普通话考试 photoshop cs3 教程 mysql操作日志 python与机器学习 升级python版本 python编程教程 java创建文件 java线程中断 java时间转时间戳 java语言编程 tar文件怎么打开 xs颜色 dll之家 pr视频加速 微信小程序开发实例 压枪软件 抠图软件免费版 只狼台词 onaccuracychanged losecontrol 红米3和红米3s的区别 js数组操作 python去除空格 编程开发软件 dos常用命令 dataformatstring 刷机精灵下载 三星开发者选项在哪
当前位置: 首页 > 学习教程  > 编程学习

AutoCAD VBA 通过选择集 删除图层上所有对象和图层

2021/1/9 1:53:26 文章标签: cad图层无法删除

AutoCAD VBA 通过选择集 删除图层上所有对象和图层 删除图层上所有对象Function DelAllInLayer(ByVal LName As String) On Error Resume Next Dim SSet As AcadSelectionSet Set SSet CreateSelectionSet("XXX") Dim Ft(0) As Integer, Fd(0) Ft(0)…

AutoCAD VBA 通过选择集 删除图层上所有对象和图层

'删除图层上所有对象
Function DelAllInLayer(ByVal LName As String)
    'On Error Resume Next
    Dim SSet As AcadSelectionSet
    Set SSet = CreateSelectionSet("XXX")
    Dim Ft(0) As Integer, Fd(0)
    Ft(0) = 8: Fd(0) = LName
    SSet.Select acSelectionSetAll, , , Ft, Fd
    Dim E As AcadEntity
    MsgBox SSet.Count
    For Each E In SSet
        E.Delete
    Next
End Function

转载于:https://www.cnblogs.com/top5/archive/2009/10/29/1591990.html


本文链接: http://www.dtmao.cc/news_show_1100046.shtml

附件下载

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?