乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 57|回复: 3

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

[复制链接]

5

主题

6

帖子

3

银币

初来乍到

Rank: 1

铜币
26
发表于 2003-1-6 21:01: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)
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-1-7 10:34:00 | 显示全部楼层
可以创建一个模块,在这个模块中创建一个过程,过程中调用上面的例程。那么宏的代码是这样子的:_-VBARUN 模块名称.过程名称
回复

使用道具 举报

7

主题

63

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
91
发表于 2003-1-21 08:50:00 | 显示全部楼层
你在LISP定义的命令名,OK!
回复

使用道具 举报

9

主题

32

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
68
发表于 2005-8-18 11:54:00 | 显示全部楼层
写一个lisp函数运行VBA过程,然后在工具栏上调用这个lisp函数
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 06:42 , Processed in 1.069727 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表