明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1671|回复: 0

开发“坐标标注”遇到的问题

[复制链接]
发表于 2003-1-6 20:59:00 | 显示全部楼层 |阅读模式
各位大虾,我用VBA开发了一个坐标标注程序,但我想在工具栏上建立一个按钮来快捷操作,但是在创建工具栏时,坐标标注程序对应的宏的名称(代码中问号处)小弟不知填入什么?希望各位发扬武林精神拔刀相助!!!源代码如下:
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

'创建工具条
Dim toolbar As AcadToolbar
Set toolbar = currMenuGroup.Toolbars.Add("toolbar")

'创建按钮
Dim button As AcadToolbarItem
Dim openMacro As String

'给宏赋值
openMacro = Chr(3) + Chr(3) + Chr(95) + "" + Chr(32)
Set butoon = toolbar.AddToolbarButton("", "坐标标注", "坐标标注.", openMacro)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-25 07:48 , Processed in 0.164867 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表