下拉菜单图标

tdaniel14 · 发表于 2006-7-21 14:13:47

AutoCAD 2006在下拉菜单上具有图标。有人知道是否可以通过VBA代码添加图标吗。我有添加菜单项的代码，但无法添加图像。顺便说一下，我所有的自定义位图都在一个dll文件中。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

DaveW · 发表于 2006-7-23 12:02:16

嗨，
看看附加的zip文件在其中，您将找到位图的dll和mns文件。
对于 2006 和 2007，您应该让 2006 或 2007 为您创建 cui 文件。单独执行它们，因为我注意到在2006中创建然后在2007年加载的cui文件可能会有问题，但是如果您在2007年转换它，cui工作正常。
请记住，您必须将 dll 和 cui 或 mns 放在同一个文件夹中，它们应该具有相同的名称（扩展名除外），并且应该在支持路径中。
如果您还有其他需要，请告诉我。
祝你好运，
戴夫

tdaniel14 · 发表于 2006-7-25 08:14:41

感谢您的回复。我所做的是将带有vba的菜单项添加到我的自定义菜单中。现在我想做的是（使用vba代码）将图像添加到添加的菜单项中。这可以通过vba代码实现吗？

DaveW · 发表于 2006-7-25 08:52:20

这是一个好问题。我使用vba将自定义菜单添加到右键菜单中，所以我打赌这是可能的。然而，我从未见过这样做。抱歉，我帮不上什么忙。

DaveW · 发表于 2006-7-25 12:33:00

这在VBA代码中是不可能的，除非你深入研究Windows API。AutoCAD 不会在 VBA API 中公开这些属性。只能将图标添加到动态创建的工具栏。

DaveW · 发表于 2006-7-25 18:45:20

看一下这段代码。看来这是如何做到的，Dvae R是不正确的。谁知道呢，也许它不起作用，但它应该，方法就在那里。我没有测试过。

copy

Sub Ch6_AddButton()
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
    
    ' Create the new toolbar
    Dim newToolbar As AcadToolbar
    Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
    
    ' Add a button to the new toolbar
    Dim newButton As AcadToolbarItem
    Dim openMacro As String
    
    ' Assign the macro the VB equivalent of "ESC ESC _open "
    openMacro = Chr(vbKeyEscape) + Chr(vbKeyEscape) + "_open "
    Set newButton = newToolbar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)
    newButton.GetBitmaps "1.BMP", "2.BMP"
    
End Sub

DaveW · 发表于 2006-7-25 18:51:53

DaveW，这适用于工具栏按钮，但tdaniel14不是在寻找工具栏按钮，tdaniel14正在寻找下拉菜单（又名PopupMenu）上的图标，从非常有限的测试、帮助查找和智能感知检查来看，除非有隐藏的方法，否则DaveR似乎是正确的。

tdaniel14 · 发表于 2006-7-25 19:50:03

你们俩都对。我草率行事。我烧伤了手臂，没有仔细注意。我道歉Dave。
AcadToolbar确实有SetBitmap方法，但AcadPopupMenu没有。
我有一种感觉，如果命名相同，我们正在尝试做的事情可能是可能的，但一直未能让ACAD做到这一点。

DaveW · 发表于 2006-7-25 20:01:29

如果您看到的是CUI而不是MNC＜pre＞

copy

      
        
          
          Ledger
          ^C^C^P(IF(NOT C:LEDGER)(load "SNA-LEDGER.lsp"));LEDGER;

，但我不会以任何方式、任何原因、任何金额直接通过VBA修改CUI，或为此修改任何其他内容。好吧，我撒谎，我会为了钱而这么做，而且不会花很多钱。

kdub · 发表于 2006-7-25 20:06:06

对于不可预见的问题，这将是有效的，并且是困难的，但是....这是一个很酷的工作一轮！！

下拉菜单图标

发表回复

精选推荐