强制转出低版本格式

xtjd

之前写了个选对象转2004DXF版本，
(defun c:zcc(/ dxf ff ss)
   (setvar "cmdecho" 0)
   (princ "\n请选择要转出 dxf 的图元:")
   (if(setq ss(ssget))
     (progn      
       (setq dxf(strcat (getvar "dwgprefix")(vl-filename-base (getvar "dwgname")) "-2004.dxf"))
       (if(setq ff(getfiled "快速存图系统" dxf "dxf" 32))
         (progn
           (if (findfile ff)
             (command ".wblock" ff "y" "16" "" (list 0 0) ss "")
             (command ".wblock" ff "16" "" (list 0 0) ss "")
           )
           (command ".oops")
           (princ(strcat "\n[" (cadr(fnsplitl ff)) "]穿孔机用R2004 DXF格式已经转出至U盘!!!"))
         )
       )
     )
   )
   (prin1)
)


有同学反馈CAD2018已无法存出低版本，
故重写一个强制转出所需版本的供参考.
附件在CAD2022中转出2004dxf版本成功通过


2021年7月27日更新说明：
原代码：(if(setq ff(getfiled "快速存图系统" dxf "dxf" 32))
更改后：(if(setq ff(getfiled "快速存图系统" dxf "dxf" 1))
请下载后自行更新上述语句，数字32更改为1即可

xinxirong

建议最低不少于2007版(95%不出问题)，2010版99%不出问题

paulpipi

好东西，收藏了