[下载]：[免币下载] 大批量制作幻灯片！！

zxmmelly

将指定目录当中的DWG文件全部做成同名的SLD文件，保存在相同目录中,同时生成SLD文件名列表文件 namelist.txt。

加载此Lisp，输入bmslide，指定一目录名，程序自动选取此目录中DWG文件做成SLD。并有计时功能。如果你有很多的block要做SLD的话，这个程序就很有用！

aeo

(vl-cmdf "erase" "all" "")
不知好不好,都是大图拖不动的.考虑undo要不要好点.
没试过.

zxmmelly

我试过加了UNDO，但是有点问题，我的图快也不大，也就作罢。楼上的能否帮助修改一下？

LUCAS

2. 
   
3. ;;;  試試看
   
4. ;;;  将指定目录中的DWG文件全部做成SLD文件,保存在相同目录中,并生成SLD文件
   
5. ;;;  名列表文件: Bmslide.
   
6. (arxload "acetutil.arx" NIL)
   
7. (defun C:BMSLIDE (/            CMDECHO-SAVE        PATH          PATH1
   
8.                   QQ            #TIME     TIME1        FN          NAME
   
9.                   TIME2            TIME-LAST
   
10.                  )
    
11.   (setq        PATH (strcat (setq PATH1
    
12.                             (strcase
    
13.                               (acet-ui-pickdir
    
14.                                 "选择目录"
    
15.                                 (vl-string-right-trim "\" (getvar "dwgprefix"))
    
16.                                 "请指定要做成SLD目录"
    
17.                               )
    
18.                             )
    
19.                      )
    
20.                      "\"
    
21.              )
    
22.   )
    
23.   (setq CMDECHO-SAVE (getvar "CMDECHO"))
    
24.   (setvar "CMDECHO" 0)
    
25.   (setq #TIME (getvar "DATE"))
    
26.   (setq TIME1 (* 86400.0 (- #TIME (fix #TIME))))
    
27.   (setq FN (open (strcat PATH "namelist.txt") "a"))
    
28.   (setq QQ (vl-directory-files PATH "*.DWG"))
    
29.   (foreach NAME        QQ
    
30.     (vl-cmdf "_.UNDO" "M")
    
31.     (vl-cmdf "_.insert" (strcat PATH NAME) '(0 0 0) "" "" "")
    
32.     (vl-cmdf "_.zoom" "e" "_.regen" "_.zoom" "0.95x")
    
33.     (vl-cmdf "_.mslide" (strcat PATH (vl-filename-base NAME)))
    
34.     (vl-cmdf "_.UNDO" "END" "_.UNDO" "B")
    
35.     (write-line (vl-filename-base NAME) FN)
    
36.   )
    
37.   (close FN)
    
38.   (setq #TIME (getvar "DATE"))
    
39.   (setq TIME2 (* 86400.0 (- #TIME (fix #TIME))))
    
40.   (setq TIME-LAST (- TIME2 TIME1))
    
41.   (alert (strcat "                搞定啦! 搞定啦!\n\n"
    
42.                  "有 "
    
43.                  (rtos (length QQ))
    
44.                  "  个 SLD 文件生成,存放在目录\n\n"
    
45.                  PATH1
    
46.                  "\n\n共耗时  "
    
47.                  (rtos TIME-LAST)
    
48.                  "  秒"
    
49.          )
    
50.   )
    
51.   (setvar "CMDECHO" CMDECHO-SAVE)
    
52.   (princ)
    
53. )
    

<br /> ;;;  試試看<br /> ;;;  将指定目录中的DWG文件全部做成SLD文件,保存在相同目录中,并生成SLD文件<br /> ;;;  名列表文件: Bmslide.<br /> (arxload "acetutil.arx" NIL)<br /> (defun C:BMSLIDE (/            CMDECHO-SAVE        PATH          PATH1<br />                   QQ            #TIME     TIME1        FN          NAME<br />                   TIME2            TIME-LAST<br />                  )<br />   (setq        PATH (strcat (setq PATH1<br />                             (strcase<br />                               (acet-ui-pickdir<br />                                 "选择目录"<br />                                 (vl-string-right-trim "\" (getvar "dwgprefix"))<br />                                 "请指定要做成SLD目录"<br />                               )<br />                             )<br />                      )<br />                      "\"<br />              )<br />   )<br />   (setq CMDECHO-SAVE (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (setq #TIME (getvar "DATE"))<br />   (setq TIME1 (* 86400.0 (- #TIME (fix #TIME))))<br />   (setq FN (open (strcat PATH "namelist.txt") "a"))<br />   (setq QQ (vl-directory-files PATH "*.DWG"))<br />   (foreach NAME        QQ<br />     (vl-cmdf "_.UNDO" "M")<br />     (vl-cmdf "_.insert" (strcat PATH NAME) '(0 0 0) "" "" "")<br />     (vl-cmdf "_.zoom" "e" "_.regen" "_.zoom" "0.95x")<br />     (vl-cmdf "_.mslide" (strcat PATH (vl-filename-base NAME)))<br />     (vl-cmdf "_.UNDO" "END" "_.UNDO" "B")<br />     (write-line (vl-filename-base NAME) FN)<br />   )<br />   (close FN)<br />   (setq #TIME (getvar "DATE"))<br />   (setq TIME2 (* 86400.0 (- #TIME (fix #TIME))))<br />   (setq TIME-LAST (- TIME2 TIME1))<br />   (alert (strcat "                搞定啦! 搞定啦!\n\n"<br />                  "有 "<br />                  (rtos (length QQ))<br />                  "  个 SLD 文件生成,存放在目录\n\n"<br />                  PATH1<br />                  "\n\n共耗时  "<br />                  (rtos TIME-LAST)<br />                  "  秒"<br />          )<br />   )<br />   (setvar "CMDECHO" CMDECHO-SAVE)<br />   (princ)<br /> )<br />

zxmmelly

多谢，台湾的朋友！！！！


可否告知  (arxload "acetutil.arx" NIL)   起什么作用？

LUCAS

(arxload "acetutil.arx" NIL)只是要確定已加載EXPRESSTOOL中的公用程序,
這樣acet-ui-pickdir才能使用(大部份時間acetutil.arx早已加載!!!)

walong

下不了！

zxmmelly

把楼上的COPY下就行了。

沉沉

请问做成幻灯片的能否再转换回来？sld -> dwg

xazhji

肯定不行！
再问台湾朋友，在2004版，已经没有expresstool工具了，我们如何办？
况且，我在2000版也用不成。


Command: bmslide
Usage: (acet-ui-pickdir)
错误: ADS request error

sqmjk

最初由 沉沉 发布
[B]请问做成幻灯片的能否再转换回来？sld -> dwg [/B]