谁能根据下面的程序帮我改成个打开指定文件夹的程序,先谢谢了~
;;;选择文件目录(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))
(defun c:fa ()
(princ "//打开D盘新建文件夹")
(startapp "explorer""D:\\新建文件夹")
(prin1))
菜卷鱼 发表于 2015-1-8 14:04 static/image/common/back.gif
非常感谢! 很好用~~~~~~~~~~~~~~~~~~~~~
页:
[1]