散装电子传递

DWG Destroyer · 发表于 2022-7-6 10:06:21

最近，我一直在与电子传输文件的概念作斗争，这个想法很简单，也很直接，但遗憾的是，我渴望从中获得更多！目前，电子传递提供了一种准备发布图形的方法，完成它所做的所有事情。我发现的一个缺陷是，你一次只能画一幅画。我知道您可以将多个文件放入一个电子传递实例中，但遗憾的是，这并没有做到公正，因为您最终只能得到一个。压缩文件，包含您“批量”电子传输的所有文件。我真正需要的是，电子传递将每个图形文件（及其附件，例如外部参照、字体等）识别为单独的实体，然后通过将每个图形压缩到单独的文件夹中，并以处理过的图形的文件名命名每个压缩文件来保持这种状态。基本上实现了相同的结果，就像一个人要通过一组图形和电子传递每个手动。我将电子传递命令键入到一个。ScriptPRO的scr文件，希望我可以通过每个绘图调用电子传递，但它最终像四个单词一样长，当“创建”发出时，ACAD没有意识到我尝试了其他几种方式，但我对自己失去了信心…
谢谢大家

iTijn · 发表于 2022-7-6 10:13:13

AutoCAD在多个文件上使用电子传递的方法是将（项目的）所有文件添加到图纸集中。然后高亮显示所有需要的文件（或子集>树结构）。

这是一种将多个文件发送到一个文件中的非常快速的方法。拉链
虽然它不会创建分离。ZIP文件，我希望它能帮你一点。

iTijn

DWG Destroyer · 发表于 2022-7-6 10:18:24

是的，我发现了这么多，并认为我对某事有所了解，但遗憾的是，我把一切都融合在了一起。zip文件不是一个选项！

bobafuka · 发表于 2022-7-6 10:25:09

我有几个用于个人、备份、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”）
;;;*------------------------------------------------------------
（普林斯）
)
'()
)

DWG Destroyer · 发表于 2022-7-6 10:29:48

这非常有帮助，谢谢！！

KiLLiNG-TiME · 发表于 2022-7-6 10:35:42

当我像你一样发布时，我仍然使用一个附加组件，我需要为每个文件制作独立的zip文件，它还可以为我制作一个PDF文件并同时打印哦&如果你需要它，它会绑定到。
如果有兴趣，请PM。

遗憾的是，在发布图纸时，AutoDesk无法解决所需的问题&遗憾的是，即使使用所谓的图纸集管理器，用户也必须多次执行相同的任务才能获得所需的内容。

祝你好运