散装电子传递
最近，我一直在与电子传输文件的概念作斗争，这个想法很简单，也很直接，但遗憾的是，我渴望从中获得更多！目前，电子传递提供了一种准备发布图形的方法，完成它所做的所有事情。我发现的一个缺陷是，你一次只能画一幅画。我知道您可以将多个文件放入一个电子传递实例中，但遗憾的是，这并没有做到公正，因为您最终只能得到一个。压缩文件，包含您“批量”电子传输的所有文件。我真正需要的是，电子传递将每个图形文件（及其附件，例如外部参照、字体等）识别为单独的实体，然后通过将每个图形压缩到单独的文件夹中，并以处理过的图形的文件名命名每个压缩文件来保持这种状态。基本上实现了相同的结果，就像一个人要通过一组图形和电子传递每个手动。我将电子传递命令键入到一个。ScriptPRO的scr文件，希望我可以通过每个绘图调用电子传递，但它最终像四个单词一样长，当“创建”发出时，ACAD没有意识到我尝试了其他几种方式，但我对自己失去了信心…谢谢大家 AutoCAD在多个文件上使用电子传递的方法是将（项目的）所有文件添加到图纸集中。然后高亮显示所有需要的文件（或子集>树结构）。
这是一种将多个文件发送到一个文件中的非常快速的方法。拉链
虽然它不会创建分离。ZIP文件，我希望它能帮你一点。
iTijn 是的，我发现了这么多，并认为我对某事有所了解，但遗憾的是，我把一切都融合在了一起。zip文件不是一个选项！ 我有几个用于个人、备份、aec删除、脚本编写等的例程。
这是我用来编写脚本的。确保您事先设置好传输。它锁定和冻结视口，分离卸载的外部参照，并在文件目录中创建子目录，对其进行日期标注和重命名。祝你好运。
;***可编写脚本的电子传递
（适用
'（λ（）
（SETVAR“CMDECHO”0）
（命令“QSAVE”）
;;;*-----------------------------------------------------------
（命令“LAYER”“UNLOCK”“*”“”）
（命令“TILEMODE”“0”）
（命令“pspace”）
（命令“LAYER”“t”“VIEWPORT”“u”“*”“m”“VIEWPORT”“c”“8”“VIEWPORT”“t”“0”“S”“0”“）
（if（=“Model”（getvar“ctab”））
（setq XX1（ssget“_X”'（（0。“视口”）））
（程序
（foreach mb（vl删除“模型”（布局列表））
（setvar“ctab”mb）
（setvar“psltscale”1）
（setvar“ltscale”1）
（setq XX1（ssget“_X”'（（0。“视口”）））
（命令“-vports”“lock”“off“xx1”）））
;;;*-----------------------------------------------------------
（defun removeref（xrefname/blkname）
（if（setq blkname（tblsearch“block”xrefname））
（如果（=（cdr（assoc 70 blkname））12）
（命令“.xref”“d”xrefname）
)
)
（普林斯）
)
（defun删除卸载的外部参照（）
（vlax表示块（vla get blocks
（vla获取activedocument
（vlax get acad object）））
（if（and（=：vlax true（vla get isxref block））
（=0（vla get count块））
)
（vla分离块）
)
)
)
（适用
'（λ（）
（删除卸载的外部参照）
（普林斯）
)
'()
)
;;;*-----------------------------------------------------------
（defun TODAY（/d yr mo da）
（setq d（rtos（getvar“CDATE”）2 6）
年（substr d 3 2）
mo（substr d 5 2）
天（substr d 7 2）
);setq公司
（strcat yr mo日）
);德芬
;;;*-----------------------------------------------------------
（立即卸载（/d hr mi se）
（setq d（rtos（getvar“CDATE”）2 6）
hr（substr d 10 2）
mi（substr d 12 2）
se（substr d 14 2）
);setq公司
（strcat hr mi se）
);德芬
;;;*-----------------------------------------------------------
（SETQ CPFIX（getvar“dwgprefix”））
（SETQ CDNAM（getvar“dwgNAME”））
（SETQ NDIR（STRCAT“eTran-”（今天）“/”）
（vl mkDir（strcat CPFIX NDIR））
;;;*-----------------------------------------------------------
（SETQ NFNAME（strcat（vl filename base（getvar“dwgname”））”-（今天）（现在）））
;;;*------------------------------------------------------------
（命令“saveas”“2004”（strcat（getvar“dwgprefix”）NDIR NFNAME.dwg）
;;;*------------------------------------------------------------
（命令“ETRANSMIT”“CH”“ETRANS”“C”（strcat（getvar“dwgprefix”）NFNAME））
;;;*------------------------------------------------------------
（命令“QSAVE”）
;;;*------------------------------------------------------------
（普林斯）
)
'()
) 这非常有帮助，谢谢！！ 当我像你一样发布时，我仍然使用一个附加组件，我需要为每个文件制作独立的zip文件，它还可以为我制作一个PDF文件并同时打印哦&如果你需要它，它会绑定到。
如果有兴趣，请PM。
遗憾的是，在发布图纸时，AutoDesk无法解决所需的问题&遗憾的是，即使使用所谓的图纸集管理器，用户也必须多次执行相同的任务才能获得所需的内容。
祝你好运 好奇的有几个压缩文件除了让那些不幸的人不得不全部解压之外还有什么意义？
我不明白你的问题？
因为客户/顾问/承包商为每个文件都提供了一个很好的小软件包。
绑定和传输时要小心。
所有视口层、xclip边界等都已丢失。
你好
我运行了这个lisp，但它只创建了我打开的图形的一个电子传递。我认为这是给我一个选择，选择多个图纸和创建一个单独的拉链每个。我是做错了什么，还是应该以不同的方式加载
谢谢
史蒂芬
页:
[1]
2