菜单中加载VBA程序

leasson

请问一下：如何在。MNU菜单文件中加入VBA编写的应用程序？

pengguixiang

以下是设置运行VB宏按钮的操作步骤：
1、打开AUTOCAD2005，单击菜单栏上的“工具”菜单、指向“宏”、单击Visual Basic编辑器进入VB编辑状态。
2、在VB编辑状态单击菜单栏上的“插入”菜单、单击“模块”，在编辑窗口中输入以下代码：

Sub sy()
  '定义文字对象变量 
Dim TextObj As AcadText
 '定义字符串变量 
 Dim TextString As String
  '定义文字插入点数组变量
 Dim InsPnt(0 To 2) As Double
   '定义文字高度变量
 Dim Height As Double
    TextString = "试验"
    '指定文字插入点位置和文字高度
    InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0:  Height = 15
   '在模型空间创建文字对象
    Set TextObj = ThisDrawing.ModelSpace.AddText(TextString, InsPnt, Height)
  '指定文字对象的颜色为绿色 
TextObj.Color = acGreen
    ZoomAll
'缩放视图
   end sub

4、用鼠标右键单击“绘图”工具栏，然后从弹出的快捷菜单中选择“自定义”选项，打开“自定义”对话框。单击“命令”选项卡，先选中对话框“分类”列表的用户定义，然后在“命令”列表中选中“用户定义的按钮”，拖动到绘图工具栏下方，出现一个空白的工具栏按钮。单击空白的工具栏按钮，弹出“自定义”对话框的“按钮特性”选项卡，在“名称”输入框中，键入"试验"，在“说明”输入框中，键入"试验"。在“与此关联的宏”输入框中，键入“^C^C-VBARUN sy(注：为宏名称)”。如果有兴趣，可以为按钮做个图标。单击“编辑按钮”，打开“按钮编辑器”对话框，用画笔画一个图标，本例本人画了一个如“＃”号的图标，单击“保存按钮”，然后单击“关闭”按钮。在“按钮特性”选项卡中，单击“应用”按钮，这时图标图案就出现在自己建立的工具栏中。这时你编的按钮就可以应用了。

windandr

ID_PTcho[选择设备(&X)]^C^C-vbarun PtInfo.windowrun

ID_PTadd[添加软管(&T)]^C^C-vbarun thisdrawing.CreatSoft

其中 VBARUN 模块名.宏名