具有属性的动态块

Astro · 发表于 2022-7-6 12:04:21

大家好，

我需要从动态块中提取属性到excel。
attout命令很好，但我需要更多信息，如可见性状态等。。。
提取向导导出所有这些信息，但不导出句柄。。。

所以我需要的是：

导出所有属性
+块的句柄id
+可见性状态
+真实块名（使用attout命令，块名看起来像*U18、*U72….）

也许有人已经有了Lisp程序的习惯了

希望有人能帮我，这很紧急。提前感谢您的支持！

devitg · 发表于 2022-7-6 12:10:33

你能上传一个示例dwg吗？？

Astro · 发表于 2022-7-6 12:14:56

在附件中，包含3个动态块的图纸。
这些块的属性不同。
旧图纸2。图纸

devitg · 发表于 2022-7-6 12:18:11

Astro为我提供返回数据的CSV格式。
请直接与我联系。
见附件
!!!向何处发送。txt文件

Astro · 发表于 2022-7-6 12:20:59

谢谢你的帮助。

附件中的文件。

以xls开头的是使用提取向导提取的excel。只需将其重命名为xls。（无法上载xls…）

另一个是使用-attout命令
旧图纸2。txt文件
XLSOLDdrawing2。txt文件

devitg · 发表于 2022-7-6 12:26:40

我是在你发帖之前做的
OLDdrawing2-标准。拉链

Astro · 发表于 2022-7-6 12:28:51

当我执行命令时，出现以下错误

devitg · 发表于 2022-7-6 12:35:33

;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/

（defun list$2cvs（#lst）
（如果（不是（listp#lst））

（setq#lst（list#lst））
)

（应用strcat
（cons（car#lst）
（mapcar’（lambda（str）（strcat”，“str））
（cdr#lst）
) ;_地图车
) ;_欺骗
) ;_申请

) ;_ 字符串列表2CVS
;;;用法（string-list2cvs’（“One”“Two”“Three”））
;;;->“一，二，三”
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/