菜单名？

gczg

菜单名？

willsnow1982

这个是一个范文中的一段，我搜索的，你看看有没有用吧～

不过，你调用这个菜单做什么？嘿嘿，也许可以不用调用呢？

范例

(defun Example_NameNoMnemonic ()

;;;这个范例处理整个菜单集合并

;;;显示每一个菜单的 Name 与 NameNoMnemonic 属性

;;;注意，依当前的您加载的菜单多少而定

  (VL-LOAD-COM)

  (setq    AcadObject   (vlax-get-acad-object)

       AcadDocument (vla-get-ActiveDocument AcadObject)

       mSpace        (vla-get-ModelSpace AcadDocument)

  )

;;;

;;;menuStatus 字符串可能不会完全地显示

  (setq menuStatus "")

  (setq menuGroupSel (vla-get-MenuGroups AcadObject))

  (setq menuGroups (vla-Item menuGroupSel 0))

  (setq menus (vla-get-Menus menuGroups))

  (VLAX-FOR menu menus

    (setq menuStatus

          (STRCAT menuStatus

                 (vla-get-Name menu)

                 "--"

                 (vla-get-NameNoMnemonic menu)

                 "\r \n"

          )

    )

  )

  (princ menuStatus)

  (princ)

)

willsnow1982

这个也是

(defun Example_Menus ()

;;;这个范例找出第一个菜单组所有菜单的名称  (VL-LOAD-COM)

  (setq    AcadObject   (vlax-get-acad-object)

       AcadDocument (vla-get-ActiveDocument AcadObject)

       mSpace        (vla-get-ModelSpace AcadDocument)

  )

　

  (setq menuGroupSel (vla-get-MenuGroups AcadObject))

  (setq menuGroups (vla-Item menuGroupSel 0))

  (setq menuSel (vla-get-Menus menuGroups))

  (setq menuNames "")

  (VLAX-FOR menu menuSel

    (setq menuNames (STRCAT menuNames

                         (vla-get-Name menu)

                         " "

                         (vla-get-Name menu)

                         "\r \n"

                  )

    )

  )

  (princ menuNames)

  (princ)

)

gczg

谢谢，谢谢。