输出到指定路径

xiao88gang

论谈上的的，很好用，只是每次都要选择路径，输入文件名。如何加一语名，选择范围后，使其输出到指定的路径，固定的文件名。比如F:\1.DXF
请高手们帮忙修改一下。
;;快速输出dxf
(DEFUN C:EXP( / GRP PATH NAME)
(PRINC "\Hellow^…^朋友")
(SETVAR "CMDECHO" 0)
(SETVAR "osmode" 0)
(PRINC "\n DXF快速输出!!!");
(SETQ pt1 (getpoint"请选择左上角:"))
(PRINC "")
(SETQ k 1)
(SETQ pt2 (getpoint"请选择右下角:"))
(COMMAND "SCALE" "w" pt1 pt2 "" pt1 k)
(SETQ PATH (GETVAR "DWGPREFIX")) ;获取FILEPATH
(SETQ NAME (GETFILED "DXF档案输出快选" PATH "DXF" 15))
(SETVAR "FILEDIA" 0)
(COMMAND "_DXFOUT" NAME "V" "R12" "O" "W" PT1 PT2  "" "")
(COMMAND "SCALE" "w" pt1 pt2 "" pt1 1)
(SETVAR "FILEDIA" 1)
(SETVAR "CMDECHO" 1)
(SETVAR "osmode" 3)
(PRINC "\n 文件已输出")
(PRINC)
)

yxp

(DEFUN C:EXP( / GRP PATH NAME)
(PRINC "\Hellow^…^朋友")
(SETVAR "CMDECHO" 0)
(SETVAR "osmode" 0)
(PRINC "\n DXF快速输出!!!");
(SETQ pt1 (getpoint"请选择左上角:"))
(PRINC "")
(SETQ k 1)
(SETQ pt2 (getpoint"请选择右下角:"))
(COMMAND "SCALE" "w" pt1 pt2 "" pt1 k)
;;(SETQ PATH (GETVAR "DWGPREFIX")) ;获取FILEPATH
;;(SETQ NAME (GETFILED "DXF档案输出快选" PATH "DXF" 15))
(SETVAR "FILEDIA" 0)
(COMMAND "_DXFOUT" "F:\\1.DXF" "V" "R12" "O" "W" PT1 PT2  "" "")
(COMMAND "SCALE" "w" pt1 pt2 "" pt1 1)
(SETVAR "FILEDIA" 1)
(SETVAR "CMDECHO" 1)
(SETVAR "osmode" 3)
(PRINC "\n 文件已输出")
(PRINC)
)

xiao88gang

yxp 发表于 2018-5-22 02:44
(DEFUN C:EXP( / GRP PATH NAME)
(PRINC "\Hellow^…^朋友")
(SETVAR "CMDECHO" 0)

谢谢您，辛苦了，很完美。

yuxin6618

谢谢您，辛苦了，很完美。

hn10183051

如果是连续保存呢？比如F:\1.DXF  2.DXF  3.DXF