[求助]怎样用LISP创建文件夹

a65306805 · 发表于 2005-3-31 11:28:00

用LISP怎样创建文件夹,请指教,谢谢!

meflying · 发表于 2005-3-31 13:06:00

(vl-mkdir "C:\\TMP")

你学得多了就明白了，有些东西是需要多方面知识的，不是哪本书能讲全的，，，就象4楼的，你只学LISP，学到死可能都不会，还需要知道其它应用程序对象方面的知识

流动的清泉 · 发表于 2021-4-5 21:54:13

院长牛逼，教人的时候还不忘鞭策下人

风子 · 发表于 2005-3-31 11:32:00

你用DosLib的dos_mkdir 即可

a65306805 · 发表于 2005-3-31 11:46:00

谢谢!!

龙龙仔 · 发表于 2005-3-31 12:27:00

;;创建文件或文件夹
;;1、能否用lisp创建档夹。
;;2、lisp创建的档属性能否以隐藏形式建立。
;;By LUCAS(龙龙仔)
;;隐藏形式创建档夹
;;USAGE: (MAKEFOLDER "C:\\TMP")(defun MAKEFOLDER (FNAME / SYS FOLDER)
(if (not (findfile FNAME))
(progn
(setq SYS (vlax-create-object "Scripting.FileSystemObject"))
(setq FOLDER (vlax-invoke-method SYS 'CREATEFOLDER FNAME))
(vlax-put FOLDER
"Attributes"
2
)
(vlax-release-object FOLDER)
(vlax-release-object SYS)
)
(alert (strcat """ FNAME "" 档案夹已存在!!"))
)
(princ)
)

a65306805 · 发表于 2005-3-31 12:44:00

还是明经通道好，我在帮助里翻了半天，什么都没有，我的LISP书上也没有，还想请教这些东西哪里可以找得到啊，或者帮忙介绍一本书吧

SWAYWOOD · 发表于 2006-3-21 21:25:00

请教，d盘下没有文件夹e,但要产生"d:\\e\\f\\g"这个文件夹，要自动加上一层的文件夹

龙龙仔 · 发表于 2006-3-22 07:59:00

;;
;; -- VxMakeDirectory
;; Creates the specified directory(ies).
;; Copyright:
;; ?001 MENZI ENGINEERING GmbH, Switzerland
;; Arguments [Type]:
;; Dir = Folder to create, e.g. "C:\\Temp\\MyTemp\\AllScrap" [STR]
;; Return [Type]:
;; > T VxMakeDirectory succeed
;; Nil Error on creating directory(ies)
;; Notes:
;; - Requires ScrRun.dll (see also notes at top of page).
;;
;;USAGE:(VXMAKEDIRECTORY "C:\\Temp\\MyTemp\\AllScrap")
(defun VXMAKEDIRECTORY
(DIR / CURDIR DRVOBJ FILSYS RETVAL TMPLST TMPVAL)
(setq FILSYS (vlax-create-object "Scripting.FileSystemObject")
CURDIR (vl-string-right-trim "\" (vl-string-right-trim "/" DIR))
)
(while (/= (setq TMPVAL (vl-filename-directory CURDIR)) CURDIR)
(setq TMPLST (cons TMPVAL TMPLST)
CURDIR TMPVAL
)
)
(setq
RETVAL (cond
((= (vlax-invoke FILSYS 'DRIVEEXISTS TMPVAL) 0) NIL)
((setq DRVOBJ (vlax-invoke FILSYS 'GETDRIVE TMPVAL))
(cond
((= (vlax-get DRVOBJ 'ISREADY) 0) NIL)
(t
(foreach MEMB TMPLST
(cond
((= (vlax-invoke FILSYS 'FOLDEREXISTS MEMB) -1))
((vlax-invoke FILSYS 'CREATEFOLDER MEMB))
)
)
(cond
((= (vlax-invoke FILSYS 'FOLDEREXISTS DIR) -1))
((vlax-invoke FILSYS 'CREATEFOLDER DIR) t)
(t NIL)
)
)
)
)
)
)
(if DRVOBJ
(vlax-release-object DRVOBJ)
)
(vlax-release-object FILSYS)
RETVAL
)

;;
;; -- VxMakeDirectory
;; Creates the specified directory(ies).
;; Copyright:
;;   ?001 MENZI ENGINEERING GmbH, Switzerland
;; Arguments [Type]:
;;   Dir = Folder to create, e.g. "C:\\Temp\\MyTemp\\AllScrap" [STR]
;; Return [Type]:
;;   > T   VxMakeDirectory succeed
;;     Nil Error on creating directory(ies)
;; Notes:
;;   - Requires ScrRun.dll (see also notes at top of page).
;;
;;USAGE:(VXMAKEDIRECTORY "C:\\Temp\\MyTemp\\AllScrap")
(defun VXMAKEDIRECTORY
       (DIR / CURDIR DRVOBJ FILSYS RETVAL TMPLST TMPVAL)
  (setq FILSYS (vlax-create-object "Scripting.FileSystemObject")
 CURDIR (vl-string-right-trim "\" (vl-string-right-trim "/" DIR))
  )
  (while (/= (setq TMPVAL (vl-filename-directory CURDIR)) CURDIR)
    (setq TMPLST (cons TMPVAL TMPLST)
   CURDIR TMPVAL
    )
  )
  (setq
    RETVAL (cond
      ((= (vlax-invoke FILSYS 'DRIVEEXISTS TMPVAL) 0) NIL)
      ((setq DRVOBJ (vlax-invoke FILSYS 'GETDRIVE TMPVAL))
       (cond
  ((= (vlax-get DRVOBJ 'ISREADY) 0) NIL)
  (t
   (foreach MEMB TMPLST
     (cond
       ((= (vlax-invoke FILSYS 'FOLDEREXISTS MEMB) -1))
       ((vlax-invoke FILSYS 'CREATEFOLDER MEMB))
     )
   )
   (cond
     ((= (vlax-invoke FILSYS 'FOLDEREXISTS DIR) -1))
     ((vlax-invoke FILSYS 'CREATEFOLDER DIR) t)
     (t NIL)
   )
  )
       )
      )
    )
  )
  (if DRVOBJ
    (vlax-release-object DRVOBJ)
  )
  (vlax-release-object FILSYS)
  RETVAL
)

SWAYWOOD · 发表于 2006-3-22 12:15:00

龙哥，可以生成了，不过会出错

((VXMAKEDIRECTORY "C:\\Temp\\MyTemp\\AllScrap"))
; 错误: 函数错误: T
_$

龙龙仔 · 发表于 2006-3-22 12:22:00

一个括号即可

(VXMAKEDIRECTORY "C:\\Temp\\MyTemp\\AllScrap")

账号		自动登录	找回密码
密码			注册

[求助]怎样用LISP创建文件夹

谢谢

浏览过的版块