我的第一个LSP，另存为老版本。另外请教一个问题

CAD新军

我用2014画图发建筑和甲方都经常说版本太高打不开，所以发图前都要存为低版本，我一般选2007版本文件。实在常用就弄了个脚本，有三个命令。
1. cw 保存当前违建为2007格式
2. cwjt，保存当前文件后面是今天的日期，如果有同样格式的日期在最后会更新日期，即 “天面.dwg”会变成 “天面[2018-12-09].dwg”，但天面"[2018-12-01].dwg" 会变成 “天面[2018-12-09].dwg”
3. ct，出图用的，删掉一大堆计算书图层，另存为当前文件位置新建一个当前日期名字文件夹

请教一个问题就是，怎样把一个命令批量在多文件执行？比如我打开3个文件，怎样都执行我这个cw命令呢？

1. ;;;本LSP有三个个命令，cw直接保存当前文件为07版本DWG，cwjt保存文件加日期后缀
   
2. ;;;ct 为出图用，删除盈建科计算书图层，另存到【日期】文件夹，保存为2007格式
   
3. 
   
4. ;;出图删除图层修改下面这行增加(setq delLayer (list "11"  "12"  "13"  "dsptext_planname"  "dsptext_col" "dsptext_beam"  "dsptext_wallcol"  "SPRE_SPECBE_LIAN"  "SPRE_SPECBE_TF" "SPRE_SPEC_HINGE" "SPRE_SPECCL_JIAO" "SPRE_SPECWA_SHORT" "jiantu"  "砼柱" "砼墙"  "砼梁" "板洞边线" "PKPM_WPJ" ))
   
5. 
   
6. 
   
7. (defun c:cw()
   
8.   ;;(setvar "oldCmdecho" (getvar "cmdecho"))
   
9.   ;;(setvar "cmdecho" 0)
   
10.   (setq oldExpert (getvar "expert" ))
    
11.   (setvar "expert" 5)
    
12.   (command "saveas" 2007 (strcat (getvar "dwgprefix")  (getvar "dwgname")))
    
13.   (setvar "expert" oldExpert)
    
14.   ;;(setvar "cmdecho" oldCmdecho)
    
15.   (princ "保存为2007格式")
    
16. )
    
17. 
    
18. 
    
19. (defun c:cwjt()
    
20. ;;;保存为今天日期并存为ACAD2007版本 prompt 2007 2013
    
21. (setq dwgname (getvar "dwgname"))
    
22. (setq dwgnamelen (strlen dwgname))
    
23. (setq dwgname (substr dwgname 1 (- dwgnamelen 4)))
    
24. 
    
25. (prompt "\n>空格保存默认版本，输入任意字符2007：")
    
26.   (setq saveVersion (getstring))
    
27.   (if (= saveVersion "") (setq saveVersion 2013) (setq saveVersion 2007))
    
28. 
    
29. (defun mysaveas(newFileName)
    
30.         ;;;(princ newFileName)
    
31.   ;;(setvar "oldCmdecho" (getvar "cmdecho"))
    
32.   ;;(setvar "cmdecho" 0)
    
33.   (setq oldExpert (getvar "expert" ))
    
34.   (setvar "expert" 5)
    
35.   (command "saveas" saveVersion newFileName)
    
36.   (setvar "expert" oldExpert)
    
37.   ;;(setvar "cmdecho" oldCmdecho)
    
38. )
    
39. 
    
40. 
    
41. 
    
42. (setq cdate (rtos (getvar "cdate") 2 8))
    
43. (setq savedate (strcat "[" (substr cdate 1 4) "-" (substr cdate 5 2) "-" (substr cdate 7 2) "]"))
    
44. 
    
45. 
    
46. (if (> dwgnamelen 10)
    
47.    ;;;长度足够在判断
    
48.   (progn
    
49.     (if (wcmatch dwgname "*`[####`-##`-##`]")
    
50.       ;;;文件名后有日期
    
51.         (progn
    
52.          ;;; (strcat "\n" (substr dwgname 1 (- dwgnamelen 16)) savedate ".dwg")
    
53.           (mysaveas (strcat (getvar "dwgprefix") (strcat (substr dwgname 1 (- dwgnamelen 16)) savedate ".dwg")))
    
54.         )
    
55.         ;;;文件名后没有日期
    
56.        (progn
    
57.      ;;;     (princ (strcat "\n" dwgname savedate ".dwg"))   
    
58.           (mysaveas (strcat (getvar "dwgprefix") (strcat dwgname savedate ".dwg")) )
    
59.          
    
60.        )
    
61.     )
    
62.   )
    
63.   ;;;长度不足，直接加
    
64.   (progn
    
65.     ;;;  (strcat "\n" dwgname savedate ".dwg")
    
66.       (mysaveas (strcat (getvar "dwgprefix") (strcat dwgname savedate ".dwg")) )
    
67.   )
    
68. )
    
69. 
    
70. )
    
71. 
    
72. 
    
73. (defun c:ct()
    
74.   ;;;################删除出图不要的图层
    
75.   (setq AcadObject (vlax-get-acad-object)
    
76.     AcadDocument (vla-get-ActiveDocument AcadObject)
    
77.     LayersObj (vla-get-layers AcadDocument)
    
78.   );end setq
    
79.   (setq delLayer (list "11"  "12"  "13"  "dsptext_planname"  "dsptext_col" "dsptext_beam"  "dsptext_wallcol"  "SPRE_SPECBE_LIAN"  "SPRE_SPECBE_TF" "SPRE_SPEC_HINGE" "SPRE_SPECCL_JIAO" "SPRE_SPECWA_SHORT" "jiantu"  "砼柱" "砼墙"  "砼梁" "板洞边线" "PKPM_WPJ" ))
    
80. 
    
81.   
    
82.   (vlax-for vlay LayersObj
    
83.       (if (vl-position (vla-get-name vlay) delLayer)
    
84.         (progn
    
85.           (princ (vla-get-name vlay))
    
86.           (vl-cmdf "_.-laydel" "_N" (vla-get-name vlay) "" "_Y")
    
87.         )
    
88.       )
    
89.       
    
90.   );end vlax-for
    
91.   
    
92.   
    
93.   ;保存为2007格式到日期子目录
    
94.   (setq cdate (rtos (getvar "cdate") 2 0))
    
95.   (setq oldExpert (getvar "expert" ))
    
96.   (setvar "expert" 5)
    
97.   (vl-mkdir (strcat (getvar "dwgprefix") cdate))
    
98.   (command "saveas" 2007 (strcat (getvar "dwgprefix") cdate "\\" (getvar "dwgname")))
    
99.   (princ  (strcat "保存到" (getvar "dwgprefix") cdate "\\" (getvar "dwgname")))
    
100.   (setvar "expert" oldExpert)
     
101. )
     

;;;本LSP有三个个命令，cw直接保存当前文件为07版本DWG，cwjt保存文件加日期后缀<br /> ;;;ct 为出图用，删除盈建科计算书图层，另存到【日期】文件夹，保存为2007格式<br /> <br /> ;;出图删除图层修改下面这行增加(setq delLayer (list "11"  "12"  "13"  "dsptext_planname"  "dsptext_col" "dsptext_beam"  "dsptext_wallcol"  "SPRE_SPECBE_LIAN"  "SPRE_SPECBE_TF" "SPRE_SPEC_HINGE" "SPRE_SPECCL_JIAO" "SPRE_SPECWA_SHORT" "jiantu"  "砼柱" "砼墙"  "砼梁" "板洞边线" "PKPM_WPJ" ))<br /> <br /> <br /> (defun c:cw()<br />   ;;(setvar "oldCmdecho" (getvar "cmdecho"))<br />   ;;(setvar "cmdecho" 0)<br />   (setq oldExpert (getvar "expert" ))<br />   (setvar "expert" 5)<br />   (command "saveas" 2007 (strcat (getvar "dwgprefix")  (getvar "dwgname")))<br />   (setvar "expert" oldExpert)<br />   ;;(setvar "cmdecho" oldCmdecho)<br />   (princ "保存为2007格式")<br /> )<br /> <br /> <br /> (defun c:cwjt()<br /> ;;;保存为今天日期并存为ACAD2007版本 prompt 2007 2013<br /> (setq dwgname (getvar "dwgname"))<br /> (setq dwgnamelen (strlen dwgname))<br /> (setq dwgname (substr dwgname 1 (- dwgnamelen 4)))<br /> <br /> (prompt "\n>空格保存默认版本，输入任意字符2007：")<br />   (setq saveVersion (getstring))<br />   (if (= saveVersion "") (setq saveVersion 2013) (setq saveVersion 2007))<br /> <br /> (defun mysaveas(newFileName)<br />         ;;;(princ newFileName)<br />   ;;(setvar "oldCmdecho" (getvar "cmdecho"))<br />   ;;(setvar "cmdecho" 0)<br />   (setq oldExpert (getvar "expert" ))<br />   (setvar "expert" 5)<br />   (command "saveas" saveVersion newFileName)<br />   (setvar "expert" oldExpert)<br />   ;;(setvar "cmdecho" oldCmdecho)<br /> )<br /> <br /> <br /> <br /> (setq cdate (rtos (getvar "cdate") 2 8))<br /> (setq savedate (strcat "[" (substr cdate 1 4) "-" (substr cdate 5 2) "-" (substr cdate 7 2) "]"))<br /> <br /> <br /> (if (> dwgnamelen 10)<br />    ;;;长度足够在判断<br />   (progn<br />     (if (wcmatch dwgname "*`[####`-##`-##`]")<br />       ;;;文件名后有日期<br />         (progn<br />          ;;; (strcat "\n" (substr dwgname 1 (- dwgnamelen 16)) savedate ".dwg")<br />           (mysaveas (strcat (getvar "dwgprefix") (strcat (substr dwgname 1 (- dwgnamelen 16)) savedate ".dwg")))<br />         )<br />         ;;;文件名后没有日期<br />        (progn<br />      ;;;     (princ (strcat "\n" dwgname savedate ".dwg"))   <br />           (mysaveas (strcat (getvar "dwgprefix") (strcat dwgname savedate ".dwg")) )<br />          <br />        )<br />     )<br />   )<br />   ;;;长度不足，直接加<br />   (progn<br />     ;;;  (strcat "\n" dwgname savedate ".dwg")<br />       (mysaveas (strcat (getvar "dwgprefix") (strcat dwgname savedate ".dwg")) )<br />   )<br /> )<br /> <br /> )<br /> <br /> <br /> (defun c:ct()<br />   ;;;################删除出图不要的图层<br />   (setq AcadObject (vlax-get-acad-object)<br />     AcadDocument (vla-get-ActiveDocument AcadObject)<br />     LayersObj (vla-get-layers AcadDocument)<br />   );end setq<br />   (setq delLayer (list "11"  "12"  "13"  "dsptext_planname"  "dsptext_col" "dsptext_beam"  "dsptext_wallcol"  "SPRE_SPECBE_LIAN"  "SPRE_SPECBE_TF" "SPRE_SPEC_HINGE" "SPRE_SPECCL_JIAO" "SPRE_SPECWA_SHORT" "jiantu"  "砼柱" "砼墙"  "砼梁" "板洞边线" "PKPM_WPJ" ))<br /> <br />   <br />   (vlax-for vlay LayersObj <br />       (if (vl-position (vla-get-name vlay) delLayer)<br />         (progn<br />           (princ (vla-get-name vlay))<br />           (vl-cmdf "_.-laydel" "_N" (vla-get-name vlay) "" "_Y")<br />         )<br />       )<br />       <br />   );end vlax-for<br />   <br />   <br />   ;保存为2007格式到日期子目录<br />   (setq cdate (rtos (getvar "cdate") 2 0))<br />   (setq oldExpert (getvar "expert" ))<br />   (setvar "expert" 5)<br />   (vl-mkdir (strcat (getvar "dwgprefix") cdate))<br />   (command "saveas" 2007 (strcat (getvar "dwgprefix") cdate "\\" (getvar "dwgname")))<br />   (princ  (strcat "保存到" (getvar "dwgprefix") cdate "\\" (getvar "dwgname")))<br />   (setvar "expert" oldExpert)<br /> )<br />

edata

可以尝试将lisp文件名改为acad.lsp，最后一行写 (c:cw)，放在需要批量处理的dwg文件夹内,然后打开dwg文件，就会自动执行acad.lsp。

pengfei2010

还不错，第一个程序能做出来，鼓励一下

qq1547325443

只是单独存为旧版，改选项的是不是也可以

CAD新军

qq1547325443 发表于 2018-12-13 10:06
只是单独存为旧版，改选项的是不是也可以

保存为当版本和保存为旧版本会快很多。我平时都存为新版本的，只有发给其他专业或者甲方时会另存为低版本。

dam_tomb

很流鼻啊简直太棒了

kuseok

很实用的功能，感谢

xxyyzzlg

程序不长，功能却很实用