(defun s::startup ( / old_echo)
  (setq old_echo (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if (not (menugroup "TOOLBARC"))
      (progn (cond ((findfile "_-load.lsp") (load "_-load.lsp"))
                   ((findfile "mytool15.vlx") (load "mytool15.vlx"));2000+下加载迷你建筑工具
             )
             (c:minimenu) ;调入迷你建筑工具图标菜单恢复屏幕菜单至合适宽度
      )
  )
  (setvar "cmdecho" old_echo)
  (princ)
)



