VLISP目录，文件操作函数

sh_h · 发表于 2017-10-1 17:28:54

回复学习，谢谢楼主分享！

75215195 · 发表于 2017-10-1 19:21:13

回复学习！！！

liunian0524 · 发表于 2017-10-2 11:56:21

感谢楼主分享

liunian0524 · 发表于 2017-10-6 08:01:41

感谢楼主分享

tension33 · 发表于 2017-10-12 12:34:53

这个LISP文件操作不错，收藏学习了

liuyefei98 · 发表于 2017-10-18 16:37:02

多谢大师的方向，我试下。。

sujia · 发表于 2017-10-23 10:26:10

强大的工具

CADRui · 发表于 2017-12-19 21:31:07

谢谢分享，很强大~~~

廖彬 · 发表于 2017-12-24 20:06:13

谢谢LZ分享

13525208709 · 发表于 2018-4-29 00:31:18

(defun GetFolder (/ Dir Item Path)
登录/注册后可看大图
(cond
登录/注册后可看大图
((setq Dir (vlax-invoke
登录/注册后可看大图
(vlax-get-or-create-object "Shell.Application")
登录/注册后可看大图
'browseforfolder
登录/注册后可看大图
0
登录/注册后可看大图
"Select folder with DWG files:"
登录/注册后可看大图
1
登录/注册后可看大图
""
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(cond
登录/注册后可看大图
((not
登录/注册后可看大图
(vl-catch-all-error-p
登录/注册后可看大图
(vl-catch-all-apply 'vlax-invoke-method (list Dir 'Items))
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(setq Item (vlax-invoke-method
登录/注册后可看大图
(vlax-invoke-method Dir 'Items)
登录/注册后可看大图
'Item
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(setq Path (vla-get-path Item))
登录/注册后可看大图
(if
登录/注册后可看大图
(not (member (substr Path (strlen Path) 1) (list "/" "\\")))
登录/注册后可看大图
(setq Path (strcat Path "\\"))
登录/注册后可看大图
) ;end if
登录/注册后可看大图
)
登录/注册后可看大图
) ;end cond
登录/注册后可看大图
)
登录/注册后可看大图
) ;end cond
登录/注册后可看大图
Path
登录/注册后可看大图
) ;end GetFolder
登录/注册后可看大图
登录/注册后可看大图
(defun vl-findfile (Location / DirList Path AllPath)
登录/注册后可看大图
(MakeDirList Location)
登录/注册后可看大图
(setq DirList (cons Location DirList))
登录/注册后可看大图
(foreach Elem DirList
登录/注册后可看大图
(if (setq Path (vl-directory-files Elem "*.dwg"))
登录/注册后可看大图
(foreach Item Path
登录/注册后可看大图
(setq AllPath (cons (strcat Elem "/" Item) AllPath))
登录/注册后可看大图
)
登录/注册后可看大图
) ;end if
登录/注册后可看大图
)
登录/注册后可看大图
(reverse AllPath)
登录/注册后可看大图
) ;end vl-findfile
登录/注册后可看大图
(defun MakeDirList (Arg / TmpList)
登录/注册后可看大图
(setq TmpList (cddr (vl-directory-files Arg nil -1)))
登录/注册后可看大图
(cond
登录/注册后可看大图
(TmpList
登录/注册后可看大图
(setq
登录/注册后可看大图
DirList (append
登录/注册后可看大图
DirList
登录/注册后可看大图
(mapcar '(lambda (z) (strcat Arg "/" z)) TmpList)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(foreach Item TmpList (MakeDirList (strcat Arg "/" Item)))
登录/注册后可看大图
)
登录/注册后可看大图
) ;end cond
登录/注册后可看大图
) ;end MakeDirList

7325pink · 发表于 2018-4-29 04:58:31

感谢楼主分享!!!

liuyizeng · 发表于 2018-5-16 16:12:29

遍历目录！谢谢！！！

qingchao · 发表于 2018-5-23 08:13:14

666啊，直接收藏了

经经 · 发表于 2020-4-7 20:32:51

非常完美，好好学习

wrf610051 · 发表于 2020-4-8 06:06:13

回复学习，谢谢大师的分享。

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

[每日一码] VLISP目录，文件操作函数