获取菜单组所在的自定义文件名。 支持的平台:仅窗口 属性值只读:是的 类型:字符串 声明为字符串类型的用户指定的变量。 言论没有额外的评论。 例子工 务 局: 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-10-24 14:34
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.