具有属性的动态块
大家好，我需要从动态块中提取属性到excel。
attout命令很好，但我需要更多信息，如可见性状态等。。。
提取向导导出所有这些信息，但不导出句柄。。。
所以我需要的是：
导出所有属性
+块的句柄id
+可见性状态
+真实块名（使用attout命令，块名看起来像*U18、*U72….）
也许有人已经有了Lisp程序的习惯了
希望有人能帮我，这很紧急。提前感谢您的支持！ 你能上传一个示例dwg吗？？ 在附件中，包含3个动态块的图纸。
这些块的属性不同。
旧图纸2。图纸 Astro为我提供返回数据的CSV格式。
请直接与我联系。
见附件
!!!向何处发送。txt文件 谢谢你的帮助。
附件中的文件。
以xls开头的是使用提取向导提取的excel。只需将其重命名为xls。（无法上载xls…）
另一个是使用-attout命令
旧图纸2。txt文件
XLSOLDdrawing2。txt文件 我是在你发帖之前做的
OLDdrawing2-标准。拉链 当我执行命令时，出现以下错误
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
（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”））
;;;->“一，二，三”
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
很有趣，很有用，但是不要再使用像标准这样的词。这是一个从未实现的虚构想法。有点像一个“按工作去做”又一个工程师/提案的想法，在现实生活中并不存在。 嗨，Dany，我的意思是
I did it before your post是关于CSV格式的。
当我要求他展示它想要csv的方式时，我在他发布TXT和XLS文件之前结束了lisp。
页:
[1]
2