求高手们修改一下转出2004格式dxf程序

ninja37 · 发表于 2020-11-22 21:24:20

最近我们厂里，来了一个自动穿孔机  需要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)
)

xtjd · 发表于 2020-11-22 21:24:21

(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:47:41

本帖最后由 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图中了。谢谢你的帮助。

ninja37 · 发表于 2021-7-4 16:50:52

xtjd 发表于 2020-11-22 21:24
(defun c:zcc(/ dxf ff ss)
(setvar "cmdecho" 0)
(princ "\n请选择要转出 dxf 的图元:")

谢谢朋友，这个程序证的很好用，现在连ucs的坐标信息都可以一起转出。万分感谢

账号		自动登录	找回密码
密码			注册

求高手们修改一下 转出2004格式dxf程序

最佳答案

求高手们修改一下转出2004格式dxf程序