批量将目录下dwg文件制作成图库程序所需的幻灯片文件~

石井鱼 · 发表于 2020-2-28 13:17:52

确实用不了，楼主修正一下就好了

ynhh · 发表于 2020-2-28 15:04:29

把幻灯片存入幻灯库才好用
片太多管理太麻烦

muwind · 发表于 2020-8-21 22:05:32

有个很奇怪的问题，比如楼主代码中的 (setq DWG (strcat DWG_DIR "\" DWG)) ，我一直用的 (setq DWG (strcat DWG_DIR "\\" DWG)) 特殊字符不是需要转义么？

xvjiex · 发表于 2020-9-2 16:40:23

错误: no function definition: ACET-UI-PICKDIR 。楼主能否提供一下函数及子函数(如有)，谢谢！

timmy521 · 发表于 2022-5-5 06:58:22

好东西。谢谢你了

magicheno · 发表于 2024-9-27 13:19:01

感谢大佬分享

magicheno · 发表于 2024-9-27 17:21:45

程序用不了，不知道为啥

YuHB · 发表于 2025-8-21 13:26:42

本帖最后由 YuHB 于 2025-8-21 13:29 编辑

楼主的代码稍微修改了下，好像能用了。

;程序执行：TT
;制作图库幻灯片
;将目标文件夹下的每个文件执行“清理-缩放-写出幻灯片-保存关闭”；
(vl-load-com)
(defun getFolder (str_title str_prompt /)
(strcat (vl-string-right-trim "\\" (strcase (acet-ui-pickdir str_prompt (vl-string-right-trim "\\" "") str_title))) "\\")
)
(defun makeDirectory (dir / )
(vl-mkdir dir)
)
(defun userundo()
(setq *error* errtmp)
(setvar "cmdecho" old_cmdecho)
(setvar "acadlspasdoc" old_acadlspasdoc)
(princ)
)
(defun err (msg)
(userundo)
)
;主程序开始
(defun c:TT ( / app doc docs err errtmp file files newpath old_acadlspasdoc old_cmdecho path sset)
(setq errtmp *error*)
(setq *error* err)
(setq old_cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq old_acadlspasdoc (getvar "acadlspasdoc"))
(setvar "acadlspasdoc" 0)
(setq path (getFolder "请选择目录..." "请选择目录："))
(setq files (vl-directory-files path "*.dwg" 1))
(if files
(progn
(setq scrfile (strcat path "batpurge.scr"))
(setq fn (open scrfile "w"))
(foreach file files
(setq str (strcat "open " path file " purge all * no Zoom E mslide " path (vl-string-right-trim ".dwg" file) ".sld" " qsave close"))
(write-line str fn)
(princ)
)
(close fn)
)
(alert "所选目录无 .dwg 文件！请重新选择：")
)
(command "script" scrfile)
(userundo)
(setq *error* errtmp)
(princ)
)

复制代码

spp_wall · 发表于前天 00:27

YuHB 发表于 2025-8-21 13:26
楼主的代码稍微修改了下，好像能用了。

;程序执行：TT

no function definition: ACET-UI-PICKDIR

YuHB · 发表于前天 10:20

本帖最后由 YuHB 于 2025-9-14 10:22 编辑

spp_wall 发表于 2025-9-14 00:27
no function definition: ACET-UI-PICKDIR

在代码中加入这一句试试：(arxload "acetutil.arx")

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

[源码] 批量将目录下dwg文件制作成图库程序所需的幻灯片文件~

本帖子中包含更多资源