求助：关于CAD VBA的封装问题（高额奖励） [复制链接]

各位老师好，最近学习CAD VBA，写了代码，不会封装（就是不会做成加载文件后可以输入命令的那种），若有哪位老师肯帮忙教一下怎么封装，将赠送500~1000土币，谢谢。

比如封装如下代码：

Public Sub HelloVBA()
    '定义点
    Dim pt(0 To 2) As Double
    
    '为点赋值
    pt(0) = 100
    pt(1) = 100
    pt(2) = 0
    
    '显示对话框，并添加文字
    Dim value As Integer
    value = MsgBox("Hello,VBA!" & vbNewLine & "是否在图形中添加?", vbYesNo, "获得用户选择")
    If value = 6 Then   '6代表vbYes
        ThisDrawing.ModelSpace.AddText "Hello,VBA!", pt, 100
        '放在thisDrawing模块中的代码，可以省略thisDrawing对象
        'ModelSpace.AddText "Hello,World!", pt, 10
        'pt 为点坐标 10为字体高度
    End If
    
End Sub