工具栏如何分组，调整格式，求大神指教！！

红豆沙煎焖子

根据明经上的神贴自己弄了个菜单栏，但是分组没有弄好，我想把有箭头的标题归到一列，目前应该是差个分隔符号，导致分组关系错乱，不知道咋改了呢，期待各路大神指教！代码如下：


(defun create_珍珍Toolbox(/ f i)
  (if (not (menugroup "珍珍Toolbox"))
    (progn
      (setq f (open "珍珍Toolbox.mnu" "W"))  ; 建立珍珍Toolbox.mnu菜单文件
      (write-line "***MENUGROUP=珍珍Toolbox" f) ; 菜单名称就叫珍珍Toolbox吧
      (write-line "" f)                       ; 不用管它，这行就这个
      (write-line "***POP1" f)               ; 这行还不用管
      (write-line "" f)                       ; 接着不管。。。
      (write-line "[珍珍Toolbox]" f) ; 显示的菜单头，没头可不行
      (write-line "[->参照管理          ]" f) ;
          (write-line "[重载选定  XFR]^C^CXFR" f) ;
          (write-line "[重载所有 XFRA]^C^CXFRA" f) ;
          (write-line "[卸载选定  XFX]^C^CXFX" f) ;
          (write-line "[卸载所有 XFXA]^C^CXFXA" f) ;
          (write-line "[拆离选定  XFD]^C^CXFD" f) ;
          (write-line "[拆离所有 XFDA]^C^CXFDA" f) ;
          (write-line "[绑定选定  XFB]^C^CXFB" f) ;
          (write-line "[绑定所有 XFBA]^C^CXFBA" f) ;
(write-line "               [--]" f) ;
      (write-line "[->图块编辑          ]" f) ;
          (write-line "[在位编辑  BN]^C^CBN" f) ;
          (write-line "[退出图块  TT]^C^CTT" f) ;
          (write-line "[加选择集  JJ]^C^CJJ" f) ;
          (write-line "[去选择集  DD]^C^CDD" f) ;

gble119

不错，互相学习。

gble119

          (write-line "[<-绑定所有 XFBA]^C^CXFBA" f) ;

          (write-line "[<-去选择集  DD]^C^CDD" f) ;

后面结尾的应该这样写吧

红豆沙煎焖子

kx820506 发表于 2024-8-1 08:12
楼主的程序是不是没发完整啊，不能运行呢

对的，就发了一部分，是根据这个帖子写的，感兴趣可以看下：http://bbs.mjtd.com/thread-179805-1-1.html

红豆沙煎焖子

tranque

分号确认下，是不是是英文状态输入法的分号

muai2010

这两天也准备研究下

红豆沙煎焖子

gble119 发表于 2024-7-30 19:19
(write-line "[

您说的办法果然有效，实现我想要的效果啦，万分感谢！！

kx820506

楼主的程序是不是没发完整啊，不能运行呢

happyboy75

你只有开始 [->
没有结束[<-

红豆沙煎焖子

happyboy75 发表于 2024-8-1 08:15
你只有开始 [->
没有结束[

是的 学到了