将布局输出到模型，有没有批量处理的方式
将布局输出到模型，有没有批量处理的方式现在图纸是一个布局一张图，但给业主想要汇总起来
高版本有个将布局输出到模型的方法，当一次只能处理一个布局
有没有一次性处理多个布局的方法？ 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 sTablsLayouts
sFolder oldvar1oldvar2 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
你搜一下，我在这里发了源码的。
搜不到啊，关键词是啥？ 我还是这个习惯：所有图纸都放在一个布局里。我不喜欢一张图一个布局。
页:
[1]
2