AcCtrl是一个ActiveX控件，示例程序通过在Form中插入一个AcCtrl控件来查看，修改DWG图形文件。该控件只提供一个Src属性用于设置DWG图形文件名和一个PostCommand方法用于发送命令。支持直接输入命令。

(1)在“工具箱”中的空白区域单击右键，从弹出的菜单中选择“附加控件”菜单项。
(2)在“附加控件”对话框中，引用“AcFocusCtrl”控件，单击“确定”按钮关闭该对话框。
(3)将添加的“AcFocusCtrl”控件放置在要作为非模态使用的窗体中，并在窗体的初始化事件中添加：Me.AcFocusCtrl1.KeepFocus = True
(4)在ThisDrawing模块中添加下面的语句：
Sub Test()
UserForm1.Show vbModeless
End Sub
(5)运行Test宏，窗体自由切换的效果。

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

改为

[HKEY_CLASSES_ROOT\.scr]
@="scrfile
"

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 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

Explodable
Boolean; read-write 
TRUE: The block can be exploded. 
FALSE: The block cannot be exploded.