提取AutoLISP点对元素的方法

AutoLISP是一种用于AutoCAD的编程语言，它允许用户通过编写脚本来自动化CAD操作。在AutoLISP中，点对（point pair）是一种常见的数据结构，用于表示二维坐标点的X和Y坐标值。如果你需要从点对元素中提取X和Y坐标值，可以使用AutoLISP的内置函数来实现。

下面是一个示例代码，演示了如何提取点对元素的X和Y坐标值：

(defun extract-coordinate (point)
  (list (car point) (cadr point))
)

(setq my-point '(10.0 20.0)) ; 假设点对元素为(10.0 20.0)

(setq x-coordinate (car (extract-coordinate my-point))) ; 提取X坐标值
(setq y-coordinate (cadr (extract-coordinate my-point))) ; 提取Y坐标值

(princ (strcat "X坐标值: " (rtos x-coordinate)) "\n"))
(princ (strcat "Y坐标值: " (rtos y-coordinate)) "\n"))

在上面的代码中，我们定义了一个名为extract-coordinate的函数，它接受一个点对元素作为输入，并返回一个包含X和Y坐标值的列表。我们使用car函数来提取点对元素的第一个元素（X坐标），使用cadr函数来提取点对元素的第二个元素（Y坐标）。

然后，我们创建一个名为my-point的变量，并将点对元素(10.