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

♂此处空白♂

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

adc

加分么？加分就告诉你

琴剑江山_10184

2. (defun c:dwg (/ getv getv2 getv3 str )
   
3. (setvar "cmdecho" 0)
   
4. (princ "\n功能 [自动存DXF档]")  
   
5. (setq getv  (getvar "DWGPREFIX")
   
6.       getv2 (getvar "DWGNAME")
   
7.       getv3 (getvar "FILEDIA")
   
8.       )
   
9. (setq str (strcat getv (vl-filename-base getv2) ".dxf"))
   
10. (setvar "FILEDIA" 0)
    
11. (vl-cmdf "_.dxfout" str "O" (ssget) "" "")
    
12. (setvar "FILEDIA" getv3)  
    
13. (princ)
    
14. )

(defun c:dwg (/ getv getv2 getv3 str )<br /> (setvar "cmdecho" 0)<br /> (princ "\n功能 [自动存DXF档]")  <br /> (setq getv  (getvar "DWGPREFIX")<br />       getv2 (getvar "DWGNAME")<br />       getv3 (getvar "FILEDIA")<br />       )<br /> (setq str (strcat getv (vl-filename-base getv2) ".dxf"))<br /> (setvar "FILEDIA" 0)<br /> (vl-cmdf "_.dxfout" str "O" (ssget) "" "")<br /> (setvar "FILEDIA" getv3)  <br /> (princ)<br /> )

这是自动存DXF的，路径，文件名，我已设定好的，你自己改改吧

lucas_3333

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

♂此处空白♂

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

masterlong

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

iamhuangjinming

这个有需要啊，有源码吗