该命令不能透明调用

CAD小学徒

(defun c:DJ()
     (setvar "cmdecho" 0);_关闭命令提示
     (setvar "peditaccept" 1);直接转化为多段线
     (setq ngc02 (getreal "请输入闭合的距离"))
     (setq ngc01 (ssget))
     (command "_pedit" "m" ngc01 "" "j" ngc02 "")
     (setvar "cmdecho" 1);_打开命令提示
     (prin1));_关闭程序返回值
     (prompt "\n 多项选择同时连线")
     (prin1)
这个程序在cad根目录下，老是不能透明调用，放在一个单独的文件每次加载就可以用，请问怎样处理放在根目录下也可以用