[求助]：ET扩展工具在菜单切换时怎样自动加载？

uug

用menuload加载express tools后，显示ＥＴ扩展工具菜单，可是切换别的菜单后，ＥＴ工具又要重新手动加载，如何在每次切换菜单后自动加载该菜单？谢谢。

bjhrjz

好像安装完以后，进入到acad2002自动加载，在主下拉菜单中自动增加“ET扩展工具”项

明经通道

这是R14自动加载附加工具的程序，有你想要的东西。
(defun acc()
  (setvar "cmdecho" 0)
  (if (not(menugroup "ac_bonus"))
    (if  (findfile "ac_bonus.mnu")
      (progn
        (setvar "filedia" 0)
        (command "menuload" "ac_bonus")
        (setvar "filedia" 1)
      )
      (progn
        (princ "由于你的AutoCAD不是完全安装,可能在附加菜单中有部分功能没有!")
        (setq a (findfile "acad.exe"))                 ; Build the standard path to the bonus files.
        (setq          a (substr a 1 (- (strlen a) 8))
            bonus_path (strcat a "bonus\\cadtools")         
        );setq
        (findfile bonus_path)                          ; see if the standard bonus directory exists
        (add_path bonus_path)                          ; attempt to put it on the AutoCAD search path
        (if (findfile "ac_bonus.mnu")
          (progn
            (setvar "filedia" 0)
            (command "menuload" "ac_bonus")
            (setvar "filedia" 1)
          )
        )
      )
    )
  )
  (if  (findfile "ac_bonus.lsp")
    (load "ac_bonus")
  )
  (setvar "cmdecho" 1)
  (princ)
)

uug

太好了，参照上述程序我想应该把问题搞定了。多谢。