下拉菜单图标

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

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

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

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

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

谢谢你的回复&nbsp；我&#039；ve done是将带有vba的菜单项添加到我的自定义菜单中&nbsp；现在我要做的是（使用vba代码）将图像添加到添加的菜单项&nbsp；这可以通过vba代码实现吗？

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

这是一个好问题。我用vba将自定义菜单添加到右键单击菜单，所以我打赌这是可能的。然而，我从未见过这样做。对不起，我可以&#039；别再帮我了。

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

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

kdub · 发表于 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

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

DaveW，适用于工具栏按钮，但tdaniel14不是&#039；在寻找工具栏按钮时，tdaniel14正在寻找下拉菜单（也称为PopupMenu）上的图标，从非常有限的测试、帮助查找和智能感知检查来看，DaveR似乎是对的，除非有隐藏的方法。

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

你们都是对的。我开枪了。我的胳膊烧伤了，没有引起注意。我向戴夫道歉
AcadToolbar确实有SetBitmaps方法，但AcadPopupMenu没有
我有一种感觉，如果命名相同，我们正在尝试做的事情可能是可能的，但无法让ACAD做到这一点。

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

如果你看CUI而不是跨国公司

copy

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

但我不会以任何方式、任何原因、任何金额直接通过VBA修改CUI或其他任何事情&nbsp；好吧，我撒谎，我会为了钱而做，它不会&#039；我甚至不需要太多。

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

这将是工作和难以预见的问题，但…这是一个很酷的工作一轮！！

下拉菜单图标

发表回复

精选推荐