[LISP函数]：请问,用lisp能在cad中输出dxf格式么

ok123

例如,我想在把当前图形转换为dxf格式,再读进来.
因为打印的时候老是出现教育版,手工转换太麻烦,用转换工具又往往会丢失字体.

zxq0220

(COMMAND "DXFOUT"  "FILENAME" "")

ok123

这位高手,其实我想要编写一个简单的lisp来去处"教育版"信息, 请问:

现在很多cad图形都会带有"教育版"的打印戳记
我想做一个lisp来去处"教育版"信息,思路已经有了(环境是cad2002,只有2000dxf格式和dwg r14 格式才能去处打印戳记,2004dxf是无法去处的)
就是首先,手工用cad2002 打开某个带有教育版信息的dwg文件.

允许 lisp
自动执行:

输出c:\temp\,格式2000 dxf格式 用(command "dxfout" "c:\temp\recover.dwg" " ")
关闭当前dwg文件,close? ;不会写啊,请各位帮忙
读取输出的2000dxf文件.(command "dxfin" "c:\temp\recover.dwg" " ")
并且自动另存为原来 "文件名.去处教育版.dwg"(command "saveas" ?????? "" ) 请问如
何获得原来的文件名字呢?
用dxfout 会不会破坏文件的完整性?例如少了字体,少了图层,最重要的是会不会少了图纸空间?