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

subtlation

假如我的lisp文件所在目录为

D:\a\b\c\my.lsp

在my.lsp中写一个函数，返回值为本lsp文件所在的目录 D:\\a\\b\\c

希望哪位大侠帮帮忙，谢谢

yu960312

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

eechenchun

大哥 搞定了吗

phoenixdjq

是不是用arx能做到呀

但是我不会,正想学呢

就是用"dos_*"那些函数

yshf

命令: (vl-filename-directory "D:\\a\\b\\c\\my.lsp")
"D:\\a\\b\\c"

subtlation

问题是，我并不知道这个lisp文件在哪个目录下，需要函数来确定自己所在lisp文件的目录。

phoenixdjq

doslib应该可以做到吧

因为这些都是dos命令，要不你去arx专区问一下

jaminth

3. (defun c:temp(/ osn oor folderpath)
4.   (setvar "cmdecho" 0)
5. (startapp "explorer" "D:\\a\\b\\c")
6.   (prin1)
7. )

(defun c:temp(/ osn oor folderpath)   (setvar "cmdecho" 0) (startapp "explorer" "D:\\a\\b\\c")   (prin1) )

jaminth

2. (defun c:44(/ osn oor folderpath)
3.   (setvar "cmdecho" 0)
4.   (setq osn (getvar "osmode"))
5.   (setq oor (getvar "orthomode" ))
6.   (setvar "osmode" 0)
7.   (setvar "orthomode" 0)
8. ;;;------------------------------------------
9. (setq folderpath (getvar "dwgprefix"))
10. (startapp "explorer" folderpath)
11. ;;;------------------------------------------
12.   (setvar "osmode" osn)
13.   (setvar "orthomode" oor)
14.   (prin1)
15. )

(defun c:44(/ osn oor folderpath)   (setvar "cmdecho" 0)   (setq osn (getvar "osmode"))   (setq oor (getvar "orthomode" ))   (setvar "osmode" 0)   (setvar "orthomode" 0) ;;;------------------------------------------ (setq folderpath (getvar "dwgprefix")) (startapp "explorer" folderpath) ;;;------------------------------------------   (setvar "osmode" osn)   (setvar "orthomode" oor)   (prin1) )

subtlation

谢谢 jaminth；

dwgprefix好像是活动的dwg文件所在的目录，

我需要的是这个lsp文件所在的目录。

假定lsp文件所在的路径是"D:\\a\\b\\c"

我想找到这个lsp路径的目的是为了把"D:\\a\\b\\c\\d"这个路径加入到CAD的自动搜索路径中。

希望大家帮帮忙。

wzz1968

(findfile "my.lsp")

wmz

我有点弄不懂,你将"c:\\a\\b\\c"设为"自动搜索路径",再把你的"my.lsp"文件拷到(安装到)该路径中去不行吗?