【已解决】; 错误: Automation 错误。 参数 wzhb.bmp (位于 SetBitmap 中) 无效

qyming2000

1. (defun addToolbars (toolbarname          lst                /
   
2.                     addtoolbar          currmenugroup        bitmap
   
3.                     helpstring          macro                name
   
4.                     newtoolbar          newtoolbarbutton
   
5.                     x                  toolbars
   
6.                    )
   
7.   (defun addtoolbar (curtoolbar         lst             /                 name
   
8.                      bitmap         helpstring  index         x
   
9.                      macro         newtoolbarbutton
   
10.                     )
    
11.     (setq index 0)
    
12.     (mapcar '(lambda (x / name macro bitmap helpString)
    
13.                (setq name        (car x)
    
14.                      macro        (cadr x)
    
15.                      bitmap        (caddr x)
    
16.                      helpstring        name
    
17.                )
    
18.                (cond ((= name "--") (vla-addseparator curtoolbar index))
    
19.                      (t
    
20.                       (setq newToolbarButton
    
21.                              (vla-addToolbarButton
    
22.                                curtoolbar
    
23.                                index
    
24.                                name
    
25.                                name
    
26.                                (strcat (chr 3) (chr 3) macro (chr 32))
    
27.                              )
    
28.                       )
    
29.                       (vla-setBitmaps newToolbarButton Bitmap Bitmap)
    
30.                       (vla-put-helpString newToolbarButton helpString)
    
31.                      )
    
32.                )
    
33.                (setq index (1+ index))
    
34.              )
    
35.             lst
    
36.     )
    
37.   )
    
38.   (setq        currMenuGroup
    
39.          (vla-item (vla-get-menugroups (vlax-get-acad-object))
    
40.                    0
    
41.          )
    
42.   )
    
43.   (setq toolbars (vla-get-toolbars currMenuGroup))
    
44.   (if (setq newToolbar (vla-item toolbars toolbarname))
    
45.     (vla-delete newToolbar)
    
46.   )
    
47.   (setq newToolbar (vla-add toolbars toolbarname))
    
48.   (addtoolbar newToolbar lst)
    
49.   (vl-cmdf "_-toolbar" toolbarname "_bottom" "")
    
50. )
    
51. 
    
52. (addToolbars
    
53.   "文字工具"
    
54.   '(("文字合并" "wzhb" "wzhb.bmp")
    
55.     ("文字对齐" "wzdq" "wzdq.bmp")
    
56.     ("--")
    
57.     ("文字编号" "wzbh" "wzbh.bmp")
    
58.    )
    
59. )

(defun addToolbars (toolbarname          lst                /<br />                     addtoolbar          currmenugroup        bitmap<br />                     helpstring          macro                name<br />                     newtoolbar          newtoolbarbutton<br />                     x                  toolbars<br />                    )<br />   (defun addtoolbar (curtoolbar         lst             /                 name<br />                      bitmap         helpstring  index         x<br />                      macro         newtoolbarbutton<br />                     )<br />     (setq index 0)<br />     (mapcar '(lambda (x / name macro bitmap helpString)<br />                (setq name        (car x)<br />                      macro        (cadr x)<br />                      bitmap        (caddr x)<br />                      helpstring        name<br />                )<br />                (cond ((= name "--") (vla-addseparator curtoolbar index))<br />                      (t<br />                       (setq newToolbarButton<br />                              (vla-addToolbarButton<br />                                curtoolbar<br />                                index<br />                                name<br />                                name<br />                                (strcat (chr 3) (chr 3) macro (chr 32))<br />                              )<br />                       )<br />                       (vla-setBitmaps newToolbarButton Bitmap Bitmap)<br />                       (vla-put-helpString newToolbarButton helpString)<br />                      )<br />                )<br />                (setq index (1+ index))<br />              )<br />             lst<br />     )<br />   )<br />   (setq        currMenuGroup<br />          (vla-item (vla-get-menugroups (vlax-get-acad-object))<br />                    0<br />          )<br />   )<br />   (setq toolbars (vla-get-toolbars currMenuGroup))<br />   (if (setq newToolbar (vla-item toolbars toolbarname))<br />     (vla-delete newToolbar)<br />   )<br />   (setq newToolbar (vla-add toolbars toolbarname))<br />   (addtoolbar newToolbar lst)<br />   (vl-cmdf "_-toolbar" toolbarname "_bottom" "")<br /> )<br /> <br /> (addToolbars<br />   "文字工具"<br />   '(("文字合并" "wzhb" "wzhb.bmp")<br />     ("文字对齐" "wzdq" "wzdq.bmp")<br />     ("--")<br />     ("文字编号" "wzbh" "wzbh.bmp")<br />    )<br /> )

qyming2000

无解吗？
来自: 微社区