不打开图，如何将一个文件夹里的所有dwg文件都转换成幻灯片？

wdb

不打开图，将一个文件夹里的所有dwg文件都转换成对应的幻灯片，能否实现？

alin

I think you must open the drawings

xazhji

insert

SWAYWOOD

不错，insert一个，做一个，可以实现，当然必须保证图纸的规则性，不然做出来的东西就难看了……

alin

You can open the drawings one by one, change the the sizes of the document window         and make slides ....

ZZXXQQ

Test this program! Use the program at new drawing file. (DEFUN C:MKSLIDE ()
(SETVAR "CMDECHO" 0)
(COMMAND "UNDO" "C" "N")
(SETQ NMM (GETFILED "Select File Name" "" "dwg" 8))
(IF (AND (NOT NMM) (> (STRLEN NMM) 0)) (PROGN
(SETQ SL (STRLEN NMM) I 1)
(WHILE (/= (SUBSTR NMM I 1) ".") (SETQ I (1+ I)))
(WHILE (/= (SUBSTR NMM I 1) "\\") (SETQ I (1- I)))
(SETQ PATH (SUBSTR NMM 1 I))
(COMMAND "SHELL" (STRCAT "DIR " PATH "*.DWG /B >DWGFILE.TXT))
(SETQ F (OPEN "DWGFILE.TXT" "r"))
(WHILE (SETQ NMM (READ-LINE F))
(IF (> (STRLEN NMM) 0) (PROGN
(COMMAND "_.INSERT" (STRCAT "*" PATH NMM) '(0 0) "" "")
(COMMAND "ZOOM" "E" "REGEN")
(SETQ P1 (GETVAR "EXTMIN") P2 (GETVAR "EXTMAX"))
(SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
(COMMAND "MSLIDE" (STRCAT PATH NMM))
(COMMAND "ERASE" "C" P1 P2 "")
(COMMAND "PURGE" "ALL" "*" "N")
))
)
(CLOSE F)
))
(COMMAND "UNDO" "A")
(SETVAR "CMDECHO" 1)
(PRINC)
)

wdb

谢谢各位

TopV

我还没学会噢

有vba的程序么