iloveada 发表于 2006-1-8 15:35:00

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

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

ZZXXQQ 发表于 2006-1-10 22:28:00

程序在空白图中运行。

(DEFUN C:MKSLIDE ()
(SETVAR "CMDECHO" 0)
(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))
   (COMMAND ".UNOD" "BE")
   (IF (> (STRLEN NMM) 0) (PROGN
    (COMMAND "_.INSERT" (STRCAT "*" PATH NMM) '(0 0) "" "")
    (COMMAND "ZOOM" "E" "REGEN")
    (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
    (COMMAND "MSLIDE" (STRCAT PATH NMM))
   ))
   (COMMAND ".UNDO" "E")
   (COMMAND "_U")
)
(CLOSE F)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

zxmmelly 发表于 2006-2-6 22:49:00

带对话框的

dblue 发表于 2007-3-8 15:05:00

二楼的好像有问题。

egos 发表于 2011-6-7 18:53:13

程序贴错了有问题

lilq_78 发表于 2011-11-12 11:24:43

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

magicheno 发表于 2024-1-17 23:55:27

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

感谢大佬分享~！

z312144636 发表于 2024-3-30 14:54:34

感谢大佬分享~！
页: [1]
查看完整版本: 请问如何能批量声称sld幻灯片文件？