乐筑天下

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

用VBA做的工具条,如何通过菜单实现工具条的显示与隐藏,另在菜单条的旁边作个显示或

[复制链接]

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-3-26 15:12:00 | 显示全部楼层 |阅读模式
用VBA做的条,如何通过菜单实现工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记???[br]用VBA做的工具条,如何通过菜单实现工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记???
                                         我用2002
                                                                                                                                                                                                                                                                                         谢谢
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 lgc
回复

使用道具 举报

9

主题

35

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
71
发表于 2005-3-28 09:04:00 | 显示全部楼层
请问搂主大哥,你做的工具条上的工具栏图标放在什么位置,怎么引用自己的图标啊??
回复

使用道具 举报

9

主题

35

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
71
发表于 2005-3-28 14:21:00 | 显示全部楼层
这个问题我也困惑很久了,        帮 顶!!!
回复

使用道具 举报

pmq

14

主题

61

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
117
发表于 2005-3-28 16:39:00 | 显示全部楼层
Dim newToolBarSeparator As AcadToolbarItem
                         Dim SmallBitmapName(42) As String
                         Dim LargeBitmapName(42) As String
                         Set MenuGroupObject = ThisDrawing.Application.MenuGroups.Item(0)
                         Set ToolbarObject = MenuGroupObject.Toolbars.Add("测量菜单")
                         Dim Popen As String
                         Popen = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(13)
                         Set ButtonObject(1) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打开文件", "打开文件", Popen)
                         Dim Psave As String
                         Psave = Chr(3) + Chr(3) + Chr(95) + "qsave" + Chr(13)
                         Set ButtonObject(2) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "保存文件", "保存文件", Psave)
                         Dim Pprinter As String
                         Pprinter = Chr(3) + Chr(3) + Chr(95) + "plot" + Chr(13)
                         Set ButtonObject(3) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打印文件", "打印文件", Pprinter)
                         Dim Pcut As String
                         Pcut = Chr(3) + Chr(3) + Chr(95) + "cutclip" + Chr(13)
                         Set ButtonObject(4) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "剪切", "剪切", Pcut)
                         Set newToolBarSeparator = ToolbarObject.AddSeparator(ToolbarObject.Count + 1)
                         Dim pCopy As String
                         pCopy = Chr(3) + Chr(3) + Chr(95) + "copyBase" + Chr(13)
                         Set ButtonObject(5) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "带基点复制", "带基点复制", pCopy)
                         Dim Ppaste As String
                         Ppaste = Chr(3) + Chr(3) + Chr(95) + "pasteclip" + Chr(13)
                         Set ButtonObject(6) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "粘贴", "粘贴", Ppaste)
                         Dim Pbreak As String
                         Pbreak = Chr(3) + Chr(3) + Chr(95) + "break" + Chr(13)
                         Set ButtonObject(7) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打断", "打断", Pbreak)
                         Set newToolBarSeparator = ToolbarObject.AddSeparator(ToolbarObject.Count + 1)
                         Dim Ptrim As String
                         Ptrim = Chr(3) + Chr(3) + Chr(95) + "trim" + Chr(13)
                         Set ButtonObject(8) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "截断", "截断", Ptrim)
                         Dim Pextend As String
                         Pextend = Chr(3) + Chr(3) + Chr(95) + "extend" + Chr(13)
                         Set ButtonObject(9) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "延伸", "延伸", Pextend)
                         Dim Pmove As String
                         Pmove = Chr(3) + Chr(3) + Chr(95) + "move" + Chr(13)
                         Set ButtonObject(10) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "移动", "移动", Pmove)
                         SmallBitmapName(1) = "C:\Program Files\AutoCAD 2004\New Folder\POpen.BMP"
                         SmallBitmapName(2) = "C:\Program Files\AutoCAD 2004\New Folder\Psave.BMP"
                         SmallBitmapName(3) = "C:\Program Files\AutoCAD 2004\New Folder\Pprinter.BMP"
                         SmallBitmapName(4) = "C:\Program Files\AutoCAD 2004\New Folder\Pcut.BMP"
                         SmallBitmapName(5) = "C:\Program Files\AutoCAD 2004\New Folder\Pcopy.BMP"
                         SmallBitmapName(6) = "C:\Program Files\AutoCAD 2004\New Folder\Ppaste.BMP"
                         SmallBitmapName(7) = "C:\Program Files\AutoCAD 2004\New Folder\Pdd.BMP"
                         SmallBitmapName(8) = "C:\Program Files\AutoCAD 2004\New Folder\Pcj.BMP"
                         SmallBitmapName(9) = "C:\Program Files\AutoCAD 2004\New Folder\Pys.BMP"
                         SmallBitmapName(10) = "C:\Program Files\AutoCAD 2004\New Folder\Pmove.BMP"
回复

使用道具 举报

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-3-29 12:23:00 | 显示全部楼层
谢谢朋友:
                                                 不过我还有个问题请教:
就是用菜单控制autcad自定义工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记,比如工具条显示时,对应菜单左边打个对号,反之,隐藏时,对应菜单左边就没了对号?
                                                         谢谢
                                                                                                                                                                                                                                                                                                                                                                                                                         lgc
回复

使用道具 举报

9

主题

35

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
71
发表于 2005-3-29 16:59:00 | 显示全部楼层
请问朋友:子定义的菜单项可以调用自定义的过程函数吗?快捷菜单如何制作?
回复

使用道具 举报

9

主题

35

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
71
发表于 2005-3-31 15:38:00 | 显示全部楼层
请问如何可以控制菜单项的可用性??
回复

使用道具 举报

9

主题

40

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
76
发表于 2005-4-3 09:35:00 | 显示全部楼层
如果让系统启动就自动加载呢?
但不能重复加载.我目前使用这种办法可以自动加载,但是每次在CAD启动以后,如果在不关闭CAD的情况下,再打开另一个文件的时候就会出现重复家载的错误.
(command "-vbarun" "dots.dvb!dotsdesign.NewMenuItem")
(command "-vbarun" "dots.dvb!dotsdesign.NewMenuToolbar")
回复

使用道具 举报

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2005-4-3 09:57:00 | 显示全部楼层
谢谢kevinchan,
                                                                我现在比较困惑的是:假如已加载的工具条被关闭后,怎么能让它通过菜单让它可见.我试了重复加载,但不管用.是不是得用:menutoolbar.visual实现呢?我实在想不出来!!!
        lgc
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-4-4 21:09:00 | 显示全部楼层
在CAD的工具栏\自定义。。。,点击你的工具条名
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 22:05 , Processed in 0.441554 second(s), 72 queries .

© 2020-2025 乐筑天下

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