将选中的图形另存为dxf
本帖最后由 363001640 于 2021-8-14 13:02 编辑我想把这个dwg里面的图形另存位dxf文件，或者另存为png,jgp之类的图片。不知道能否实现，压缩包里面是我手动另存的一个dxf文件。自动的话应该结果出来的跟手动的一样。
预想：输入命令后，先选中图形，然后右键，再选择一个单行文本作为他的文件名称。
另存之前他这个好像要打散才行。求助。
(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)
) 我选中的图形另存为dxf或者图片都行，我的最终目的是把这写界面图都变成dxf和图片。实际是两种都需要。但是现在能满足一种也行。现在手动感觉太慢了。而且容易复制错了，他另存为dxf一定要先打散才行，不然好像另一个软件不能识别。 上传的dwg文件打开无效 试试看是不是你想要的 qijun0818 发表于 2021-8-14 18:55
试试看是不是你想要的
虽然还是要按一下确定，如果能不按那下确定就更好了。不过不知道是什么原因，另外一个软件却不能识别，我原以为dxf都能识别。之前我是手动用快捷键w写块的方式的操作的。这种dxf和那种写快的格式不知道有啥区别。 现在工厂新设备都是可以识别图纸的，但是只能识别dxf格式的。所以在想有啥偷懒的办法。:lol (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)
) qijun0818 发表于 2021-8-15 19:24
(defun c:tt(/ ss en txt lj)
(defun dxf(en n)
(cdr(assoc n (entget en)))
非常感谢，很好用 我导出 DXF 后，打不开，是什么问题？
页:
[1]
2