保存格式

xiao88gang

可不可以用一个lisp,将一个图形同时保存dwg格式和dxf格式？请高手指点一下。

kanxiaokan

xiao88gang 发表于 2017-9-23 13:21
你好亲，在吗，使用了一天，现在又出来一个问题，帮忙给看看，就是存档的时候，dwg的版本改过来之后，没 ...

(defun c:dxf (/ name)
(setvar "cmdecho" 0)
(setvar "FILEDIA" 0)
(setq name (getstring "\n请输入文件名:"))
(if (= name "")  
(setq name (vl-filename-base(getvar "DWGNAME")))
  )
(vl-cmdf "_.saveas" "d" "v" "2000" "" (strcat "f:/"name".dwg"));"2000"改为你需要的版本，不改也可以2000是老古董版本了
(vl-cmdf "_.saveas" "2000" (strcat "f:/"name".dwg"))
(princ (strcat "\n***文件 "name"dxf/dwg 输出在F:/***"))
(setvar "FILEDIA" 1)
(princ)
)

kanxiaokan

(defun c:dxf (/ name)
(setvar "cmdecho" 0)
(setvar "FILEDIA" 0)
(setq name (getstring "\n请输入文件名:"))
(if (= name "")  
(setq name (vl-filename-base(getvar "DWGNAME")))
  )
(vl-cmdf "_.dxfout" (strcat "F:/"name".dxf") "")
(vl-cmdf "_.saveas" "2010" (strcat "f:/"name".dwg") "")
(princ (strcat "\n***文件 "name"dxf/dwg 输出在F:/***"))
(setvar "FILEDIA" 1)
(princ)
)

xiao88gang

kanxiaokan 发表于 2017-9-22 13:07
(vl-cmdf "_.saveas" "此处改为你的CAD版本" (strcat "f:/"name".dwg"))

很好，改了版本就没有问题了，可以同时把两个格式都保存了。就是每次都要输入文件名，有点不太方便。我就想能不能改为这样：如果在输入命令之前保存过，不管是哪个格式的，当再次输入命令时，不用输入文件名了，默认识别之前的文件名。这样可否实现呢？

xiao88gang

kanxiaokan 发表于 2017-9-21 23:06
(defun c:dxf (/ name)
(setvar "cmdecho" 0)
(setvar "FILEDIA" 0)

你好，谢谢你，有个问题，就是好像只能保存dxf格式的，不能保存dwg格式的。能不能改为这样：输入命令，弹出对话框，默认保存dwg,同时再保存或者输出一个dxf的。谢向

kanxiaokan

xiao88gang 发表于 2017-9-22 11:20
你好，谢谢你，有个问题，就是好像只能保存dxf格式的，不能保存dwg格式的。能不能改为这样：输入命令，弹 ...

(vl-cmdf "_.saveas" "此处改为你的CAD版本" (strcat "f:/"name".dwg"))

kanxiaokan

xiao88gang 发表于 2017-9-22 14:01
很好，改了版本就没有问题了，可以同时把两个格式都保存了。就是每次都要输入文件名，有点不太方便。我就 ...

输入文件名为空的时候，已经默认原有文件名。你可以不输入文件名

xiao88gang

kanxiaokan 发表于 2017-9-22 16:00
输入文件名为空的时候，已经默认原有文件名。你可以不输入文件名

非常好用，太感谢了！！！

F4164789

强大的LISP

xiao88gang

kanxiaokan 发表于 2017-9-22 13:07
(vl-cmdf "_.saveas" "此处改为你的CAD版本" (strcat "f:/"name".dwg"))

你好亲，在吗，使用了一天，现在又出来一个问题，帮忙给看看，就是存档的时候，dwg的版本改过来之后，没有问题了，比我使用的低的，可以正常打开。但是dxf的比我低的打不开了。问一下dxf的可以设置版本吗？