lisp 提取cad 块中所有属性

Lisp（LISt Processing）是一种编程语言，常被用于自动化CAD软件的开发与扩展。对于提取CAD块中的所有属性，可以使用Lisp编写程序来完成。

在CAD软件中，块（Block）是一种重要的元素，它可以将多个实体对象组合成一个整体，并赋予其唯一的标识符和属性。块可以包含属性，这些属性可以用于进一步描述和标识块。

要提取CAD块中的所有属性，可以按照以下步骤进行操作：

1. 在Lisp中，使用`(ssget)`函数选择所有的块对象，将其保存在一个选择集中。
2. 遍历选择集，使用`(entget)`函数逐个获取每个块对象的详细信息。
3. 对于每个块对象，使用`(entget)`函数获取其属性列表。
4. 遍历属性列表，使用`(cdr)`函数逐个提取每个属性的键值对。
5. 将提取到的属性信息进行处理和保存，可以输出到控制台或者写入文件中。

下面是一个简单的示例代码，用于在AutoCAD软件中提取CAD块中的所有属性：

(defun extract-block-attributes ()
  (setq block-ss (ssget "X" '((0 . "INSERT"))))
  (setq block-count (sslength block-ss))
  
  (setq attribute-list '())
  
  (repeat block-count
    (setq block (ssname block-ss (setq i (1+ i))))
    (setq attribute-ss (ssget "X" (list '(0 . "ATTRIB") (cons 2 (cdr (assoc 2 (entget block)))))))
    (setq attribute-count (sslength attribute-ss))
    
    (setq j 0)
    (repeat attribute-count
      (setq attribute (ssname attribute-ss (setq j (1+ j))))
      (setq attribute-data (entget attribute))
      (setq attribute-list (append attribute-list (list attribute-data)))
    )
  )
  
  (setq attribute-count (length attribute-list))
  (repeat attribute-count
    (setq attribute-data (nth (setq i (1+ i)) attribute-list))
    (princ (cdr (assoc 2 attribute-data))) ; 输出属性名称
    (princ ": ")
    (princ (cdr (assoc 1 attribute-data))) ; 输出属性值
    (princ) ; 换行
  )
)

上述代码通过`(ssget)`函数选择所有块对象，然后使用`(ssget)`函数再次选择对应的属性对象。通过遍历属性列表，再分别提取属性的键名和键值，并逐个输出。