论坛上找的，稍作修改

xiao88gang

各位大神们这个输出插件需要每次点左上角，右下角，还有就是每次都需要输入文件名，怎么改不要每次都输入文件名，当保存后，默认输出当前位置，当前文件名.dxf。还有就是把整个图都输出，不用点选范围。求大师帮忙。

    (DEFUN C:DFC( / 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" 37)
(PRINC "\n OK !!!")
(PRINC)
)

Andyhon

(DEFUN C:CFC (/ GRP PATH NAME)
  (SETQ        PATH (GETVAR "DWGPREFIX")
        NAME (getvar "DwgName")
        Name (substr name 1 (- (Strlen name) 4))
        Name (strcat Path Name)
  )
  (COMMAND "_DXFOUT" NAME "V" "R12" "")
)

xiao88gang

Andyhon 发表于 2017-12-23 11:48
(DEFUN C:CFC (/ GRP PATH NAME)
  (SETQ        PATH (GETVAR "DWGPREFIX")
        NAME (getvar "DwgName")

谢谢Andyhon大师的修改，很好用，

Andyhon

您得学着补上错误处理