3 分类、代号
1.    H型钢分为三类，其代号如下：
宽翼缘H 型钢 HW（W为Wide英文字头）
中翼缘H 型钢 HM（M为Middle英文字头）
窄翼缘H 型钢 HN（N为Narrow英文字头）
2.    H型钢桩代号为：HP（P为Pile英文字头）
3.    剖分T型钢分为三类，其代号如下：
宽翼缘剖分T 型钢 TW（W为Wide英文字头）
中翼缘剖分T 型钢 TM（M为Middle英文字头）
窄翼缘剖分T 型钢 TN（N为Narrow英文字头）

Sub Add_HyperLinks()

    Dim Hyperlinks As AcadHyperlinks
    Dim Hyperlink As AcadHyperlink
    
    Dim Obj As AcadEntity

    For Each Obj In ThisDrawing.ModelSpace
        Set Hyperlinks = Obj.Hyperlinks
        Set Hyperlink = Hyperlinks.Add("田草博客")
            Hyperlink.URL = "http://www.tiancao.net"
            Hyperlink.URLDescription = "Ctrl+单击编辑对象"
            Hyperlink.URLNamedLocation = "田草博客"
    Next

End Sub

'查找驱动器
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