[求助]帮忙写一个返回文件所在目录的函数

subtlation

我要做的就是不想手动设置"c:\\a\\b\\c"为自动搜索路径，在置顶的帖子中有秋枫编的安装程序，程序可以让autocad自动加载my.lsp文件。但是因为我除了my.lsp文件外还有一些菜单、dvb文件和lsp文件要加载，我想在my.lsp文件中把my.lsp文件所在的路径加入到自动搜索路径中。

wmz

我当然也知道你的意思是想用程序自动完成,但你就不会将你的系统单独创建一个目录,将你的所有文件(DVB,LSP......等等)统统放在这个目录里,然后将其设置为"自动搜索路径"(当然也是用程序,不是手动),这样,用户就可以只要一安装,一切就可以自动完成了!

eechenchun

大哥 搞定了吗

llsheng_73

系统自带。。。

yu960312

(setq path(vl-filename-directory (findfile "my.lsp")))
(princ path)