yang686526

不打开图，如何将一个文件夹里的所有dwg文件都转换成幻灯片？
www.dimcax.com
不打开图，如何将一个文件夹里的所有dwg文件都转换成幻灯片？不打开图，将一个文件夹里的所有dwg文件都转换成对应的幻灯片，能否实现？
d
i think you must open the drawings
d
insert
同舟工具箱6.0 闪亮升级！
cad资格资料 机械资料 下载
you can open the drawings one by one, change the the sizes of the document window and make slides ....
d
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)
)
踅摸