wdb 发表于 2004-12-2 08:36:00

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

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

alin 发表于 2004-12-2 10:28:00

I think you must open the drawings

xazhji 发表于 2004-12-2 20:54:00

insert

SWAYWOOD 发表于 2004-12-2 21:45:00

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

alin 发表于 2004-12-3 09:16:00

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

ZZXXQQ 发表于 2004-12-3 11:39:00

Test this program! Use the program at new drawing file.


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

wdb 发表于 2004-12-3 22:41:00

谢谢各位

TopV 发表于 2008-12-31 18:11:00

<p>我还没学会噢</p><p>有vba的程序么</p>
页: [1]
查看完整版本: 不打开图，如何将一个文件夹里的所有dwg文件都转换成幻灯片？