各位老师好,最近学习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