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

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

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

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      \n"
                                                    "ID_xgj008      ^C^Cpon\n"
                                                    "ID_xgj009      ^C^Cpoff\n"
                                                    "ID_xgj010      ^C^Cpgbtc\n"
                                                    "ID_xgj011      ^C^Cptyb\n"
                                                   "ID_xgj012      ^C^Cpty\n"
                                                    "ID_xgj013      ^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 static/image/common/back.gif
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 static/image/common/back.gif
(\"打开所有图层\", \"RCDATA_16_OSNEND\", \"RCDATA_16_OSNEND\)]
少了个双引号



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

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

langjs 发表于 2012-4-16 22:46 static/image/common/back.gif
(\"打开所有图层\", \"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 http://bbs.mjtd.com/static/image/common/back.gif
还有个问题要请教一下大师，RCDATA_16_OSNEND应该位于cad搜索路径下，但是我在整个电脑里查找RCDATA_16_O ...

非常感谢，又明白了一些。。想要完全符合自己的按钮图标，估计还是得自己做，我用freehand做的，单位也选的是像素，然后宽设成16，高设成15，但是导出来的图像像素并不是16*15，不知大师对此是否清楚？
页: [1]
查看完整版本: 我加载的工具栏为什么一个按钮都没有，高手帮忙解答下