为了确保AutoLISP代码能够兼容各种CAD软件版本，并实现图元扩展属性的添加、编辑和删除功能，可以采取以下通用方法。这里提供一个示例代码，展示如何实现这些功能：
```lisp
; 函数：添加、编辑、删除图元扩展属性
(defun CPT-AddEditDeleteCustomProperty (entity propertyName value / obj)(setq obj (vlax-ename->vla-object entity)); 添加扩展属性(if (not (vla-getcustom obj propertyName))(vla-putcustom obj propertyName value); 编辑扩展属性(vla-putcustom obj propertyName value)); 删除扩展属性(if (vla-getcustom obj propertyName)(vla-deletecustom obj propertyName))
); 示例用法
(setq entity (car (entsel "\n选择一个实体：")))
(CPT-AddEditDeleteCustomProperty entity "CustomProperty1" "Value1")
```在这个示例代码中，`CPT-AddEditDeleteCustomProperty` 函数实现了添加、编辑和删除图元的扩展属性功能。该函数接受三个参数：实体对象、属性名称和属性值。根据属性名称的存在与否，函数会相应地执行添加、编辑或删除操作。
请注意，这只是一个简单的示例代码，实际应用中可能需要根据具体需求进行适当的修改和扩展。在实际使用时，建议在不同版本的CAD软件中进行测试，确保代码能够在各种环境下正常运行。
、文件(File)和IO)
