如何获取一个工具条中每个按钮的名称列表

zdqwy19

     疑问：使用什么方法可以获取一个工具条中每个按钮的名称列表？

该贴已经同步到 zdqwy19的微博

Gu_xl

1. ;;gxl-sys-ListTBarItems 列出工具条明细，参数:GROUPNAME = 菜单组名称 TBARNAME = 工具条名称
   
2. ;;示例 (gxl-sys-ListTBarItems "ACAD" "查询")
   
3. (defun gxl-sys-ListTBarItems (GROUPNAME TBARNAME / MGROUP TBARS TBAR RESULT)
   
4.   (if (not
   
5.         (VL-CATCH-ALL-ERROR-P
   
6.           (setq        mGroup (VL-CATCH-ALL-APPLY
   
7.                          'vla-item
   
8.                          (list (vla-get-menugroups
   
9.                                  (vlax-get-acad-object)
   
10.                                )
    
11.                                groupName
    
12.                          )
    
13.                        )
    
14.           )
    
15.         )
    
16.       )
    
17.     (progn
    
18.       (setq Tbars (vla-get-Toolbars mGroup))
    
19.       (if (not
    
20.             (VL-CATCH-ALL-ERROR-P
    
21.               (setq tbar
    
22.                      (VL-CATCH-ALL-APPLY 'vla-item (list Tbars TBarName))
    
23.               )
    
24.             )
    
25.           )
    
26.         (progn
    
27.           (vlax-for TBarItem tbar
    
28.             (setq result (cons (list (vla-get-TagString TBarItem)
    
29.                                      (vla-get-name TBarItem)
    
30.                                      (vla-get-Macro TBarItem)
    
31.                                      (vla-get-HelpString TBarItem)
    
32.                                )
    
33.                                result
    
34.                          )
    
35.             )
    
36.           )
    
37.           (reverse result) ;_ 返回值
    
38.         )
    
39.       )
    
40.     )
    
41.   )
    
42. )
    

;;gxl-sys-ListTBarItems 列出工具条明细，参数:GROUPNAME = 菜单组名称 TBARNAME = 工具条名称<br /> ;;示例 (gxl-sys-ListTBarItems "ACAD" "查询")<br /> (defun gxl-sys-ListTBarItems (GROUPNAME TBARNAME / MGROUP TBARS TBAR RESULT)<br />   (if (not<br />         (VL-CATCH-ALL-ERROR-P<br />           (setq        mGroup (VL-CATCH-ALL-APPLY<br />                          'vla-item<br />                          (list (vla-get-menugroups<br />                                  (vlax-get-acad-object)<br />                                )<br />                                groupName<br />                          )<br />                        )<br />           )<br />         )<br />       )<br />     (progn<br />       (setq Tbars (vla-get-Toolbars mGroup))<br />       (if (not<br />             (VL-CATCH-ALL-ERROR-P<br />               (setq tbar<br />                      (VL-CATCH-ALL-APPLY 'vla-item (list Tbars TBarName))<br />               )<br />             )<br />           )<br />         (progn<br />           (vlax-for TBarItem tbar<br />             (setq result (cons (list (vla-get-TagString TBarItem)<br />                                      (vla-get-name TBarItem)<br />                                      (vla-get-Macro TBarItem)<br />                                      (vla-get-HelpString TBarItem)<br />                                )<br />                                result<br />                          )<br />             )<br />           )<br />           (reverse result) ;_ 返回值<br />         )<br />       )<br />     )<br />   )<br /> )<br />

zdqwy19

Gu_xl 发表于 2012-3-24 19:46

谢谢!在命令行中运行很好，为什么在程序引用反而没有什么也不返回了.