用其他线型替换线型

ibach · 发表于 2022-7-6 07:48:21

现在，我做了审计。。。总结如下

命令：审核
修复检测到的任何错误？[是/否]：y
审核标题
审核表
审计实体通过1
通过1 623800个审计对象
审计实体通过2
传递2 587400个对象AuditedADBBlockReference（6E0025）BTR Id无效
无法修复AcDbBlockReference（6E0025）。它将被删除。
传递2 594400个对象AuditedADBBlockReference（6F5B11）BTR Id无效
无法修复AcDbBlockReference（6F5B11）。它将被删除。
通过2 623800个审计对象
审核块
37047块已审计
审核AcDsRecords
发现的错误总数2已修复2
删除了2个对象

不确定删除了什么。。。检查图纸需要时间。。。

ibach · 发表于 2022-7-6 07:52:18

一切似乎都准备好了。

我还有一个问题，我不能复制粘贴任何东西从其他图纸到这个，我也不能做数据提取从这个文件在所有。。。

ibach · 发表于 2022-7-6 07:55:05

一点点净化。。。数据提取现在可以工作了。。。

这个Lisp程序的魔术真的奏效了。

Lee Mac · 发表于 2022-7-6 07:57:38

不客气。

我的程序迭代图形中的每个图形对象，如果对象的线型包含“$”字符，则程序将检索最后一个“$”字符后面的字符集，检查是否加载了此类线型，如果加载，则将线型指定给对象。

因此，如果加载线型，“0$ZIGZAG”变为“ZIGZAG”。

ibach · 发表于 2022-7-6 08:02:20

“*$*”告诉了我很多。很好地解决了。当我5天没睡的时候，我花时间阅读代码。。。
我刚从那张图纸上打印了150m2的纸，并在运行中纠正了错误。你救了我一命
在视口中循环3个小时，以手动从块属性中读取一些数据，就像之后一样
lisp数据提取成功。再次感谢你。

Lee Mac · 发表于 2022-7-6 08:07:16

非常欢迎你，ibach，节省3个小时的时间对我刚刚编写的程序来说并不坏——我的支票在邮局，对吗？

ibach · 发表于 2022-7-6 08:08:17

升级此代码以对块名和层名执行相同的操作，使其穿过所有块，解锁/解冻层，并在最后返回锁定/冻结状态，这样您就有了一个非常有用的lisp，绝对值得发布（但这一个没有帮助）。
添加“按过滤器重命名”选项，值得一卖。

从来没有时间好好学习lisp（在dos basic时代的某个地方停止编程）。应该提升我的知识。
我所知道的是我真正需要的。

[编程交流] 用其他线型替换线型

发表回复

精选推荐