确实用不了，楼主修正一下就好了
把幻灯片存入幻灯库才好用
片太多管理太麻烦
有个很奇怪的问题，比如楼主代码中的 (setq DWG (strcat DWG_DIR "\" DWG)) ，我一直用的 (setq DWG (strcat DWG_DIR "\\" DWG))特殊字符不是需要转义么？
错误: no function definition: ACET-UI-PICKDIR 。楼主能否提供一下函数及子函数(如有)，谢谢！
好东西。谢谢你了
感谢大佬分享
程序用不了，不知道为啥
本帖最后由 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)
[*])
YuHB 发表于 2025-8-21 13:26
楼主的代码稍微修改了下，好像能用了。
[*];程序执行：TT
no function definition: ACET-UI-PICKDIR
本帖最后由 YuHB 于 2025-9-14 10:22 编辑
spp_wall 发表于 2025-9-14 00:27
no function definition: ACET-UI-PICKDIR
在代码中加入这一句试试：(arxload "acetutil.arx")