使用图纸集，如何和其他专业对接

筑巢architect

我用图纸集 布局画图
我所有的东西都在模型空间里，只是用布局排版，布局内部并没有图元
但是其他专业用传统的模型空间画图  
我如何跟他们很好对接  转换成模型空间的图
如果用布局输入到模型空间的命令 只能一张一张转 太慢了  全部转完 要花掉几个小时   
cad发布里  只有发布 dwf和pdf两种格式  并没有批量布局转模型空间

请问遇到这种情况 如何和其他专业很好对接

e2002

这么个小玩意，不需要付费的。
实际上面都把最核心功能的那几句都贴出来了。

完整程序如下(需要用到 Doslib , 在 wiki.mcneel.com下载最新版)：

1. ;;================================================================================
   
2. ;; 批量输出Layouts到Model
   
3. ;; Revision :
   
4. ;; R0.0.1        2013/01/25        初始版本
   
5. ;; R0.0.2        2013/01/28        改进程序流程，修正 sDwgName 去除最后的".dwg" 字符
   
6. ;; R0.0.2.1        2013/02/06        增加 (vl-arx-import 'layoutlist) 用于编译
   
7. 
   
8. (defun C:lkpt_Layouts_Export2Model ( / sDwgFolder sDwgName iLen    sTab  lsLayouts
   
9.                                       sFolder    oldvar1  oldvar2 sItem sDwgOut
   
10.                                   )
    
11.   (setq sDwgFolder (getvar "DWGPREFIX")
    
12.         sDwgName (getvar "DWGNAME")
    
13.         iLen (- (strlen sDwgName) 4)
    
14.         sDwgName (substr sDwgName 1 iLen)
    
15.         sTab (getvar "CTAB")
    
16.   )
    
17.   (vl-arx-import 'layoutlist)
    
18.   (if (and (setq lsLayouts (dos_multilist  "Layout输出到Model" "选择需要输出到Model的Layout" (layoutlist)))
    
19.            (setq sFolder   (dos_getdir "输出目的文件夹" sDwgFolder "选择输出目的文件夹" T))
    
20.       )
    
21.     (progn
    
22.       (setq oldvar1 (getvar "FILEDIA")
    
23.             oldvar2 (getvar "CMDECHO")
    
24.       )
    
25.       (setvar "FILEDIA" 0)
    
26.       (setvar "CMDECHO" 0)
    
27.       (foreach sItem lsLayouts
    
28.         (setvar "CTAB" sItem)
    
29.         (setq sDwgOut (strcat sFolder sDwgName "_" sItem))
    
30.         (vl-cmdf "_.exportlayout" sDwgOut)
    
31.       )
    
32.       (setvar "CTAB" sTab)
    
33.       (setvar "FILEDIA" oldvar1)
    
34.       (setvar "CMDECHO" oldvar2)
    
35.     )
    
36.   );fi
    
37.   (princ)
    
38. );end defun C:lkpt_Layouts_Export2Model

;;================================================================================<br /> ;; 批量输出Layouts到Model<br /> ;; Revision :<br /> ;; R0.0.1        2013/01/25        初始版本<br /> ;; R0.0.2        2013/01/28        改进程序流程，修正 sDwgName 去除最后的".dwg" 字符<br /> ;; R0.0.2.1        2013/02/06        增加 (vl-arx-import 'layoutlist) 用于编译<br /> <br /> (defun C:lkpt_Layouts_Export2Model ( / sDwgFolder sDwgName iLen    sTab  lsLayouts<br />                                       sFolder    oldvar1  oldvar2 sItem sDwgOut<br />                                   )<br />   (setq sDwgFolder (getvar "DWGPREFIX")<br />         sDwgName (getvar "DWGNAME")<br />         iLen (- (strlen sDwgName) 4)<br />         sDwgName (substr sDwgName 1 iLen)<br />         sTab (getvar "CTAB")<br />   )<br />   (vl-arx-import 'layoutlist)<br />   (if (and (setq lsLayouts (dos_multilist  "Layout输出到Model" "选择需要输出到Model的Layout" (layoutlist)))<br />            (setq sFolder   (dos_getdir "输出目的文件夹" sDwgFolder "选择输出目的文件夹" T))<br />       )<br />     (progn<br />       (setq oldvar1 (getvar "FILEDIA")<br />             oldvar2 (getvar "CMDECHO")<br />       )<br />       (setvar "FILEDIA" 0)<br />       (setvar "CMDECHO" 0)<br />       (foreach sItem lsLayouts<br />         (setvar "CTAB" sItem)<br />         (setq sDwgOut (strcat sFolder sDwgName "_" sItem))<br />         (vl-cmdf "_.exportlayout" sDwgOut)<br />       )<br />       (setvar "CTAB" sTab)<br />       (setvar "FILEDIA" oldvar1)<br />       (setvar "CMDECHO" oldvar2)<br />     )<br />   );fi<br />   (princ)<br /> );end defun C:lkpt_Layouts_Export2Model

e2002

内置命令 EXPORTLAYOUT只能一个一个来转，所以我写了个小东西来批量操作，解决你提到的这个问题。

xman00

e2002 发表于 2015-5-23 12:00
内置命令 EXPORTLAYOUT只能一个一个来转，所以我写了个小东西来批量操作，解决你提到的这个问题。

恭请大侠放出源码，造福明经大众。

e2002

就是获取需要转出的 sLayouts 的 list ，然后遍历(foreach)，对每一个 sLayout 作：

1. (setvar “CTAB” sLayout)
   
2. (setq sDwgOut  (strcat sFolder sDwgName "_" sLayout))
   
3. (vl-cmdf "_.exportlayout" sDwgOut)

(setvar “CTAB” sLayout)<br /> (setq sDwgOut  (strcat sFolder sDwgName "_" sLayout))<br /> (vl-cmdf "_.exportlayout" sDwgOut)

其余的系统变量保存和恢复那些没什么意思了，需要的自己搞定一下了。为了简化和效率，界面我直接使用了 Doslib 的函数库，不喜欢费力的 DCL。

e2002

这样export出来的dwg 似乎丢失了 Annotative Scale 相关的一些信息，不利于自己的工作。一般的，我用到这个的时候是在所有设计工作已经完成，需要提交到服务器归档时才做的（原因是公司规定归档的图纸必须是一张图纸对应一个dwg文件，这个规定比较无语，落后时代了）。

无花老和尚

e2002版主 可以放出这个程序吗 很需要这个功能 我可以付费

无花老和尚

e2002 发表于 2015-5-23 12:00
内置命令 EXPORTLAYOUT只能一个一个来转，所以我写了个小东西来批量操作，解决你提到的这个问题。

e2002版主 可以放出这个程序吗 很需要这个功能 我可以付费

无花老和尚

谢谢 十分感谢 这功能外发文件用起来很方便

zgzzsn

真是好心人