xiao88gang 发表于 2018-5-21 21:17:33

输出到指定路径

论谈上的的，很好用，只是每次都要选择路径，输入文件名。如何加一语名，选择范围后，使其输出到指定的路径，固定的文件名。比如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 发表于 2018-5-22 02:44:26

(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 发表于 2018-5-22 13:08:55

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


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

yuxin6618 发表于 2018-5-22 13:10:10

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

hn10183051 发表于 2019-2-27 14:02:53

如果是连续保存呢？比如F:\1.DXF2.DXF3.DXF
页: [1]
查看完整版本: 输出到指定路径