[LISP程序]：高手帮忙啊,谢谢了

pipi002004

下面是tssd中的cad调用其他程序的代码,可是,(&beg) ,,,(&end),,,(&path))都是什么啊?
由于我门专业的特殊性,需要在绘图时候调用很多小的计算程序,每次去找很不方便,我想做个屏幕菜单把他们打开,高手帮帮忙啊,假设我的程序都在d:\cad r14\ 下帮我补一下代码好么


(defun c:Ck (/ st)
(if (> (&beg) -1)
(progn
(if (setq st (findfile "ck.exe"))
(startapp st)
(princ "\n**系统错误，无法找到相应资源!")
)
(&end)
)
)
(princ)
)
(defun c:Tszhelp ()
(help "tssd.hlp")
(princ)
)
(defun c:Ie ()
(command "browser" "http://www.tsz.com.cn")
(princ)
)
(defun c:Gjchxb (/ st)
(if (> (&beg) -1)
(progn
(if (setq st (findfile "GJCHXB.exe"))
(startapp st)
(princ "\n**系统错误，无法找到相应资源!")
)
(&end)
)
)
(princ)
)
(defun c:Gfcx (/ st)
(if (and
(setq st (&path))
(setq st (strcat st "prg\\结构规范查询.chm"))
(setq st (findfile st))
)
(startapp (strcat "hh " st))
)
(princ)
)

舟自横

我猜
&BEG 为取得系统变量或其他变量并返回特定值
&END 为结束时恢复系统变量
&PAH 取得当前的路径

pipi002004

大哥帮我补齐一下,我求你了

舟自横

对你的软件不是很熟.不是我不帮你完善
只是这写东西必须有亲自看到干什么用的
档案在哪里才可以揣摩出来..这样只能凭空猜测
一下他的作用而很难补全...
要不你干脆说你想实现什么功能帮你重写一个得了..