(SETQ echoOld (GETVAR "cmdecho"))
(SETVAR "cmdecho" 0)

;装载扩展工具菜单
(COMMAND "MENULOAD" (STRCAT (GETVAR "exedir") "IcadExMenu.MNS"))

;开始注册若干扩展工具的AUTOLISP实现形式的命令:

;扩展工具-->编辑工具-->大样截图
(LOAD (STRCAT (GETVAR "exedir") "extendcmd\\icad_dyjt.lsp"))

;扩展工具-->图档工具-->图纸防修改
(LOAD (STRCAT (GETVAR "exedir") "extendcmd\\Icadeptdwg.lsp"))

(SETVAR "cmdecho" echoOld)
(PRINC)