多个图形外部参照绑定lis

erik_NL · 发表于 2022-7-6 09:18:56

很好，我要在家里玩它。一些折叠做，然后回家。

谢谢

Guest LElkins · 发表于 2022-7-6 09:22:41

好啊如果你遇到任何问题，请告诉我。
我将对它进行一些重构，添加一些错误处理，并将其用于多个文件。选择多个文件的首选方法是什么？通过浏览和选择它们，还是只处理与活动图形位于同一目录中的所有图形？
我会在周末试着看，但你知道它是什么样子的，下周的情人节，所以我是否真的有机会看它是另一回事。不过我会试试的。

如果有人想修改我发布的代码，那么请随意发布，让我们都从修改中受益。

干杯

Guest LElkins · 发表于 2022-7-6 09:25:27

刚意识到我把锁层搞砸了。
我会用它再运行一次，稍后再发布。
很抱歉

干杯

erik_NL · 发表于 2022-7-6 09:28:33

你好
我在家，晚上晚些时候会看一看，然后告诉你我的想法。
如果我有发言权的话，选择图形是一种方式（不是目录中的所有图形都要绑定外部参照，而是有一些“模式”）。

Guest LElkins · 发表于 2022-7-6 09:32:28

附件现在应该可以工作了。
我遇到的一个问题是，如果您卸载了外部参照，那么如果您不需要它们，请先分离它们。

干杯

erik_NL · 发表于 2022-7-6 09:35:37

我将测试这个而不是第一个。实际上，我已经测试了第一个很短，看起来很好。我将一些按钮设置为true，即一些鼠标点击更少；-）

Guest LElkins · 发表于 2022-7-6 09:39:03

这纯粹是懒惰。
如果您还有其他需要更改/添加的内容，请告诉我。
我的一个用户要求能够打印到pdf。我不会添加该功能，因为它违背了我的一些核心标准，但如果你愿意，请随意添加。我将研究创建dwf的可能性，尽管这取决于页面设置是否正确。

我也在考虑是否可以将图纸列表导出到新的或现有的xls（用于发行单），但目前还不太确定。

干杯
干杯

erik_NL · 发表于 2022-7-6 09:42:17

嗯，制作pdf时，我会使用“状态结束”工具来绘制一些图形，通过绑定外部参照来清理“归档”。我想要越来越小的文件，而不是通过制作pdf来制作更多的文件。
当然，很容易有一个工具，使pdf的所有图纸的，但我认为它不适合这个工具的配置文件。
就我们在这里使用的绘图列表而言，它们是在Excel中制作的，但在使用“prepare.dvb”之前在体育场中。
我最近也经常使用SheetSet。有一种用于绘制列表的制表机制。

对我来说，这个工具（准备）显然是为了结束状态“工作”，保存，清理等，并继续与其他目录中的“新”文件。

--编辑

测试版本2
在这里没有发现问题，图层是锁定的，我个人只想删除未找到的外部参照等，但我会等到你制作了一些多个绘图版本，然后再将一些按钮设置为true；-）
完成后，我将尝试编辑“复制”图纸中的戳记。但是这个已经非常有用了！！

Guest LElkins · 发表于 2022-7-6 09:44:47

我现在有它的工作，所以你可以选择多个文件。
我在整理未加载/未引用的文件时步履蹒跚。有人给我指出正确的方向来分离引用吗？

我会在今晚或者明天回家的时候对它进行一些调整，然后尽快上传。

现在快到了。

干杯

JeepMaster · 发表于 2022-7-6 09:46:18

我前一段时间研究过这个问题，并提出了这个令人讨厌的lisp来分离/审核/绑定/清除所有内容。它可以处理嵌套的、未加载的和未解析的外部参照。必须放置名为dummy的空白dwg。dwg在您的搜索路径文件夹之一，它的工作。

在此处查看我的帖子：
http://www.cadtutor.net/forum/showthread.php?t=13141

copy

(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)
   )
 )
)

[编程交流] 多个图形外部参照绑定lis

发表回复

精选推荐