[求助]：得到选择文件所在目录的所有文件

linsankai

请老大们帮忙遍一个如下程序，达到如下功能
提示选择一个文件然后得到这个文件所在目录的所有文件名然后写入一个文本文件，我好调用！
谢谢
我菜啊！
lsp刚入门
我的lsp只好用dos的dir命令达到这个目的，然后调用这个文本文件，然后批量插入图中.好用是好用不过笨了点。还在调用dos命令落后了点！

mmmm

vl-directory-files  


Lists all files in a given directory

(vl-directory-files  [directory pattern directories])
Arguments

directory

A string naming the directory to collect files for; if nil or absent, vl-directory-files uses the current directory.

pattern

A string containing a DOS pattern for the file name; if nil or absent, vl-directory-files assumes “*.*”

directories

An integer that indicates whether the returned list should include directory names. Specify one of the following:

–1 List directories only.

0 List files and directories (the default).

1 List files only.

Return Values

A list of file and path names; otherwise nil if no files match the specified pattern.

Examples

_$ (vl-directory-files "c:/acadwin" "acad*.exe")
("ACAD.EXE" "ACADAPP.EXE" "ACADL.EXE" "ACADPS.EXE")
_$ (vl-directory-files "e:/acadwin" nil -1)
("." ".." "SUPPORT" "SAMPLE" "ADS" "FONTS" "IGESFONT" "SOURCE" "ASE")
_$ (vl-directory-files "E:/acad13c4" nil -1)
("." ".." "WIN" "COM" "DOS")

linsankai

白天睡的太多了，现在睡不着了，只好来上网
妈妈的！一时间短路了，我怎么没有想到去看cad帮助呢？
我最近专攻lsp，按计划还要过段时间开始深入学习vlsp，一时间没有想到用vlsp，短路的说。
还好，英文不错，看的懂！
下面附上我刚刚构思的批量插入整个文件夹dwg文件的lsp程序，有点复杂，没办法，刚学习，让高手见笑了。
(vl-load-com)
(setq wjml (getstring "\n请输入插入的文件所在目录（要输全，格式如c:\cass50\demo\dt）"))
(setq wjm (vl-directory-files wjml "*.dwg" 1))
(setq wj (car wjm))
(setq crd '(0 0))
(while (/= wj nil)
  (setq crwj (strcat wjml "\\" wj))
  (command "insert" crwj crd 1 1 0)
  (setq wjm (cdr wj))
  (setq wj (car wjm))
)
(command "zoom" "e")

YueFeng

用GetFileD来定位文件所在目录可能会更好。

yicai

是这么用的  (getfiled "yicai""" "txt"2)