将布局输出到模型，有没有批量处理的方式

将布局输出到模型，有没有批量处理的方式
现在图纸是一个布局一张图，但给业主想要汇总起来
高版本有个将布局输出到模型的方法，当一次只能处理一个布局
有没有一次性处理多个布局的方法？

网友答: http://www.youqichuyun.com/thread-95027-1-1.html这个程序里面有个图纸一键合并，应该符合你的要求。

网友答: 以前在这里发的我也找不到了，可能是在服务器硬盘损坏事件中搞丢了吧。

在知乎上发了这个源码：
https://zhuanlan.zhihu.com/p/584554050

;; =================================================================================
;; 批量输出Layouts到Model
;; kedora@qq.com
;; AutoLISP源代码，非商业使用，可任意修改，不限制是否注明来源。
;; Revision :
;; R0.0.1 :2013/01/25 :初始版本。
;; R0.0.2 :2013/01/28 :改进程序流程，修正 sDwgName 去除最后的".dwg" 字符。
;; R0.0.2.1 :2013/02/06 :增加 (vl-arx-import 'layoutlist) 用于编译。
(defun C:lkpt_Layouts_Export2Model ( /
sDwgFolder sDwgName iLen sTab lsLayouts
sFolder oldvar1 oldvar2 sItem sDwgOut
)
(setq sDwgFolder (getvar "DWGPREFIX")
sDwgName (getvar "DWGNAME")
iLen (- (strlen sDwgName) 4)
sDwgName (substr sDwgName 1 iLen)
sTab (getvar "CTAB")
)
(vl-arx-import 'layoutlist)
(if (and (setq lsLayouts (dos_multilist "Layout输出到Model" "选择需要输出到Model的Layout" (layoutlist)))
(setq sFolder (dos_getdir "输出目的文件夹" sDwgFolder "选择输出目的文件夹" T))
)
(progn
(setq oldvar1 (getvar "FILEDIA")
oldvar2 (getvar "CMDECHO")
)
(setvar "FILEDIA" 0)
(setvar "CMDECHO" 0)
(foreach sItem lsLayouts
(setvar "CTAB" sItem)
(setq sDwgOut (strcat sFolder sDwgName "_" sItem))
(vl-cmdf "_.exportlayout" sDwgOut)
)
(setvar "CTAB" sTab)
(setvar "FILEDIA" oldvar1)
(setvar "CMDECHO" oldvar2)
);_progn
);_fi
(princ)
);_defun

;; ================================================================================= 
;; 批量输出Layouts到Model 
;; kedora@qq.com 
;; AutoLISP源代码，非商业使用，可任意修改，不限制是否注明来源。 
 
;; Revision : 
;; R0.0.1        :2013/01/25        :初始版本。 
;; R0.0.2        :2013/01/28        :改进程序流程，修正 sDwgName 去除最后的".dwg" 字符。 
;; R0.0.2.1        :2013/02/06        :增加 (vl-arx-import 'layoutlist) 用于编译。 
 
(defun C:lkpt_Layouts_Export2Model ( / 
                                      sDwgFolder sDwgName iLen    sTab  lsLayouts 
                                      sFolder    oldvar1  oldvar2 sItem sDwgOut 
                                  ) 
  (setq sDwgFolder (getvar "DWGPREFIX") 
        sDwgName (getvar "DWGNAME") 
        iLen (- (strlen sDwgName) 4) 
        sDwgName (substr sDwgName 1 iLen) 
        sTab (getvar "CTAB") 
  ) 
  (vl-arx-import 'layoutlist) 
  (if (and (setq lsLayouts (dos_multilist  "Layout输出到Model" "选择需要输出到Model的Layout" (layoutlist))) 
           (setq sFolder   (dos_getdir "输出目的文件夹" sDwgFolder "选择输出目的文件夹" T)) 
      ) 
    (progn 
      (setq oldvar1 (getvar "FILEDIA") 
            oldvar2 (getvar "CMDECHO") 
      ) 
      (setvar "FILEDIA" 0) 
      (setvar "CMDECHO" 0) 
      (foreach sItem lsLayouts 
        (setvar "CTAB" sItem) 
        (setq sDwgOut (strcat sFolder sDwgName "_" sItem)) 
        (vl-cmdf "_.exportlayout" sDwgOut) 
      ) 
      (setvar "CTAB" sTab) 
      (setvar "FILEDIA" oldvar1) 
      (setvar "CMDECHO" oldvar2) 
    );_progn 
  );_fi 
  (princ) 
);_defun

网友答:

dingtiedt 发表于 2023-6-11 17:49
请问大师：哪个github能下载到doslip。
这个程序还是很有用的。

有且只有一个 github 呀...
只是通常需要一些技术方法，才能访问与下载：

https://github.com/dalefugier/DOSLib

网友答: 你研究一下图纸集吧。

网友答:

mokson 发表于 2022-9-6 17:29
你研究一下图纸集吧。

就是在用图纸集才碰到这个问题

网友答: 同求

网友答: 你搜一下，我在这里发了源码的。

网友答: 关键是视口里有标注，有块，这种长图就算到了模型，也是乱七八糟的

网友答:

e2002 发表于 2022-9-27 14:12
你搜一下，我在这里发了源码的。

搜不到啊，关键词是啥？

网友答: 我还是这个习惯：所有图纸都放在一个布局里。我不喜欢一张图一个布局。

上一篇：cad2020文字样式字体问题

下一篇：没有了