谁能根据下面的程序帮我改成个打开指定文件夹的程序,先谢谢了~

yangist

;;;选择文件目录
(defun c:xz1 (/ path dwgname explor)
  (setq explor (findfile"C:\\WINDOWS\\explorer.exe")
  path   (getvar "DWGPREFIX")
;  dwgname (getvar "DWGNAME")
  dwgname (strcat "\"" (getvar "DWGNAME") "\"")
  )
  (cond
    ((and (not (null dos_execute)) explor path dwgname)
     (dos_execute (strcat explor " /e, " path ", /select, " path dwgname)))
    ((and explor path dwgname)
     (startapp (strcat explor " /e, " path ", /select, " path dwgname)))
    (t (princ "\n无法启用资源管理器!"))
    )
  (princ))

菜卷鱼

1. (defun c:fa ()
   
2. (princ "//打开D盘新建文件夹")
   
3. (startapp "explorer"  "D:\\新建文件夹")
   
4. (prin1))

(defun c:fa ()<br /> (princ "//打开D盘新建文件夹")<br /> (startapp "explorer"  "D:\\新建文件夹")<br /> (prin1))

yangist

菜卷鱼 发表于 2015-1-8 14:04

非常感谢! 很好用~~~~~~~~~~~~~~~~~~~~~