请问如何能批量声称sld幻灯片文件？

iloveada

打算做个菜单，但图形太多了，一个一个的生成幻灯片好麻烦，请教高手批量声称幻灯片的办法。

ZZXXQQ

程序在空白图中运行。

2. (DEFUN C:MKSLIDE ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ NMM (GETFILED "Select File Name" "" "dwg" 8))
5. (IF (AND (NOT NMM) (> (STRLEN NMM) 0)) (PROGN
6.   (SETQ SL (STRLEN NMM) I 1)
7.   (WHILE (/= (SUBSTR NMM I 1) ".") (SETQ I (1+ I)))
8.   (WHILE (/= (SUBSTR NMM I 1) "\") (SETQ I (1- I)))
9.   (SETQ PATH (SUBSTR NMM 1 I))
10.   (COMMAND "SHELL" (STRCAT "DIR " PATH "*.DWG /B >DWGFILE.TXT))
11.   (SETQ F (OPEN "DWGFILE.TXT" "r"))
12.   (WHILE (SETQ NMM (READ-LINE F))
13.    (COMMAND ".UNOD" "BE")
14.    (IF (> (STRLEN NMM) 0) (PROGN
15.     (COMMAND "_.INSERT" (STRCAT "*" PATH NMM) '(0 0) "" "")
16.     (COMMAND "ZOOM" "E" "REGEN")
17.     (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
18.     (COMMAND "MSLIDE" (STRCAT PATH NMM))
19.    ))
20.    (COMMAND ".UNDO" "E")
21.    (COMMAND "_U")
22.   )
23.   (CLOSE F)
24. ))
25. (SETVAR "CMDECHO" 1)
26. (PRINC)
27. )

复制代码

zxmmelly

带对话框的

dblue

二楼的好像有问题。

egos

程序贴错了  有问题

lilq_78

如何控制CAD的窗口，不然做出来的幻灯片会很不好看

magicheno

zxmmelly 发表于 2006-2-6 22:49
带对话框的

感谢大佬分享~！

z312144636

感谢大佬分享~！