为什么用lisp写的工具栏，转化成vlx之后就无法加载了？

guerearou

2. (defun create_toolbar (/ file lst x lsfile)
   
3.   (setvar "cmdecho" 0)
   
4.   (vl-load-com)
   
5.   (if (not (menugroup "SLtool"))  ; 判断cad是否加载temptoolbar工具栏
   
6.     (progn          ; 如果没加载，则自动执行下面程序
   
7.       (setq file (open "SLtool.mnu" "W"))    ;创建工具栏
   
8.       (foreach x '("***MENUGROUP=SLtool\n\n***TOOLBARS\n**SLtool"
   
9. "ID_ZCT001      [_Toolbar("算量工具", _Right, _show, 0, 0, 1)]"
   
10. "ID_SL011           [_Flyout("全开","ua","ua",_OtherIcon,SLtool01)]"
    
11. "ID_SL02          [_Flyout("统长", "q","q",_OtherIcon,SLtool02)]"
    
12. "ID_SL03          [_Flyout("到xls", "dx","dx",_OtherIcon,SLtool03)]"
    
13. "ID_SL05          [_Flyout("查找", "t","t",_OtherIcon,SLtool05)]"
    
14. "ID_SL012           [_Button("按层选",\ "RCDATA_16_PLANESURF", "RCDATA_16_PLANESURF")]^C^Cv"
    
15. "ID_SL012          [_Button("多线", "RCDATA_16_OSNPAR", "RCDATA_16_OSNPAR")]^C^Cb"
    
16. "ID_SL012          [_Button("新层", "RCDATA_16_CURLAY", "RCDATA_16_CURLAY")]^C^Cxx"
    
17. "ID_SL012           [_Button("块数量", "RCDATA_16_DONUT", "RCDATA_16_DONUT")]^C^Ckk"
    
18. "ID_Dimlinear          [_Button("距离", "RCDATA_16_DIMLIN", "RCDATA_16_DIMLIN")]^C^Cdd"
    
19. "ID_Dist          [_Button("帮助", "RCDATA_16_PTFY", "RCDATA_16_PTFY")]^C^Chh"         
    
20. "**SLtool01"
    
21. "ID_ZCT001        [_Toolbar("图层", _Floating, _Hide, 10, 340, 1)]"
    
22. "ID_SL011        [_Button("全开图层", "RCDATA_16_LAYUNISO", "RCDATA_16_LAYUNISO")]^C^Cua"
    
23. "ID_SL012        [_Button("选择关闭", "RCDATA_16_FRZLAY", "RCDATA_16_FRZLAY")]^C^Cqw"
    
24. "ID_SL012        [_Button("未选关闭", "RCDATA_16_WLKLAY", "RCDATA_16_WLKLAY")]^C^Cqe"
    
25. "**SLtool02"
    
26. "ID_ZCT001        [_Toolbar("统计", _Floating, _Hide, 10, 340, 1)]"
    
27. "ID_SL012           [_Button("线共长", "RCDATA_16_SPLINE", "RCDATA_16_SPLINE")]^C^Cq"
    
28. "ID_SL012           [_Button("算面积", "RCDATA_16_POLYGO", "RCDATA_16_POLYGO")]^C^Caa"
    
29. "**SLtool03"
    
30. "ID_ZCT001         [_Toolbar("导出", _Floating, _Hide, 10, 340, 1)]"
    
31. "ID_SL012          [_Button("到xls","RCDATA_16_TABLESTYLE", "RCDATA_16_TABLESTYLE")]^C^Cdx"
    
32. "ID_SL012          [_Button("到txt", "RCDATA_16_NEW", "RCDATA_16_NEW")]^C^Cdt"
    
33. "**SLtool05"
    
34. "ID_ZCT001       [_Toolbar("文字", _Floating, _Hide, 10, 340, 1)]"
    
35. "ID_SL012          [_Button("查找", "RCDATA_16_ZOOPRE", "RCDATA_16_ZOOPRE")]^C^Ct"
    
36. "ID_SL012          [_Button("刷子", "RCDATA_16_PURGE", "RCDATA_16_PURGE")]^C^Css"
    
37. )
    
38. (princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件
    
39.       )
    
40.       (close file)         ; 关闭mnu文件
    
41.       (command "menuload" "SLtool.mnu") ; 加载temptoolbar工具栏   
    
42.     )
    
43.   )
    
44.   (command "TOOLBAR" "算量工具" "S") ; 显示工具栏
    
45.   (princ)
    
46. )
    
47. (create_toolbar)  ;开机加载
    
48. (defun C:DK() ;意外关闭之后重新打开
    
49.   (command "TOOLBAR" "算量工具" "S")
    
50. )      
    

(defun create_toolbar (/ file lst x lsfile)<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (if (not (menugroup "SLtool"))  ; 判断cad是否加载temptoolbar<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>栏<br />     (progn          ; 如果没加载，则自动执行下面程序<br />       (setq file (open "SLtool.mnu" "W"))    ;创建工具栏<br />       (foreach x '("***MENUGROUP=SLtool\n\n***TOOLBARS\n**SLtool" <br /> "ID_ZCT001      [_Toolbar("算量工具", _Right, _show, 0, 0, 1)]"<br /> "ID_SL011           [_Flyout("全开","ua","ua",_OtherIcon,SLtool01)]"<br /> "ID_SL02          [_Flyout("统长", "q","q",_OtherIcon,SLtool02)]"<br /> "ID_SL03          [_Flyout("到xls", "dx","dx",_OtherIcon,SLtool03)]"<br /> "ID_SL05          [_Flyout("查找", "t","t",_OtherIcon,SLtool05)]"<br /> "ID_SL012           [_Button("按层选",\ "RCDATA_16_PLANESURF", "RCDATA_16_PLANESURF")]^C^Cv"<br /> "ID_SL012          [_Button("多线", "RCDATA_16_OSNPAR", "RCDATA_16_OSNPAR")]^C^Cb"<br /> "ID_SL012          [_Button("新层", "RCDATA_16_CURLAY", "RCDATA_16_CURLAY")]^C^Cxx"<br /> "ID_SL012           [_Button("块数量", "RCDATA_16_DONUT", "RCDATA_16_DONUT")]^C^Ckk"<br /> "ID_Dimlinear          [_Button("距离", "RCDATA_16_DIMLIN", "RCDATA_16_DIMLIN")]^C^Cdd"<br /> "ID_Dist          [_Button("帮助", "RCDATA_16_PTFY", "RCDATA_16_PTFY")]^C^Chh"          <br /> "**SLtool01"<br /> "ID_ZCT001        [_Toolbar("图层", _Floating, _Hide, 10, 340, 1)]"<br /> "ID_SL011        [_Button("全开图层", "RCDATA_16_LAYUNISO", "RCDATA_16_LAYUNISO")]^C^Cua"<br /> "ID_SL012        [_Button("选择关闭", "RCDATA_16_FRZLAY", "RCDATA_16_FRZLAY")]^C^Cqw"<br /> "ID_SL012        [_Button("未选关闭", "RCDATA_16_WLKLAY", "RCDATA_16_WLKLAY")]^C^Cqe"<br /> "**SLtool02"<br /> "ID_ZCT001        [_Toolbar("统计", _Floating, _Hide, 10, 340, 1)]"<br /> "ID_SL012           [_Button("线共长", "RCDATA_16_SPLINE", "RCDATA_16_SPLINE")]^C^Cq"<br /> "ID_SL012           [_Button("算面积", "RCDATA_16_POLYGO", "RCDATA_16_POLYGO")]^C^Caa"<br /> "**SLtool03"<br /> "ID_ZCT001         [_Toolbar("导出", _Floating, _Hide, 10, 340, 1)]"<br /> "ID_SL012          [_Button("到xls","RCDATA_16_TABLESTYLE", "RCDATA_16_TABLESTYLE")]^C^Cdx"<br /> "ID_SL012          [_Button("到txt", "RCDATA_16_NEW", "RCDATA_16_NEW")]^C^Cdt"<br /> "**SLtool05"<br /> "ID_ZCT001       [_Toolbar("文字", _Floating, _Hide, 10, 340, 1)]"<br /> "ID_SL012          [_Button("查找", "RCDATA_16_ZOOPRE", "RCDATA_16_ZOOPRE")]^C^Ct"<br /> "ID_SL012          [_Button("刷子", "RCDATA_16_PURGE", "RCDATA_16_PURGE")]^C^Css"<br /> )<br /> (princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件<br />       )<br />       (close file)         ; 关闭mnu文件<br />       (command "menuload" "SLtool.mnu") ; 加载temptoolbar工具栏    <br />     )<br />   )<br />   (command "TOOLBAR" "算量工具" "S") ; 显示工具栏<br />   (princ)<br /> )<br /> (create_toolbar)  ;开机加载<br /> (defun C:DK() ;意外关闭之后重新打开<br />   (command "TOOLBAR" "算量工具" "S")<br /> )      <br />

自贡黄明儒

估计"SLtool.mnu"不在支持文件目录下

尘缘一生

和CAD版本、安装、有关。