打开当前文件目录 的其他文件

winerfjy

(defun c:mmll (/ Filename OriginalList PathFilename WinSortList)
  (princ "\n选择要打开的文件:")(princ)
  (if (not *LastFolder)
    (setq *LastFolder (getvar "DWGPREFIX"))
  );if
  (if (setq PathFilename (getfiled " 选择要打开的文件" *LastFolder "dwg" 2))
    (setq *LastFolder (strcat (vl-filename-directory PathFilename) "\\"))
    (exit)
  );if
  (textscr)
  (princ (strcat "\n" *LastFolder))
  (setq OriginalList (vl-directory-files *LastFolder "*.dwg" 1))
  (princ (strcat "\n" (chr 160) "\n文件列表:"))
  (foreach Filename OriginalList
    (princ "\n")(princ Filename)
  );foreach
  (setq WinSortList (win_sort (vl-directory-files *LastFolder "*.dwg" 1)))
  (princ (strcat "\n" (chr 160) "\nWin_Sort list:"))
  (foreach Filename WinSortList
    (princ "\n")(princ Filename)
  );foreach
  (princ)
)
这个打开当前文件目录的程序打开了当前目录的文件列表但不能打开指定的文件有高手诊断一下修改一下吗

菜卷鱼

打开当前文件所在文件夹
(defun c:fg ()
(startapp "explorer"
(getvar "DwgPrefix") )(prin1))

winerfjy

已经解决
(defun c:mmll(/ Filename OriginalList PathFilename WinSortList)
  (princ "\n选择要打开的文件:")(princ)
  (if (not *LastFolder)
    (setq *LastFolder (getvar "DWGPREFIX"))
  );if
  (if (setq PathFilename (getfiled " 选择要打开的文件" *LastFolder "dwg" 2))
    (setq *LastFolder (strcat (vl-filename-directory PathFilename) "\\"))
    (exit)
  );if
  (textscr)
  (princ (strcat "\n" *LastFolder))
  (setq OriginalList (vl-directory-files *LastFolder "*.dwg" 1))
  (princ (strcat "\n" (chr 160) "\n文件列表:"))
  (foreach Filename OriginalList
    (princ "\n")(princ Filename)
    (command "_ai_editcustfile" (findfile PathFilename))
  )
  (princ)
)

yshf

改为如下试试：

2. (defun c:mmll(/ Filename OriginalList PathFilename WinSortList)
   
3.   (princ "\n选择要打开的文件:")(princ)
   
4.   (if (not *LastFolder)
   
5.     (setq *LastFolder (getvar "DWGPREFIX"))
   
6.   );if
   
7.   (if (setq PathFilename (getfiled " 选择要打开的文件" *LastFolder "dwg" 2))
   
8.     (setq *LastFolder (strcat (vl-filename-directory PathFilename) "\"))
   
9.     (exit)
   
10.   );if
    
11.   (textscr)
    
12.   (princ (strcat "\n" *LastFolder))
    
13.   (setq OriginalList (vl-directory-files *LastFolder "*.dwg" 1))
    
14.   (princ (strcat "\n" (chr 160) "\n文件列表:"))
    
15.   (foreach Filename OriginalList
    
16.     (princ "\n")(princ Filename)
    
17.     (command "_ai_editcustfile" (strcat *LastFolder Filename))
    
18.   )
    
19.   (princ)
    
20. )
    

(defun c:mmll(/ Filename OriginalList PathFilename WinSortList)<br />   (princ "\n选择要打开的文件:")(princ)<br />   (if (not *LastFolder)<br />     (setq *LastFolder (getvar "DWGPREFIX"))<br />   );if<br />   (if (setq PathFilename (getfiled " 选择要打开的文件" *LastFolder "dwg" 2))<br />     (setq *LastFolder (strcat (vl-filename-directory PathFilename) "\"))<br />     (exit)<br />   );if<br />   (textscr)<br />   (princ (strcat "\n" *LastFolder))<br />   (setq OriginalList (vl-directory-files *LastFolder "*.dwg" 1))<br />   (princ (strcat "\n" (chr 160) "\n文件列表:"))<br />   (foreach Filename OriginalList<br />     (princ "\n")(princ Filename)<br />     (command "_ai_editcustfile" (strcat *LastFolder Filename))<br />   )<br />   (princ)<br /> ) <br />

winerfjy

yshf 发表于 2015-11-1 15:44
改为如下试试：

你的是打开目录内全部文件的

llsheng_73

没搞清楚楼主到底想做什么，但是在打开一个文件的情况下，简单的打开另一个文件，lisp程序将无法再继续。。。虽然也有办法解决，但那涉及到多文档操作。。。一般的办法根本行不通

zhangrunze

yshf 发表于 2015-11-1 15:44
改为如下试试：

奇怪了~
显示Error: 输入的字符串有缺陷