'查找驱动器
Sub Command1_Click()
    Dim FS, D
    Dim i As Integer
    'On Error Resume Next
    Set FS = CreateObject("Scripting.FileSystemObject")
    
    For i = 97 To 122 '(a 到 z)
        DoEvents
        If FS.DriveExists(Chr(i)) Then '驱动器存在
            Set D = FS.getdrive(Chr(i))
            If D.isready Then '驱动器就绪
                Form1.Combo1.AddItem UCase(Chr(i) & ";/")
            End If
        End If
    Next i
End Sub

4.基础底面处的平均压力值超过300kPa的混凝土基础，尚应进行抗剪验算。

'统一标注样式中的字体
Sub TongyiDimstyleText()
    'On Error Resume Next
    Dim i As Integer
    Dim DimS As AcadDimStyle
    For Each DimS In ThisDrawing.DimStyles
        Set DimS = ThisDrawing.DimStyles(i)
        'DimS.Name = "DimStyle_" & str(i)
        ThisDrawing.ActiveDimStyle = DimS
        ThisDrawing.SetVariable "DimTxSty", "STANDARD"     '指定标注的文字样式
        DimS.CopyFrom ThisDrawing
        i = i + 1
    Next
End Sub