zoukankan      html  css  js  c++  java
  • AutoCAD VBA 通过选择集 删除图层上所有对象和图层

    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

  • 相关阅读:
    Android
    Android
    Android
    JAVA动态代理基础
    TCP连接与OKHTTP复用连接池
    Android
    Android
    GitHub上README.md教程
    android
    HDU 1097 A hard puzzle
  • 原文地址:https://www.cnblogs.com/top5/p/1591990.html
Copyright © 2011-2022 走看看