[求助]：请高手看看我的这段lisp函数应该怎样写，谢谢

曹杰

; YM:layerset-add()
      (defun YM:layerset-add(listname / file line lyrproperties)
　　　(YM:StartSet)
　　　(YM:Set_Var "CLAYER" (getvar "CLAYER"))
       (setq file
                (open (YM:path (strcat "layers/" listname ".lsp")) "r")
        )
        (read-line file)
        (while (setq line (read-line file))
                (setq lyrproperties (read line))
                (if (/= lyrproperties nil)
                        (YM:layer-new lyrproperties)
                )
        )
        (close file)
        (ym:ExitSet)
        (princ)
)

我想请lisp高手帮我看看这一句(setq file
                (open (YM:path (strcat "layers/" listname ".lsp")) "r")
        )中的YM:path函数应该怎样写，用lisp程序去寻找文件夹YM，YM中又有一个layers的文件夹，我想把layers中的某一个lisp文件读出来,谢谢

狂刀

(findfile filename)

The findfile function makes no assumption about the file type or extension of filename. If filename does not specify a drive/directory prefix, findfile searches the AutoCAD library path. If a drive/directory prefix is supplied, findfile looks only in that directory.

Arguments

filename

Name of the file or directory to be searched for.

Return Values

A string containing the fully qualified file name; otherwise nil, if the specified file or directory is not found.

The file name returned by findfile is suitable for use with the open function.

Examples

If the current directory is /AutoCAD 2004 and it contains the file abc.lsp, the following function call retrieves the path name:

Command: (findfile "abc.lsp")

"C:\\Program Files\\AutoCAD 2004\\abc.lsp"