获取菜单组所在的自定义文件名。 支持的平台:仅窗口 属性值只读:是的 类型:字符串 声明为字符串类型的用户指定的变量。 言论没有额外的评论。 例子工 务 局: Sub Example_MenuFileName() ' This example finds the file name for all loaded menu groups. Dim fileNames As String Dim menuGroup As acadMenuGroup fileNames = "" For Each menuGroup In ThisDrawing.Application.MenuGroups fileNames = fileNames & menuGroup.name & " " & menuGroup.MenuFileName & vbCrLf Next menuGroup MsgBox fileNames End Sub Visual LISP: (vl-load-com) (defun c:Example_MenuFileName() ;; This example finds the file name for all loaded menu groups. (setq acadObj (vlax-get-acad-object)) (setq fileNames "") (vlax-for mnuGroup (vla-get-MenuGroups acadObj) (setq fileNames (strcat fileNames (vla-get-Name mnuGroup) " " (vla-get-MenuFileName mnuGroup) "\n")) ) (alert fileNames) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-1-8 19:45
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.