附件怎么控制输出文件的版本

惜惜2

麻烦大神帮忙改下

hxpdig

(defun c:dxff() (initdia 0)(setenv "DefaultFormatForSave" "37")(command "saveas" "D" "V" "2007" "16" "" "Y")(setenv "DefaultFormatForSave" "36")(command "close" "y"))

惜惜2

飞雪神光 发表于 2024-9-2 22:37
命令: _.dxfout 图形另存为 :
当前 DXF 设置: 精度= 16 格式= ASCII 预览= 否 版本= 2007
输入精度的小数 ...

感谢大佬

飞雪神光

命令: _.dxfout 图形另存为 <E:\数据盘\123.dxf>:
当前 DXF 设置: 精度= 16 格式= ASCII 预览= 否 版本= 2007
输入精度的小数位数 (0 到 16) 或 [二进制(B)/选择对象(O)/预览(P)/版本(V)] <16>: v
输入版本 [R12(LT2)/2000(LT2000)/2004(LT2004)/2007(LT2007)] <2007>: 2000
输入精度的小数位数 (0 到 16) 或 [二进制(B)/选择对象(O)/预览(P)/版本(V)] <16>:
此名称的图形已存在。
是否替换? <N>
所以命令流应该是这样的

1. (vl-cmdf "_.dxfout" str "V" "LT2000" "O" (ssget) "" "")

(vl-cmdf "_.dxfout" str "V" "LT2000" "O" (ssget) "" "")