田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



CUI添加自定义菜单栏命令 为Document.BeginDwgOpen注册事件
未知 Creates a new toolbar   [ 日期:2018-09-15 ]   [ 来自:本站原创 ]  HTML
' Command: addtoolbar
' Creates a new toolbar called "New Toolbar", and adds it to all workspaces. 
' This toolbar contains a Toolbar control for named view, button for drawing 
' a pline, and a flyout that uses the "Draw" tool bar.
<CommandMethod("addtoolbar")> _
Public Sub addToolbar()
    Dim newTb As New Toolbar("MyToolbar", cs.MenuGroup)

    '
'             * 
'             * 
'             * 
'                0,0 +---------------------------+
'                    |
'                    |
'                    |
'                    |       AutoCAD Screen
'                    |
'                    |
'                    |
'                    |                            +
'                    |                            |
'                    |                            |
'                    +                      +-----2000,1000
'             * 
'             * 
'             * 
'             * 
'             * 
'             * 
'             


    newTb.XCoordinate = 200
    newTb.YCoordinate = 200
    newTb.Rows = 1


    newTb.ToolbarOrient = ToolbarOrient.floating
    newTb.ToolbarVisible = ToolbarVisible.show

    Dim tbBtn As New ToolbarButton(newTb, -1)
    tbBtn.Name = "PolyLine"
    tbBtn.MacroID = "ID_Pline"

    'ToolbarControl tbCtrl = new ToolbarControl(ControlType.NamedViewControl,newTb,-1);
'    ToolbarFlyout tbFlyout = new ToolbarFlyout(newTb, -1);
'    tbFlyout.ToolbarReference = "DRAW";


    'Make toolbar available in all workspaces
    For Each wk As Workspace In cs.Workspaces
        Dim wkTb As New WorkspaceToolbar(wk, newTb)
        wk.WorkspaceToolbars.Add(wkTb)
        wkTb.Display = 1
    Next
    cs.SetIsModified()
    cs.Save()
    ' Here we unload and reload the main CUI file so the changes to the CUI file could take effect immediately.
    Dim flName As String = cs.CUIFileBaseName
    Application.SetSystemVariable("FILEDIA", 0)
    Application.DocumentManager.MdiActiveDocument.SendStringToExecute("cuiunload " + flName + " ", False, False, False)
    Application.DocumentManager.MdiActiveDocument.SendStringToExecute("cuiload " + flName + " filedia 1 ", False, False, False)
End Sub


弹出子工具条:
                Dim tbFlyout As New ToolbarFlyout(acToolBar(0), -1)
                tbFlyout.ToolbarReference = acToolBar(1).Name
还可参考
https://www.cnblogs.com/top5/archive/2009/12/29/1635039.html

[本日志由 tiancao1001 于 2018-09-16 11:41 PM 编辑]


暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:1*4=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©