'标注面域面积*******************************************************
'
Sub DimArea()
    'On Error Resume Next
    Dim A As Double
    Dim xHeight As Integer
    Dim Temp As AcadEntity
    Dim Pmin As Variant
    Dim Pmax As Variant
    Dim Pc As Variant
    Dim T As AcadText
n:
    '先选择一个标注对象
    ThisDrawing.Utility.GetEntity Temp, Pmin, "请选择一个标注对像"
    Prompt Temp.ObjectName
    If Temp.ObjectName = "AcDbRegion" Then
        A = Temp.Area
        A = A / 10 ^ 6
        A = Format(A, "0.0000")
        'MsgBox A
        Temp.GetBoundingBox Pmin, Pmax
        Pc = centerPoint(Pmin, Pmax)
        'ThisDrawing.ModelSpace.AddPoint Pmin
        'ThisDrawing.ModelSpace.AddPoint pamx
        xHeight = P2PDistance(Pmin, Pmax) / 5
        If xHeight > 2000 Then xHeight = 2000
        Set T = ThisDrawing.ModelSpace.AddText(A, Point3D(0, 0, 0), xHeight)
        T.Alignment = acAlignmentCenter
        T.Move T.TextAlignmentPoint, Pc
    Else
        GoTo n:
    End If
End Sub
'***************************************************************************

命令行: select 

选择对象: 使用对象选择方法 

执行许多命令（包括 SELECT 命令本身）后都会出现“选择对象”提示。 不管由哪个命令给出“选择对象”提示，都可以使用这些方法。 要查看所有选项，请在命令行中输入 ?。

窗口(W)/上一个(L)/窗交(C)/框选(BOX)/全部(ALL)/栏选(F)/圈围(WP)/圈交(CP)/编组(G)/添加(A)/删除(R)/多选(M)/上一个(P)/放弃(U)/自动(AU)/单选(SI) 

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

     在VBA窗体设计中，可将一些开发中使用的控件全部选择后，直接拖至工具箱中，工具箱会添加一个"控件组"，在窗体设计中可直接将该控件组放置于窗体，大大提高了效率(该特点为VBA所独有)。 

　　    如开发者需使用VBA标准控件箱未提供的其他控件，可右键单击工具箱，在出现的菜单中选择"附加控件"命令，在出现的对话框中进行选择即可。
    在VBA窗体工具箱中附加控件中没有出现的控件，我们可以在vb的窗体中加入，然后在vba中导入该窗体，但是vbe不支持的控件就不能导入了。
 

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