♂此处空白♂ 发表于 2015-1-29 11:30:23

选物另存为DWG，DXF要怎么编写

选物另存为DWG，DXF要怎么编写,那位高手有写过

adc 发表于 2015-1-29 11:35:45

加分么？加分就告诉你

琴剑江山_10184 发表于 2015-1-29 11:43:33

(defun c:dwg (/ getv getv2 getv3 str )
(setvar "cmdecho" 0)
(princ "\n功能 [自动存DXF档]")
(setq getv(getvar "DWGPREFIX")
      getv2 (getvar "DWGNAME")
      getv3 (getvar "FILEDIA")
      )
(setq str (strcat getv (vl-filename-base getv2) ".dxf"))
(setvar "FILEDIA" 0)
(vl-cmdf "_.dxfout" str "O" (ssget) "" "")
(setvar "FILEDIA" getv3)
(princ)
)这是自动存DXF的，路径，文件名，我已设定好的，你自己改改吧

lucas_3333 发表于 2015-1-29 11:44:55

“W”, WBLOCK ,不行么？ 为什么还要编程？？

♂此处空白♂ 发表于 2015-1-29 12:19:18

不是我想要的，我想选物后打开另存对话框然后保存所选的物体。

masterlong 发表于 2015-1-29 22:45:01

做肯定能够做到
如果你是求程序请忽略此后内容
如果你是求思路继续往下看
获取文件名以后
将选择集写块
如果要dxf
你需要打开刚才的dwg
另存为dxf后关闭
打开dwg并执行一段代码的办法
你可以搜下我的帖子文件夹批量处理

iamhuangjinming 发表于 2016-6-30 08:36:38

这个有需要啊，有源码吗
页: [1]
查看完整版本: 选物另存为DWG，DXF要怎么编写