将选中的图形另存为dxf

363001640

我想把这个dwg里面的图形另存位dxf文件，或者另存为png,jgp之类的图片。不知道能否实现，压缩包里面是我手动另存的一个dxf文件。自动的话应该结果出来的跟手动的一样。


预想：输入命令后，先选中图形，然后右键，再选择一个单行文本作为他的文件名称。
另存之前他这个好像要打散才行。求助。

qijun0818

(defun c:tt(/ ss en txt lj)
        (defun dxf(en n)
                (cdr(assoc n (entget en)))
        )
        (if (and (setq ss(ssget))(setq en(car(entsel))))
                (if (or(= "MTEXT"(dxf en 0))(= "TEXT"(dxf en 0)))
                        (progn
                                (setq txt(dxf en 1))
                                (setq lj(getfiled "输出dxf" txt "dxf" 1))
                                (vl-cmdf "._DXFOUT" lj "V" "R12" "O" ss "" "")
                        )
                )
        )
        (princ)
)

363001640

我选中的图形另存为dxf或者图片都行，我的最终目的是把这写界面图都变成dxf和图片。实际是两种都需要。但是现在能满足一种也行。现在手动感觉太慢了。而且容易复制错了，他另存为dxf一定要先打散才行，不然好像另一个软件不能识别。

qijun0818

上传的dwg文件打开无效

qijun0818

试试看是不是你想要的

363001640

qijun0818 发表于 2021-8-14 18:55
试试看是不是你想要的

虽然还是要按一下确定，如果能不按那下确定就更好了。不过不知道是什么原因，另外一个软件却不能识别，我原以为dxf都能识别。之前我是手动用快捷键w写块的方式的操作的。这种dxf和那种写快的格式不知道有啥区别。

363001640

现在工厂新设备都是可以识别图纸的，但是只能识别dxf格式的。所以在想有啥偷懒的办法。

qijun0818

(defun c:tt(/ ss en txt lj)
        (defun dxf(en n)
                (cdr(assoc n (entget en)))
        )
        (if (and (setq ss(ssget))(setq en(car(entsel))))
                (if (or(= "MTEXT"(dxf en 0))(= "TEXT"(dxf en 0)))
                        (progn
                                (setq txt(dxf en 1))(setq lj(getfiled "输出dxf" txt "dxf" 1))
                                (vl-cmdf "._DXFOUT" (strcat 输出的路径 "\\" txt) "V" "R12" "O" ss "" "") ;;输出的路径如D:新建文件夹\\dxf文件  首先得有这个文件夹
                        )
                )
        )
        (princ)
)

363001640

qijun0818 发表于 2021-8-15 19:24
(defun c:tt(/ ss en txt lj)
        (defun dxf(en n)
                (cdr(assoc n (entget en)))

非常感谢，很好用

mokson

我导出 DXF 后，打不开，是什么问题？