mwpoint

来自「这是一个管线采集资料时管孔占用情况整理记录的工具,它可以通过操作AUTOCAD图」· 代码 · 共 40 行

Attribute VB_Name = "mWPoint工具条"
Sub Example_Toolbars()
    ' This example finds the names of the all toolbars in the first menu group.
    
    Dim toolbarNames As String
    Dim toolbarCollection As Object  ' AcadToolbars
    Dim toolbar As Object 'AcadToolbar
    
    Set toolbarCollection = ThisDrawing.Application.MenuGroups.Item(0).Toolbars
    toolbarNames = ""
    For Each toolbar In toolbarCollection
        i工具条总数 = i工具条总数 + 1
        toolbarNames = toolbarNames & i工具条总数 - 1 & toolbar.Name & vbCrLf
        If toolbar.Visible = True Then
            i工具条显示数 = i工具条显示数 + 1
            toolbar.Visible = False '隐藏工具条
        End If
    Next toolbar

    If i工具条显示数 = 0 Then
    MsgBox toolbarNames
    MsgBox ThisDrawing.Application.MenuBar.Count & " 总数: " & i工具条总数 & " 显示数:" & i工具条显示数, vbInformation
       'MsgBox ThisDrawing.Application.MenuGroups.Item(0).Toolbars.Item(1).Name '.MenuFileName
       ThisDrawing.Application.MenuGroups.Item(0).Toolbars.Item(1).Visible = True
       ThisDrawing.Application.MenuGroups.Item(0).Toolbars.Item(6).Visible = True
       ThisDrawing.Application.MenuGroups.Item(0).Toolbars.Item(8).Visible = True
       ThisDrawing.Application.MenuGroups.Item(0).Toolbars.Item(9).Visible = True
       ThisDrawing.Application.MenuGroups.Item(0).Toolbars.Item(19).Visible = True

       
    End If
'   ThisDrawing.Application.MenuGroups.Load "作图板", "MENU_ZTZ.mns"
  ' RetVal = object.Load (MenuFileName [,BaseMenu])
 '
End Sub

Sub pLoadmenu()
ThisDrawing.Application.MenuGroups.Load "MENU_ZTZ", "MENU_ZTZ.mns"
End Sub