xtjd 发表于 2021-7-23 18:03:59

强制转出低版本格式

本帖最后由 xtjd 于 2021-7-27 10:26 编辑

之前写了个选对象转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 发表于 2021-7-23 20:23:20

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

paulpipi 发表于 2021-7-24 08:29:57

好东西，收藏了
页: [1]
查看完整版本: 强制转出低版本格式