这是Lisp程序。要处理一些图形，请在绘图区域中拖动lisp文件图标。程序将自动启动。
批处理的一种可能用法：打开一个新图形，转到“工具”>“AutoLisp”>“加载”，然后在“加载/卸载应用程序”窗口中找到lisp文件并将其拖动到启动套件中。现在，该程序将加载到每个图形中。关闭窗口并转到“文件”>“打开”。选择所有要处理的文件（按住shift/Ctrl键可选择多个文件），然后按OPEN。放松并观看屏幕。打开最后一个文件后，搜索文件C:\属性。CSV并用Excel打开。双击该文件可能会使其在Excel中打开，但这也取决于您的设置。
如果dwg不包含具有属性的块，您将在AutoCAD命令行中看到错误消息。请忽略它。
别忘了从创业服中删除该程序！
P、 在没有adecvate过滤器的情况下，该程序将提取您的所有属性，包括标题数据块中的数据、日期戳等。
- ; Global ATTribute EXtractor
- ; by Miklos Fuccaro [email="mfuccaro@hotmail.com"]mfuccaro@hotmail.com[/email]
- ;-------------------------November 2004 -------
- (defun gattex()
- (setq ss (ssget "X" '((0 . "INSERT") (66 . 1))))
- (if (not ss) (quit))
- (setq file (open "c:\\attributes.CSV" "a") i -1)
- (write-line (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")
- " -found " (itoa (sslength ss))
- " block(s) with attributes") file)
- (repeat (sslength ss)
- (setq l (entget (setq e (ssname ss (setq i (1+ i))))))
- (write-line (strcat "block name:" "," (cdr (assoc 2 l))) file)
- (while (/= (cdr (assoc 0 l)) "SEQEND")
- (if (= (cdr (assoc 0 l)) "ATTRIB")
- (write-line (strcat ",," (cdr (assoc 1 l)) "," (cdr (assoc 2 l))) file))
- (setq l (entget (setq e (entnext e))))
- )
- )
- (close file)
- (princ)
- )
- (gattex)
| 
置顶卡
