下拉菜单图标
AutoCAD 2006在下拉菜单上具有图标。有人知道是否可以通过VBA代码添加图标吗。我有添加菜单项的代码，但无法添加图像。顺便说一下，我所有的自定义位图都在一个dll文件中。**** Hidden Message ***** 嗨，
看看附加的zip文件在其中，您将找到位图的dll和mns文件。
对于 2006 和 2007，您应该让 2006 或 2007 为您创建 cui 文件。单独执行它们，因为我注意到在2006中创建然后在2007年加载的cui文件可能会有问题，但是如果您在2007年转换它，cui工作正常。
请记住，您必须将 dll 和 cui 或 mns 放在同一个文件夹中，它们应该具有相同的名称（扩展名除外），并且应该在支持路径中。
如果您还有其他需要，请告诉我。
祝你好运，
戴夫 感谢您的回复。 我所做的是将带有vba的菜单项添加到我的自定义菜单中。 现在我想做的是（使用vba代码）将图像添加到添加的菜单项中。 这可以通过vba代码实现吗？ 这是一个好问题。我使用vba将自定义菜单添加到右键菜单中，所以我打赌这是可能的。然而，我从未见过这样做。抱歉，我帮不上什么忙。 这在VBA代码中是不可能的，除非你深入研究Windows API。AutoCAD 不会在 VBA API 中公开这些属性。只能将图标添加到动态创建的工具栏。 看一下这段代码。看来这是如何做到的，Dvae R是不正确的。谁知道呢，也许它不起作用，但它应该，方法就在那里。我没有测试过。
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，这适用于工具栏按钮，但tdaniel14不是在寻找工具栏按钮，tdaniel14正在寻找下拉菜单（又名PopupMenu）上的图标，从非常有限的测试、帮助查找和智能感知检查来看，除非有隐藏的方法，否则DaveR似乎是正确的。
你们俩都对。我草率行事。我烧伤了手臂，没有仔细注意。我道歉Dave。
AcadToolbar确实有SetBitmap方法，但AcadPopupMenu没有。
我有一种感觉，如果命名相同，我们正在尝试做的事情可能是可能的，但一直未能让ACAD做到这一点。 如果您看到的是CUI而不是MNC＜pre＞
Ledger
^C^C^P(IF(NOT C:LEDGER)(load "SNA-LEDGER.lsp"));LEDGER;
，但我不会以任何方式、任何原因、任何金额直接通过VBA修改CUI，或为此修改任何其他内容。好吧，我撒谎，我会为了钱而这么做，而且不会花很多钱。 对于不可预见的问题，这将是有效的，并且是困难的，但是....这是一个很酷的工作一轮！！
页:
[1]
2