CADLISP给图元添加扩展数据

CADLISP中可以使用扩展字典来为图元添加扩展数据。扩展字典是一个与图元关联的键值对集合，可以在其中存储任意类型的数据。

以下是一个示例，展示如何为一个圆形添加一个名为 "mydata" 的扩展字典，并在其中存储一些数据：

(defun add-circle-data (circle)
  (vl-load-com)
  (setq extDict (vla-get-ExtensionDictionary circle))
  (vla-setItem extDict "mydata" (vlax-variant-value '(1 2 3)))
)

其中，`circle` 是一个圆形实体的引用。`vla-get-ExtensionDictionary` 方法用于获取该实体的扩展字典，如果该实体没有扩展字典，则会自动创建一个。`vla-setItem` 方法用于在扩展字典中设置一个键值对，其第一个参数指定键名，第二个参数为值，可以是任何类型的数据。

在上述示例中，我们将一个包含三个数字的列表作为值存储在扩展字典中，并将键名设置为 "mydata"。这样，我们就可以在需要的时候获取该数据，例如：

(defun get-circle-data (circle)
  (vl-load-com)
  (setq extDict (vla-get-ExtensionDictionary circle))
  (vla-getItem extDict "mydata")
)

该函数可以获取圆形实体的扩展字典，并从中获取键名为 "mydata" 的值。在本例中，该值是一个包含三个数字的列表。