菜单中加载VBA程序
请问一下：如何在。MNU菜单文件中加入VBA编写的应用程序？ <p>以下是设置运行VB宏按钮的操作步骤：<br/>1、打开AUTOCAD2005，单击菜单栏上的“工具”菜单、指向“宏”、单击Visual Basic编辑器进入VB编辑状态。 <br/>2、在VB编辑状态单击菜单栏上的“插入”菜单、单击“模块”，在编辑窗口中输入以下代码： </p><p>Sub sy()<br/> '定义文字对象变量 <br/>Dim TextObj As AcadText <br/> '定义字符串变量 <br/> Dim TextString As String <br/> '定义文字插入点数组变量<br/> Dim InsPnt(0 To 2) As Double <br/> '定义文字高度变量<br/> Dim Height As Double <br/> TextString = "试验"<br/> '指定文字插入点位置和文字高度<br/> InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0: Height = 15<br/> '在模型空间创建文字对象<br/> Set TextObj = ThisDrawing.ModelSpace.AddText(TextString, InsPnt, Height)<br/> '指定文字对象的颜色为绿色 <br/>TextObj.Color = acGreen <br/> ZoomAll <br/>'缩放视图<br/> end sub</p><p></p><p>4、用鼠标右键单击“绘图”工具栏，然后从弹出的快捷菜单中选择“自定义”选项，打开“自定义”对话框。单击“命令”选项卡，先选中对话框“分类”列表的用户定义，然后在“命令”列表中选中“用户定义的按钮”，拖动到绘图工具栏下方，出现一个空白的工具栏按钮。单击空白的工具栏按钮，弹出“自定义”对话框的“按钮特性”选项卡，在“名称”输入框中，键入"试验"，在“说明”输入框中，键入"试验"。在“与此关联的宏”输入框中，键入“^C^C-VBARUN sy(注：为宏名称)”。如果有兴趣，可以为按钮做个图标。单击“编辑按钮”，打开“按钮编辑器”对话框，用画笔画一个图标，本例本人画了一个如“＃”号的图标，单击“保存按钮”，然后单击“关闭”按钮。在“按钮特性”选项卡中，单击“应用”按钮，这时图标图案就出现在自己建立的工具栏中。这时你编的按钮就可以应用了。<br/></p> <p>ID_PTcho[选择设备(&X)]^C^C-vbarun PtInfo.windowrun</p><p>ID_PTadd[添加软管(&T)]^C^C-vbarun thisdrawing.CreatSoft</p><p>其中 VBARUN 模块名.宏名</p>
页:
[1]