下拉菜单图标
AutoCAD 2006的下拉菜单上有图标 ；有人知道是否可以通过VBA代码添加图标吗 ；我有添加菜单项的代码，但我可以#039；t添加图像 ；顺便说一句，我所有的自定义位图都在一个dll文件中。您好，请查看附带的zip文件。您将在其中找到位图的dll和mns文件
对于2006和2007，您应该让2006或2007为您创建cui文件。分开做，因为我注意到2006年创建的cui文件，然后在2007年加载可能会有问题，但如果在2007年转换，cui工作正常
请记住，dll和cui或mns必须位于同一文件夹中，它们除了扩展名外，其他名称应相同，并且应位于支持路径中
如果你还需要什么，请告诉我
祝你好运，戴夫 谢谢你的回复 ；我'；ve done是将带有vba的菜单项添加到我的自定义菜单中 ；现在我要做的是（使用vba代码）将图像添加到添加的菜单项 ；这可以通过vba代码实现吗？ 这是一个好问题。我用vba将自定义菜单添加到右键单击菜单，所以我打赌这是可能的。然而，我从未见过这样做。对不起，我可以'；别再帮我了。 It#039；除非深入研究Windows API，否则在VBA代码中是不可能的。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似乎是对的，除非有隐藏的方法。
你们都是对的。我开枪了。我的胳膊烧伤了，没有引起注意。我向戴夫道歉
AcadToolbar确实有SetBitmaps方法，但AcadPopupMenu没有
我有一种感觉，如果命名相同，我们正在尝试做的事情可能是可能的，但无法让ACAD做到这一点。 如果你看CUI而不是跨国公司
Ledger
^C^C^P(IF(NOT C:LEDGER)(load "SNA-LEDGER.lsp"));LEDGER;
但我不会以任何方式、任何原因、任何金额直接通过VBA修改CUI或其他任何事情 ；好吧，我撒谎，我会为了钱而做，它不会'；我甚至不需要太多。 这将是工作和难以预见的问题，但…这是一个很酷的工作一轮！！
页:
[1]
2