我加载的工具栏为什么一个按钮都没有，高手帮忙解答下

changyiran · 发表于 2012-4-16 13:13:42

我加载了工具栏后变成了这个形状，[img]file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/583109744/QQ/WinTemp/RichOle/9AX9JIZTZ)I511YR4AJR@[M.jpg[/img] ，里面的命令都能用，就是用不了自定义按钮？请问高手们这是为什么呢？

changyiran · 发表于 2012-4-16 13:27:24

源码

(defun create_xgj.mnu ( / filen lst menuname stream tempname x);创建cass小工具工具栏
(defun getmenu ( / lst x) ; 获得cad加载的菜单列表
(vlax-for x (vla-get-menugroups (vlax-get-acad-object))
(setq lst (cons (vla-get-name x) lst))
)
)
(setvar "cmdecho" 0)
(vl-load-com)
(if (member "XGJ" (getmenu)) ; 判断cad是否加载zct工具栏
(command "TOOLBAR" "cass小工具" "S") ; 如果已加载，则显示该工具栏
(progn ; 如果没加载，则自动执行下面程序
(alert "\n程序自动创建\"cass小工具\"工具栏，请稍后……")
(setq menuname (cond
((setq tempname "xgj.mnu" ; 在cad搜索目录创建一个菜单mnu文件
filen (open tempname "w") ; 打开该菜单并写状态
)
(foreach stream '("***MENUGROUP=xgj\n" "***TOOLBARS\n" ; 写入工具栏内容，图标最好采用cad自带的图标
"**若干测绘用实用小程序\n" "ID_xgj001 [_Toolbar(\"cass小工具\", _Floating, _Hide, 10, 340, 2)]\n"
"ID_xgj008 [_Button(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\)]^C^Cpon\n"
"ID_xgj009 [_Button(\"关闭所选图层以外图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cpoff\n"
"ID_xgj010 [_Button(\"关闭所选图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cpgbtc\n"
"ID_xgj011 [_Button(\"图元表\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cptyb\n"
"ID_xgj012 [_Button(\"en对象\", \"RCDATA_16_DIMOBL\", \"RCDATA_16_DIMOBL\")]^C^Cpty\n"
"ID_xgj013 [_Button(\"vla对象\", \"RCDATA_16_TEXEDI\", \"RCDATA_16_TEXEDI\")]^C^Cpvla\n"
)
(princ stream filen)
)
(close filen) ; 关闭mnu文件
tempname
)
)
)
(command "menuload" menuname) ; 加载刚才创建的mnu文件
(command "TOOLBAR" "cass小工具" "S") ; 显示工具栏
)
)
(princ)
)
(create_xgj.mnu)

(defun create_xgj.mnu ( / filen lst menuname stream tempname x);创建cass小工具工具栏 
  (defun getmenu ( / lst x)                         ; 获得cad加载的菜单列表 
    (vlax-for x (vla-get-menugroups (vlax-get-acad-object)) 
                      (setq lst (cons (vla-get-name x) lst)) 
    ) 
  ) 
  (setvar "cmdecho" 0) 
  (vl-load-com) 
  (if (member "XGJ" (getmenu))                         ; 判断cad是否加载zct工具栏 
    (command "TOOLBAR" "cass小工具" "S")                ; 如果已加载，则显示该工具栏 
    (progn                           ; 如果没加载，则自动执行下面程序 
      (alert "\n程序自动创建\"cass小工具\"工具栏，请稍后……") 
      (setq menuname (cond 
                           ((setq tempname "xgj.mnu"        ; 在cad搜索目录创建一个菜单mnu文件 
                                 filen (open tempname "w") ; 打开该菜单并写状态 
                                ) 
                               (foreach stream '("***MENUGROUP=xgj\n" "***TOOLBARS\n" ; 写入工具栏内容，图标最好采用cad自带的图标 
                                                     "**若干测绘用实用小程序\n" "ID_xgj001        [_Toolbar(\"cass小工具\", _Floating, _Hide, 10, 340, 2)]\n" 
                                                    "ID_xgj008        [_Button(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\)]^C^Cpon\n" 
                                                    "ID_xgj009        [_Button(\"关闭所选图层以外图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cpoff\n" 
                                                    "ID_xgj010        [_Button(\"关闭所选图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cpgbtc\n" 
                                                    "ID_xgj011        [_Button(\"图元表\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]^C^Cptyb\n" 
                                                     "ID_xgj012        [_Button(\"en对象\", \"RCDATA_16_DIMOBL\", \"RCDATA_16_DIMOBL\")]^C^Cpty\n" 
                                                    "ID_xgj013        [_Button(\"vla对象\", \"RCDATA_16_TEXEDI\", \"RCDATA_16_TEXEDI\")]^C^Cpvla\n" 
                                                       ) 
                                                   (princ stream filen) 
                                   ) 
                               (close filen)     ; 关闭mnu文件 
                               tempname 
                            ) 
                             ) 
      ) 
      (command "menuload" menuname)        ; 加载刚才创建的mnu文件 
      (command "TOOLBAR" "cass小工具" "S") ; 显示工具栏 
    ) 
  ) 
  (princ) 
) 
(create_xgj.mnu)

changyiran · 发表于 2012-4-16 13:28:12

声明一下，这段代码是在本论坛一个帖子的基础上修改的，在此对原帖作者表示感谢！

sachindkini · 发表于 2012-4-16 14:35:27

Dear Friend,

See This Link

Custom ToolBar

changyiran · 发表于 2012-4-16 16:01:08

sachindkini 发表于 2012-4-16 14:35
Dear Friend,

See This Link

thanks，i‘ll study it Seriously！

langjs · 发表于 2012-4-16 22:46:36

(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\)]
少了个双引号

(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\")]

changyiran · 发表于 2012-4-17 07:58:32

langjs 发表于 2012-4-16 22:46
(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\)]
少了个双引号

果然如此，非常感谢大师细心的查看

changyiran · 发表于 2012-4-17 11:57:19

langjs 发表于 2012-4-16 22:46
(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\)]
少了个双引号

还有个问题要请教一下大师，RCDATA_16_OSNEND应该位于cad搜索路径下，但是我在整个电脑里查找RCDATA_16_OSNEND，却是什么都搜索不到，这是什么原因呢？

changyiran · 发表于 2012-4-17 13:53:43

本帖最后由 changyiran 于 2012-4-17 13:55 编辑

changyiran 发表于 2012-4-17 11:57
还有个问题要请教一下大师，RCDATA_16_OSNEND应该位于cad搜索路径下，但是我在整个电脑里查找RCDATA_16_O ...

非常感谢，又明白了一些。。想要完全符合自己的按钮图标，估计还是得自己做，我用freehand做的，单位也选的是像素，然后宽设成16，高设成15，但是导出来的图像像素并不是16*15，不知大师对此是否清楚？

账号		自动登录	找回密码
密码			注册

我加载的工具栏为什么一个按钮都没有，高手帮忙解答下

相关帖子

本帖子中包含更多资源

点评