iCAx开思工具箱

标题: solidworks二次开发怎么添加二级菜单 [打印本页]

作者: 2627235904 时间: 2013-6-19 15:05
标题: solidworks二次开发怎么添加二级菜单
怎么用.net写二级代码的命令,求各路大师指教

作者: 2627235904 时间: 2013-6-19 16:24
大师们快点现身啊

作者: leaky114 时间: 2013-10-15 15:04
  Public Sub AddCommandMgr()

      Dim cmdGroup As ICommandGroup
      Dim iBmp As New BitmapHandler
      Dim thisAssembly As Assembly

      thisAssembly = System.Reflection.Assembly.GetAssembly(Me.GetType())

      cmdGroup = iCmdMgr.CreateCommandGroup(1, "SwTool", "SwTool插件", "", -1)
      'cmdGroup.LargeIconList = iBmp.CreateFileFromResourceBitmap("CallSwTool.ToolbarLarge.bmp", thisAssembly)
      'cmdGroup.SmallIconList = iBmp.CreateFileFromResourceBitmap("CallSwTool.ToolbarSmall.bmp", thisAssembly)
      cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("CallSwTool.MainIconLarge.bmp", thisAssembly)
      cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("CallSwTool.MainIconSmall.bmp", thisAssembly)

      'cmdGroup.AddCommandItem("CreateCube", -1, "Create a cube", "Create cube", 0, "CreateCube", "", 0)
      'cmdGroup.AddCommandItem("Show PMP", -1, "Display sample property manager", "Show PMP", 2, "ShowPMP", "PMPEnable", 2)

      cmdGroup.AddCommandItem("启动SwTool", -1, "启动SwTool", "启动SwTool", 0, "StartSwTool", "", 0)
      cmdGroup.AddSpacer(1)
      cmdGroup.AddCommandItem("另存为CAD", -1, "另存当前文档为CAD", "", 0, "SaveAsCAD", "", 0)
      cmdGroup.AddSpacer(3)
      cmdGroup.AddCommandItem("关于", -1, "关于SwTool", "关于SwTool", 0, "FrmAbout", "", 0)

      cmdGroup.HasToolbar = False
      cmdGroup.HasMenu = True
      cmdGroup.Activate()

      thisAssembly = Nothing
      iBmp.Dispose()
End Sub

作者: api163 时间: 2015-1-27 15:59
上面是添加工具条的吗？

作者: o0g9 时间: 2015-8-20 10:45

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)