论坛上找的，稍作修改
各位大神们这个输出插件需要每次点左上角，右下角，还有就是每次都需要输入文件名，怎么改不要每次都输入文件名，当保存后，默认输出当前位置，当前文件名.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)
)
(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" "")
)
Andyhon 发表于 2017-12-23 11:48
(DEFUN C:CFC (/ GRP PATH NAME)
(SETQ PATH (GETVAR "DWGPREFIX")
NAME (getvar "DwgName")
谢谢Andyhon大师的修改，很好用， 您得学着补上错误处理
页:
[1]