[分享]將指定目錄下所有圖檔都建立(.sld)幻燈片.LSP

將指定目錄下所有圖檔都建立(.sld)幻燈片-更新.rar
http://cht.tw/h/7fx9w

將檔案解壓縮後，內含Y543.LSP檔案。
01.執行程式後會覆蓋原有(.sld)幻燈片檔案，原有(.dwg)圖檔不會更改.
02.請問各位學長先進:  本程式執行完成，殘留Y543.scr有甚麼好方法能讓它自動刪除？懇請指教
*** 廣結善緣 與您分享 ***  2013.11.07

yu0678大哥您好：
使用後Y543.scr沒有自動刪除，而且filedia沒有恢復為1。
測試版本：2014、2008
 

 建議跑腳本檔時不需將filedia改為0，更改了以下語法。

代碼:

                ;(write-line "Filedia" scr:file)
                ;(write-line "0" scr:file)
                (foreach dwg file_list
                    (write-line "._OPEN" scr:file)
                    (write-line (strcat "\"" dir_path dwg "\"") scr:file)
                    (write-line "(command \"._ZOOM\" \"_E\" \"._ZOOM\" \"_S\" \"0.90x\")" scr:file)
                    (write-line "(command \"._MSLIDE\" (strcat (getvar \"dwgprefix\")
                                (vl-filename-base (getvar \"dwgname\")) \".sld\"))" scr:file)
                    (write-line "._CLOSE" scr:file)
                    (write-line "_Y" scr:file)
                )
                ;(write-line "Filedia" scr:file)
                ;(write-line "1" scr:file)


感謝"蘋果爸"撥空測試並回函，立即修正。