很好，我要在家里玩它。一些折叠做，然后回家。
谢谢 好啊如果你遇到任何问题，请告诉我。
我将对它进行一些重构，添加一些错误处理，并将其用于多个文件。选择多个文件的首选方法是什么？通过浏览和选择它们，还是只处理与活动图形位于同一目录中的所有图形？
我会在周末试着看，但你知道它是什么样子的，下周的情人节，所以我是否真的有机会看它是另一回事。不过我会试试的。
如果有人想修改我发布的代码，那么请随意发布，让我们都从修改中受益。
干杯 刚意识到我把锁层搞砸了。
我会用它再运行一次，稍后再发布。
很抱歉
干杯 你好
我在家，晚上晚些时候会看一看，然后告诉你我的想法。
如果我有发言权的话，选择图形是一种方式（不是目录中的所有图形都要绑定外部参照，而是有一些“模式”）。 附件现在应该可以工作了。
我遇到的一个问题是，如果您卸载了外部参照，那么如果您不需要它们，请先分离它们。
干杯
我将测试这个而不是第一个。实际上，我已经测试了第一个很短，看起来很好。我将一些按钮设置为true，即一些鼠标点击更少；-）
这纯粹是懒惰。
如果您还有其他需要更改/添加的内容，请告诉我。
我的一个用户要求能够打印到pdf。我不会添加该功能，因为它违背了我的一些核心标准，但如果你愿意，请随意添加。我将研究创建dwf的可能性，尽管这取决于页面设置是否正确。
我也在考虑是否可以将图纸列表导出到新的或现有的xls（用于发行单），但目前还不太确定。
干杯
干杯
嗯，制作pdf时，我会使用“状态结束”工具来绘制一些图形，通过绑定外部参照来清理“归档”。我想要越来越小的文件，而不是通过制作pdf来制作更多的文件。
当然，很容易有一个工具，使pdf的所有图纸的，但我认为它不适合这个工具的配置文件。
就我们在这里使用的绘图列表而言，它们是在Excel中制作的，但在使用“prepare.dvb”之前在体育场中。
我最近也经常使用SheetSet。有一种用于绘制列表的制表机制。
对我来说，这个工具（准备）显然是为了结束状态“工作”，保存，清理等，并继续与其他目录中的“新”文件。
--编辑
测试版本2
在这里没有发现问题，图层是锁定的，我个人只想删除未找到的外部参照等，但我会等到你制作了一些多个绘图版本，然后再将一些按钮设置为true；-）
完成后，我将尝试编辑“复制”图纸中的戳记。但是这个已经非常有用了！！ 我现在有它的工作，所以你可以选择多个文件。
我在整理未加载/未引用的文件时步履蹒跚。有人给我指出正确的方向来分离引用吗？
我会在今晚或者明天回家的时候对它进行一些调整，然后尽快上传。
现在快到了。
干杯 我前一段时间研究过这个问题，并提出了这个令人讨厌的lisp来分离/审核/绑定/清除所有内容。它可以处理嵌套的、未加载的和未解析的外部参照。必须放置名为dummy的空白dwg。dwg在您的搜索路径文件夹之一，它的工作。
在此处查看我的帖子：
http://www.cadtutor.net/forum/showthread.php?t=13141
(defun C:SENT ( / )
(defun *error*(msg)
(setvar "modemacro" ".")
(setvar "bindtype" oldBnType)
(setvar "cmdecho" 1)
(princ "\n...Audit/Bind/PurgeAll terminated!!!")
(princ)
); end of *error*
(setvar "modemacro" "Audit/Bind/PurgeAll processing......please wait......")
(setvar "cmdecho" 0)
(prompt "\n--- Audit/Bind/PurgeAll......please wait---")
(prompt "\nAuditing...")(terpri)
(command "_audit" "y")
(bind_xrefs)
(prompt "\nPurging #1")(terpri)
(command "-purge" "a" "*" "N")
(prompt "\nPurging #2")(terpri)
(command "-purge" "a" "*" "N")
(prompt "\nPurging #3")(terpri)
(command "-purge" "a" "*" "N")
(prompt "\n--- Audit, Bind, PurgeAll completed! ---")
(setvar "modemacro" ".")
(setvar "cmdecho" 1)
(princ)
); end of c:sent
(defun bind_xrefs ( / CMD)
(setq oldBnType(getvar "bindtype"))
(setq CMD (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setvar "bindtype" 0)
(setq XLIST (xref-status))
(if XLIST
(progn
(prompt "\nBinding all Xrefs...")
(foreach n XLIST (rem-xref n))
(command "-xref" "b" "*" )
(prompt "...done")(terpri)
)
)
(setvar "CMDECHO" CMD)
(setvar "bindtype" oldBnType)
(princ)
)
(defun rem-xref ( XL / XNAME XSTATUS )
(setq XNAME (nth 0 XL))
(setq XSTATUS (nth 2 XL))
(if (= XSTATUS "UNLOADED")
(rem_unload)
)
(if (= XSTATUS "UNRESOLVED")
(rem_unload)
)
)
(defun xref-status ( / d n f r)
(while (setq d (tblnext "block" (null d)))
(cond
(
(eq 4 (logand 4 (cdr (assoc 70 d))))
(setq
d (entget (tblobjname "block" (cdr (assoc 2 d))))
n (cdr (assoc 2 d))
p (cdr (assoc 3 d))
f (cdr (assoc 70 d))
)
(setq r
(cons
(list n p
(cond
( (eq 32 (logand 32 f)) "LOADED")
( (assoc 71 d) "UNLOADED")
( t "UNRESOLVED")
)
)
r
)
)
)
)
)
(reverse r)
)
(defun rem_unload ( / )
(setq DFILE (findfile "dummy.dwg"))
(if (not DFILE)
(prompt "\nCannot find dummy_xref drawing ")
(progn
(command "-xref" "p" XNAME DFILE)
(command "-xref" "r" XNAME)
)
)
)
页:
1
[2]