求教:如何在R14版的lisp中编写一个lisp程序通过对话框选择得到一个目录?
r14中用lisp编程,如何写一个程序,通过windows标准文件对话框让用户选择一个目录名字并返回呢?
getfiled
不是的
我知道getfiled,但是它是返回一个文件名字,必须要选到文件,我现在只是想选定一个目录。getfiled有参数可以设成选目录吗?試試看下面的程序對你有沒有幫助
;;;下面的程序是先搜索acad2000doc.lsp所在的目录;;;然后再用getfiled打开该目录的*.lsp文件
(defun c:fi ()
(setq fid (findfile "acad2000doc.lsp"))
(setq fd (strlen fid))
(setq fl (substr fid 1 (- fd 15)))
(setq hfile (getfiled "spring" fl "lsp" 8))
)
将最后一位设为16则只取目录名称
谢谢,我去试一下 想要一个lsp程序加密及对应解密的程序 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=14640
页:
[1]