求高手们修改一下 转出2004格式dxf程序
最近我们厂里，来了一个自动穿孔机需要2004的dxf图档转出来的dxf需要2004格式的我写了一个完全不能用穿孔机是CAD2004输入命令不光不能用 还把cad搞坏了 不能打开保存文件里 要重装CAD
求高手们帮忙修改一下
(DEFUN C:ZCC( / GRP PATH NAME)
(SETVAR "CMDECHO" 0)
(PRINC "\n DXF转出程序!!!\(WRITEN BY Q.Z.H 1999/3/31\)")
(PROMPT "\n 请选择要转出 DXF 的图元:")
(SETQ GRP (SSGET))
(SETQ PATH (GETVAR "DWGPREFIX")) ; FILEPATH
(SETQ NAME (GETFILED "请框选要转出DXF的图元" PATH "DXF" 15))
(SETVAR "FILEDIA" 0)
(COMMAND "_DXFOUT" NAME "V" "2004" "O" GRP "" "")
(SETVAR "FILEDIA" 1)
(SETVAR "CMDECHO" 1)
(PRINC "\n 已经转出 穿孔机 用 R2004 格式DXF 到U盘 !!!")
(PRINC)
)
(defun c:zcc(/ dxf ff ss)
(setvar "cmdecho" 0)
(princ "\n请选择要转出 dxf 的图元:")
(if(setq ss(ssget))
(progn
(setq dxf(strcat (getvar "dwgprefix")(vl-filename-base (getvar "dwgname")) "-2004.dxf"))
(if(setq ff(getfiled "快速存图系统" dxf "dxf" 32))
(progn
(if (findfile ff)
(command ".wblock" ff "y" "16" "" (list 0 0) ss "")
(command ".wblock" ff "16" "" (list 0 0) ss "")
)
(command ".oops")
(princ(strcat "\n[" (cadr(fnsplitl ff)) "]穿孔机用R2004 DXF格式已经转出至U盘!!!"))
)
)
)
)
(prin1)
)
本帖最后由 ninja37 于 2021-7-4 16:52 编辑
xtjd 发表于 2020-11-22 21:24
(defun c:zcc(/ dxf ff ss)
(setvar "cmdecho" 0)
(princ "\n请选择要转出 dxf 的图元:")
谢谢 这个程序很好用，穿孔机有一个基准坐标，我们先把ucs移动到图元的某个位置，在转出dxf后 ，这个ucs坐标也就丢失了，不会连带ucs信息一起转出，我们厂以前都是老老实实每一个图移动一下UCS，然后在点另存为，现在连ucs也保存在新的dxf图中了。谢谢你的帮助。 xtjd 发表于 2020-11-22 21:24
(defun c:zcc(/ dxf ff ss)
(setvar "cmdecho" 0)
(princ "\n请选择要转出 dxf 的图元:")
谢谢朋友，这个程序证的很好用 ，现在连ucs的坐标信息都可以一起转出。万分感谢
页:
[1]