为什么用lisp写的工具栏，转化成vlx之后就无法加载了？
(defun create_toolbar (/ file lst x lsfile)(setvar "cmdecho" 0)
(vl-load-com)
(if (not (menugroup "SLtool")); 判断cad是否加载temptoolbar工具栏
(progn ; 如果没加载，则自动执行下面程序
(setq file (open "SLtool.mnu" "W")) ;创建工具栏
(foreach x '("***MENUGROUP=SLtool\n\n***TOOLBARS\n**SLtool"
"ID_ZCT001 "
"ID_SL011 "
"ID_SL02 "
"ID_SL03 "
"ID_SL05 "
"ID_SL012 ^C^Cv"
"ID_SL012 ^C^Cb"
"ID_SL012 ^C^Cxx"
"ID_SL012 ^C^Ckk"
"ID_Dimlinear ^C^Cdd"
"ID_Dist ^C^Chh"
"**SLtool01"
"ID_ZCT001 "
"ID_SL011 ^C^Cua"
"ID_SL012 ^C^Cqw"
"ID_SL012 ^C^Cqe"
"**SLtool02"
"ID_ZCT001 "
"ID_SL012 ^C^Cq"
"ID_SL012 ^C^Caa"
"**SLtool03"
"ID_ZCT001 "
"ID_SL012 ^C^Cdx"
"ID_SL012 ^C^Cdt"
"**SLtool05"
"ID_ZCT001 "
"ID_SL012 ^C^Ct"
"ID_SL012 ^C^Css"
)
(princ (strcat x "\n") file) ; 将定义工具栏内容写入mnu文件
)
(close file) ; 关闭mnu文件
(command "menuload" "SLtool.mnu") ; 加载temptoolbar工具栏
)
)
(command "TOOLBAR" "算量工具" "S") ; 显示工具栏
(princ)
)
(create_toolbar);开机加载
(defun C:DK() ;意外关闭之后重新打开
(command "TOOLBAR" "算量工具" "S")
)
估计"SLtool.mnu"不在支持文件目录下 和CAD版本、安装、有关。
页:
[1]