[LISP程序]： gpath(path file)什么意思？求大家教教我，我菜鸟

456789

(setq #DWG "C:\\BYQHT\\DWG\\")
(setq #LSP "C:\\BYQHT\\LSP\\")
(setq #TXT "C:\\BYQHT\\TXT\\")
(setq #SYS "C:\\BYQHT\\SYS\\")
;
(defun gpath(path file)
   (if path
      (strcat path file)
      file
   );if
);defun
;
(defun rtd(ang1)
   (/ (* ang1 180.0) pi)
);defun
;
(defun dtr(ang2)
   (/ (* ang2 pi) 180.0)
);defun
;
(defun tan(ang)
   (/ (sin ang) (cos ang))
);defun

cy956

返回路径＋文件名或纯文件名，没别的意思。

456789

(defun gpath(path file)
(if path
(strcat path file)
file
);if
);defun
能不能作一个注释。我急需修改这段程序，因为这里要调用文件参数.参数文件是程序自动生成的。

Quelea

这个函数极无聊。
我用中文描述一下：

定义函数 gpath (参数：路径，文件名）
如果　给出了路径参数
那么　返回值　为　路径＋文件名
否则　只返回　文件名
定义结束

456789

(defun getdata(/ fp fp1)
   (setq fp (open (gpath #TXT "xianggai.txt") "r")
        xgtxt (read (read-line fp))
        fp1 (open (gpath #SYS "tuxinbl.txt") "r")
        tuxinbl (read (read-line fp1))
        shell (Cdr (assoc 'shell xgtxt))
        draw_ylf (Cdr (assoc 'draw_ylf xgtxt))
   )
   (close fp)
   (close fp1)
);defun
换句话说，没有前面那个无聊的定义，这个gpath函数是不能运行的，但我有好多程序都带这个函数，怎样自动提前定义gpath函数呢，不是每次都先定义吧。

秋枫

把那个gpath函数放在acad.lsp或acaddoc.lsp中。