由
[HKEY_CLASSES_ROOT\.scr]
@="AutoCADScriptFile"

改为

[HKEY_CLASSES_ROOT\.scr]
@="scrfile
"

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